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AN547 Seltal POM ULlMeS: seccewevsess ere nti ca uae anders wsadtenasdneannsta ko oecaes@ebinadergct daciwila’ 4- 61 
AN548 Implementing Table Read and Write «2.0.0.0... ceccccssccececeeeseeenteceeeececesnenenneneees 4 3 
AN550 1.8 Volt Technology - BenefitS ....0.. ee ccecsecceeceeeeeeeeceeteeeeeeseeesereeensenaes 6-117 
AN551 Serial EEPROM Solutions vs. Parallel SolUtiONS «00.0.0... cceessseeceestteeeeneee 6-119 
AN552 Implementing Wake Up on Keystroke ...0.....c ce ccccccccesceceseeeceeeeenseeeeeeensaeeees 3- 21 
AN554 Software Implementation of I?C Bus Master ............ cc ceecceceseeesssteceessseeeeeens 3- 33 
AN555 Software Implementation of Asynchronous Serial W/O .........ceeeecseeeeeseeeeees 3-121 
AN556 Table Read Using PIC1GOXX ooo. cc cece ce cee ce ce cnseeeeaeestesescsssseaseaeeeees 3- 29 
AN557 Four Channel Digital Volt Meter with Display and Keyboard ...................... ..3- 157 
AN558 Using the 24XX65 and 24C32 with Standalone PIC16/17 Code .................. 6- 33 
AN559 Optimizing Serial Bus Operations with Proper Write Cycle Times ............... 6- 71 
AN560 Using the 93LC56 and 93LC66 ou... cceccceccsserseccecssneesecesseeeeeeessseneceecesees 6- 75 
AN562 Using the Microchip Endurance Predictive Software ................ceeesseeeneeeees 6- 23 
AN563 Implementing an LOD Controller oo... ec cccceenceceeesersececeseceeeesseeesecneseees 2-215 
AN564 RISING) TG VI cas hecteicotss crevice lb cadaunc atic uemmusieatmnan corneas chlaadd Vattnctdedtapanumeiesieoaed 4- 17 
AN566 Porb.as Extemial |MeOriUOl sécsccs escesiseaniasrsut os seater delnensuavaenc eae aael ds 3- 25 
AN567 Interfacing 24LCXX Serial EEPROMS to the PIC16C54 oo... cece 6- 27 
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CROSS REFERENCE CHART TO APPLICATION NOTES - BY SUBJECT 


Please note that application software written for one family is easily converted to fit another. 








Serial 
Subject PIC16C5X PIC16CXX PIC17CXX EEPROM 
24CXX serial EEPROM interface — aANSIS | Ts 
93CX6 serial EEPROM interface | ANSSO, | 
A/D conversion AN5i3 AN546 
AC power line, interface to ee ee 
Addition, 16+16 __ANS26 | | ANS 
Addition, floating point | ANS2G =| | ANS 44 
Alarm clock implementation | ANS29, | fs 
Analog to digital conversion F ANSIS. ff 
Asynchronous serial port implementation in software fF  ANSIO. fo J 
BCD addition | aNs26 | | ANSA4 
BCD conversion routines | oansee =| ANS 
Brown-out circuits | ANS22 ff 
Capacitance measurement | ANSIZ| |] 
Chip select with Voc es ee ee 
Clock/calendar implementation | aNs29 «| Ts 
Compatibility - 24C01A NT 
Compatibility - 93C06 a ee ee: 
Division, 16/16, unsigned anses | Ss«|«~SCANS 
Division, 16/16, signed | ANS26. =f ANS 44 
Endurance predictive model rr AN562 
Floating point addition | ANS26 =| =| ANS44 
Floating point multiplication | ANS26. =| sf ANS 44 
Floating point routines | ANS26, | sf ANS44— 
Floating point subtraction | ANS26 =f FANS 44 
Frequency measurement PNB | 
?C implementation (for serial EE interface only) | ANSIS. ff 
IIR filter AN540 
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CROSS REFERENCE CHART TO APPLICATION NOTES - BY SUBJECT (continued) 








Serial 
Subject PIC16C5X PIC16CXX PIC17CXX EEPROM - 
Interfacing to 24C32/65 ii rrr a AN558 
Interfacing to 24CXX ee ee ee 
Interfacing to 24LCXX PAN 
Interfacing to 93CX6 rr re S| AN530 
Interfacing to 93LC56/66 AN560 
LED display interfacing ) AN529 | ~ANSS7T =| 
Measuring capacitance PF ANSI2 fT 
Measuring pulse-width Pf ANAS 
Measuring resistance | oANSI2 =f | 
Measuring temperature P  ANSIZ| fF 
Microwire interface | ANSSY fT 
Multiplexing LED and keypad | ANB2Q9, [J 
Multiplication, 8 x 8, unsigned | ANS26. =6] | ANS 4 
Multiplication, 16 x 16, unsigned | ANS26 [| =| ANSAQ 
Multiplication, 16 x 16, signed | ANS26, | = | ANS44 
Multiplication, floating point )  ANS26, =| | ANS 4 
Period measurement a ee eee 
PLD replacement using PIC16CXX | oANSTY fF 
Pseudo-random number generation PAN 
Pulse width measurement Pf AN 
PWM, choosing frequency ee ee eee 
PWM, choosing resolution ee ee 
PWM generation in software | oANSSt =f 0 | 
PWM routines PANS 
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CROSS REFERENCE CHART TO APPLICATION NOTES - BY SUBJECT (continued) 


Subject 


PWM to analog output 
Quadrature encoder interface 
Random number generation, Gaussian 
Random number generation 
Real time clock implementation (from AC power line) 
Resistance measurement with PIC16CXX 
RS232 interface 

SEEPROM operation 
Sequencer implementation 
Serial EEPROM interfacing 
Serial port (USART) routines 
Servo control 

Sine wave generation 

Software stack 

Square root 

Stack management in software 
State machine implementation 
Status save and restore 
Subtraction, 16+16 
Subtraction, floating point 
Table Read 

Temperature measurement 
Thermostat implementation 
Tone generation 

Trajectory generation 

UART, software implementation 
USART routines 

Velocity control 

Voltmeter implementation 
Wake up on key-stroke 

Write cycle optimization 

Zero crossing detect 


PIC16C5X PIC16C6X PIC17CXX 


AN538 
AN532 
AN544 
AN544 


AN521 
AN512 
AN547 


AN511 
AN515 
AN547 
AN532 
AN543 
AN534 
AN544 
AN534 


AN555 


AN527 
AN526 
AN527 
AN514 
AN534 
AN526 
AN526 


AN544 
AN544 
AN556 AN548 
AN512 
AN512 
AN543 
AN532 
AN510 
AN547 
AN532 
AN157 
AN528 AN552 


AN521 


Serial 
EEPROM 


AN536 


AN559 


A 
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Motivated by customer 
requirements.... 


..and powered by continuous 
improvement... 


...riding, leading and pushing 
the wave of technological 
change. 


SERVING A COMPLEX AND COMPETITIVE 
WORLD WITH FIELD-PROGRAMMABLE 
EMBEDDED CONTROL 

SYSTEM SOLUTIONS 


“Microchip Technology draws its impetus from the technol- 
ogy expectations of a large base of longstanding customers. 
Microchip is small enough to respond quickly with technology to 
serve our customers’ needs. Moreover, as a fully integrated IC 
manufacturer, Microchip deploys its panoply of resources to act 
timely and efficiently, and on a worldwide scale: Technology 
Development, Design, Wafer Fabrication, Assembly and Test, 
Quality, Reliability and Customer Support. 


“Worldwide competition leaves no room for divergence or medi- 
ocrity. Microchip Technology, committed to focus on and continu- 
ously improve all the aspects of its business, has a unique 
corporate culture. To improve performance, our employees are 
encouraged to analyze their methods continually. | Personal 
empowerment expands the capability of personal responsibility to 
continually serve our customers better. 


“Our industry's life-line is innovation. The fast pace of technologi- 
cal change is inherent in our industry. Microchip Technology has 
accelerated the rate of change of its technology and products to 
leadership in providing user-programmable space-sensitive em- 
bedded control solutions. 


“Change is our ally. Driving and managing customer-focused 
change is our winning strategy.” 


S foo Soph 


Steve Sanghi 
President & Chief Executive Officer 
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® 
Microchip INCORPORATED 
Company Profile 
HIGHLIGHTS BUSINESS SCOPE 


¢ Focused on providing field-programmable 
~ embedded control solutions 


¢ Offers RISC 8-bit user-programmable microcon- 
trollers and supporting logic products 


¢ Offers Serial and Parallel EEPROMs and 
EPROMs 


¢ A unique corporate culture dedicated to continu- 
ous improvement 


« Research and development of high performance 
field-programmable products 


¢ A history of innovation 


¢ An experienced executive team focussed on 
innovation 


¢ Fully integrated manufacturing 


¢ A global network of manufacturing and customer 
support facilities 





Microchip Technology Inc. manufactures and markets a 
variety of VLSI CMOS semiconductor components to 
support the field-programmable embedded control mar- 
ket. In particular, the company specializes in highly 
integrated, field-programmable RISC microcontrollers 
and related non-volatile memory products to meet grow- 
ing market requirements for high performance, yet eco- 
nomical embedded control capability in an increasing 
number of price-sensitive products. Microchip's prod- 
ucts feature the industry's most economical OTP (one- 
time programmable) capability, along with the compact 
size, integrated functionality, ease of development and 
technical support so essential to timely and cost-effec- . 
tive product development by our customers. 


MARKET FOCUS 


Microchip targets selected markets where our advanced 
designs, progressive process technology and industry 
leading operating speeds enable us to deliver decidedly 
superior performance. The firm has positioned itself to 
maintain a dominant role as a supplier of high perfor- 
mance field-programmable microcontrollers and asso- 
ciated memory and logic products for embedded control 
applications. 


Company headquarters near Phoenix, 
Arizona; executive offices, R & D and 
wafer fabrication occupy this 142,000- 
square-foot facility. 
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FULLY INTEGRATED 
MANUFACTURING 


A GLOBAL NETWORK OF 
PLANTS AND FACILITIES 


A PRODUCT FAMILY OF 
SHARED STRENGTHS 


MICROCONTROLLERS 


PIC17CXX 


PIC16CXX 


PIC16C5X 


ROM EPROM EEPROM 













High End 16-Bit 
Instruction 


+70R4X | 17C4X 


er eZ Mid-R 14-Bit 
H6CREX |. | 46C08x fnstruetion. 


F6CRIX 


Low-End 12-Bit 
Instruction 











CMOS PIC16/17 
Microcontroller Families 


Microchip Technology Incorporated 


Microchip delivers fast turnaround through total control over all phases of 
production. Research and development, design, mask making, wafer fabrica- 
tion, assembly and quality assurance testing are conducted at facilities 
owned and operated by Microchip. Our integrated approach to manufacturing 
along with rigorous use of advanced statistical process control (SPC), anda 
continuous improvement culture has brought forth tight product consistency 
levels and high yields which enable Microchip to compete successfully in 
world markets. Microchip’s unique approach to SPC provides customers with 
excellent costs, quality, reliability and on-time delivery. 


Microchip is a global competitor providing local service to the world’s 
technology centers. The Company’s focal point is the design and technology 
advancement facility in Chandler, Arizona. Product and technology develop- 
ment is here, along with front-end wafer fabrication and electrical probing. 


Microchip’s assembly and test facility in Kaohsiung, Taiwan houses the 
technology and modern assembly methods necessary for plastic and ceramic 
packaging. Other quality-conscious firms which fabricate wafers in the 
Pacific Rim use Microchip’s Kaohsiung plant for assembly. 


Sales and application offices are located in key cities throughout the Western 
Hemisphere, Pacific Rim and Europe. Offices are staffed to meet the high 
quality expectations of our customers, and can be accessed for technical 
support, purchasing information and failure analysis. 


Microchip’s product focus is CMOS field-programmable microcontrollers, 
non-volatile memories and peripherals, and application-specific standard 
products (ASSP). These product lines include PIC16/17 microcontrollers, — 
EEPROMs, high-speed EPROMs, and peripherals in a broad range of 
product densities, speeds and packages. 


PIC16/17 microcontrollers from Microchip combine high performance, low 
cost and small package size. They offer the best price/performance ratio in 
the industry. Large numbers of these devices are used in automotive and 
cost-sensitive consumer products, computer peripherals, office automation, 
automotive control systems, security and telecommunication applications. 


The widely-accepted CMOS PIC16CXX and PIC17CXX families are the 
industry’s only 8-bit microcontrollers using a high-speed RISC architecture. 
Microchip pioneered the use of RISC architecture to obtain high speed and 
instruction efficiency. The CMOS PIC16CXX family is in high-volume 
production, with more than 40 million units shipped, and has achieved more 
than five thousand design wins worldwide. 


The PIC17CXX family offers the world’s fastest execution performance of any 
8-bit microcontroller family. The PIC17CXX family extends the PIC16/17 
microcontroller’s high-performance RISC architecture with a 16-bit instruc- 
tion word, enhanced instruction set, and powerful vectored interrupt handling 
capabilities. The first member of the family, the PIC17C42, includes a 
powerful array of intelligent and precise on-chip peripheral features that are 
ideally suited for many demanding real-time embedded control applications 
including motor control, process control, security, automotive and medical 
applications. In addition, the PIC17C42 can function either as a stand-alone 
microcontroller or can execute instructions from up to 64K words of external 
program memory. The PIC17C42 features comprehensive timer/counter 
resources and I/O handling capabilities to address the requirements of 
complex embedded control applications. 
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DEVELOPMENT SYSTEMS 


SOFTWARE SUPPORT 


SERIAL EEPROMS 


PARALLEL EEPROMS 


Current CMOS PIC16/17 microcontroller product families include ad- 
vanced features such as sophisticated timers, embedded A/D, extended. 
instruction/data memory, inter-processor communication and ROM, 
EPROM and EEPROM memories. 


Both PIC16CXX and PIC17CXxX families are supported by user-friendly 


development systems including programmers and emulators. 


The PICMASTER™ is an advanced real-time in-circuit emulator system 
using the user-friendly Windows™ software environment. The 
PICMASTER is a Microchip-designed universal emulator for both 
PIC16CXX and PIC17CXX families. The PRO MASTER™ is an ad- 
vanced full-featured programmer. PICSTART™ is.a low-cost develop- 
ment kit which includes an assembler, simulator and programmer. 


Both PIC16/17 microcontroller families are supported by assemblers, 


linker/loaders, libraries and a source-level debugger. The PIC16CXX 
family is also supported by a software simulator. 


A full-featured C Compiler and Fuzzy Logic support are under develop- 
ment to support both families. 


Customers can obtain on-line updates on Microchip Development Sys- 
tems and Support Software via the Bulletin Board System (BBS). See 
page 7-27 for access information. 


Microchip offers one of the broadest selections of CMOS Serial EEPROMs 
on the market for embedded control systems. Serial EEPROMs are 
available in variety of densities, operating voltages, bus interface proto- 
cols, operating temperature ranges and space saving packages. Device 
densities range from 256K bits up to 64K bits. In addition to 5 volt-only 
operation, Microchip offers Serial EEPROMs that read and write downto 
2.5,20r 1.8 volts. I2?C™, Microwire™ and 4-wire bus interface protocols 
are standard. Devices come in three standard operating temperature 
ranges; commercial, industrial and automotive. Small footprint packages 
include: 8-lead DIP, 8-lead SOIC in JEDEC and EIAJ body widths and 
14-lead SOIC. Other key features of the Serial EEPROM product line 
include: electrostatic discharge (ESD) protection greater than 4K volts 
and endurance of 100K cycles minimum and one million typical. 


Microchip is a high-volume supplier of Serial EEPROMs to all the major 
markets worldwide, including consumer, automotive, industrial, com- 
puter and communications. To date, more than 80 million units have 
been produced. Microchip is continuing to develop additional unique 
Serial EEPROMs. 


The CMOS Parallel EEPROM devices from Microchip are available in 
4K, 16K, and 64K densities. The manufacturing process used for these 
EEPROMs ensures 10,000 to 100,000 write and erase cycles typically. 
Data retention is more than 10 years. Fast write times are less than 200 
psec. These EEPROMs work reliably under demanding conditions and 
operate efficiently at temperatures from —40°C to +125°C. Microchip’s 
expertise in advanced SOIC, TSOP and VSOP surface mount packaging 
supports our customers’ needs in space-sensitive applications. 


Typical applications include computer peripherals, engine control, pat- 


‘tern recognition and telecommunications. 
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EPROMS 


APPLICATION SPECIFIC 
STANDARD PRODUCTS 
(ASSP) 


OTHER MICROCHIP 
PRODUCTS 


A HISTORY OF 
INNOVATION 


Microchip Technology Incorporated 


Microchip’s CMOS EPROM devices are produced in densities from 64K to 
512K. High Speed EPROMS have access times as low as 55 nanoseconds. 
Typical applications include computer peripherals, military, instrumentation, 
and automotive devices. Microchip’s expertise in Surface Mount Packaging 
on SOIC, TSOP and VSOP packages led to the development of the Surface 
Mount one-time-programmable (OTP) EPROM market where Microchip is 
the #1 supplier today. Microchip is also a leading supplier of low-voltage 
EPROMs for battery powered applications. 


Microchip’s new Application-Specific Standard Product (ASSP) Division 
has the mission of providing value added embedded control solutions 
through P!IC16/17 microcontroller architecture products combined with 
innovative software, silicon and assembly technology. These products will 
incorporate technology that will offer a complete solution that is both unique 
to the customer and standard in manufacture to Microchip. The central 
theme of this family is to offer a complete solution which reduces or removes 
the barriers for customers to use Microchip solutions in their products 
through the use of software embedded in secure OTP- or ROM-based 
microcontrollers, packaged to provide the highest integration to the cus- 
tomer at the best overall system cost. 


The MTA11 XXX family is the most accurate and most integrated battery fuel 
gauge product available today. The family incorporates Microchip/SPAN 
patented TrueGauge™ technology which digitally integrates battery charge 
and discharge current to provide an accurate (<3% typical) state of charge 
indication. The family operates with NiCd and NiMH battery packs from 3 
Vdc to 30 Vdc. These products are ideal for portable PC, cellular phone and 
portable consumer product applications. 


Ease of use, low voltage and low cost make the MTA41XXX mouse and 
trackball MCU firmware solutions ideal for implementing new designs for 
both PCs and Apple®computers. The products in the MTA41 XXX family are 
18-lead, low-power CMOS microcontroller ICs combined with application- 
specific software. By adding a few external components, the user can easily 
realize a complete mouse or trackball system. 


The MTA810XX product line is the first in a series of Multi-Chip Module 
(MCM) products that integrate P1C16/17 microcontrollers with EEPROM 
technology. These PICSEE™ devices are ideally suited for security, 
keyless entry, data logging and telecommunication applications. The 
combined product assembly techniques provide the user the highest perfor- 
mance solution in a compact and cost-effective package. 


Future ASSP products will include advanced features such as mixed analog 
and digital capability as well as an ever broadening family of turnkey 
software solutions for the embedded control market. 


Other Microchip products, such as Liquid Crystal Display Drivers, are 
mature products with proven track record and a large, repeat customer base. 


Microchip has along history of innovation in the semiconductor industry. For 
more than a quarter century, Microchip and its former parent company have 
been developers of leading-edge, cost-effective logic and memory prod- 
ucts. 


Microchip is credited with a number of firsts: The Metal-Oxide-Silicon (MOS) 
Integrated Circuit, DRAM, Serial EEPROM, Reduced Instruction Set Com- 
puter (RISC) microcontroller product family, UART, CMOS 64K EEPROM, 
and CMOS single chip DSP are all innovations that were originally devel- 
oped and introduced by Microchip engineers. 
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FUTURE PRODUCTS AND 
TECHNOLOGY 


QUALITY WITHOUT 
COMPROMISE 


A QUALITY AND 
RELIABILITY ALLIANCE 
WITH CUSTOMERS 


Microchip Technology Incorporated 


New process technology is constantly being developed for microcontroller, 
ASSP, EEPROM, and high-speed EPROM products. Advanced process 
technology modules are being developed that will be integrated into present 
product lines to continue to achieve a range of compatible processes. Current 
production technology utilizes dimensions down to 0.9 microns. 


Microchip’s research and development activities, include exploring new 
process technologies and products that have industry leadership potential. 
Particular emphasis is placed on products that can be put to work in high- 
performance broad-based markets. 


Equipment is continually updated to bring the most sophisticated process, 
CAD and testing tools on line. Cycle times for new technology development 
are continuously reduced by using in-house mask making, a high-speed pilot 
line within the manufacturing facility and continuously improving methodolo- 
gies. 


More advanced technologies are under development, as well as advanced 
CMOS RISC-based microcontroller, ASSP and CMOS EEPROM and EPROM 
products. Objective specifications for new products are developed by 
listening to our customers and by close cooperation with our many customer- 
partners worldwide. 


Product reliability is designed into Microchip products at the outset. Wide 
design margins are established to guarantee that every product can be 
produced easily, error-free and within the tolerances of the manufacturing 
process. 


All quality assurance tests are tighter than customer specifications. Products 
are tested at least two machine tolerances tighter than those specified by the 
customer. 


Every new product is qualified under accelerated stress testing. Test samples 
encompass the full range of processed tolerances at each step. Data sheets 
detailing these processes enable customers to reach accurate decisions 
based on known quantitative values. 


To determine whether a process is within normal manufacturing variation, 
industry-leading statistical control techniques are put to work at each process 
step. In-process controls are performed by operators in the wafer fabrication 
division and immediate corrective action is taken if they deem a process is out 
of tight control limits. Products are also sampled weekly through a variety of 
carefully monitored stress and accelerated life tests. 


Microchip’s documentation control program assures the correct document is 
always available at the point of use. Active documents are serialized and 
stamped to eliminate the possibility of performing a job from obsolete or 
incorrect instructions. 


Individuals in all departments continuously analyze the methods employed at 
their positions and formulate plans to improve performance. In all areas of our 
business, everyone is expected to make continuous improvement. 


Microchip works together with customers to establish mutual programs to 
improve the performance of our products in their systems. We go beyond the 
incoming inspection level and specification by extending our quality and 
reliability support to the point where the customer ships the system. Microchip's 
quality programs ensure that our products can be used with such impunity, a 
customer can implement improvement programs based on Microchip as your 
leading supplier. 
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Embedded Control Handbook 





Introduction to Embedded Control Solutions 





Microchip Technology's mission is to offer leadership 
semiconductor products for embedded control system 
applications. To do this we have focused our technol- 
ogy, engineering, manufacturing and marketing re- 
sources on two synergistic product lines: Serial 
EEPROMs and 8-bit PIC16/17 One Time Program- 
mable (OTP) microcontrollers. These product lines pro- 
vide the solutions to many of the problems facing design- 
ers of embedded control systems. 


In keeping with one of our guiding values this Embedded 
Control Handbook has been produced to assist our 
customers, existing and new, in their efforts to design 
and produce a state-of-the-art embedded control sys- 
tem, whether it is intended to assist consumer, automo- 
tive, computer, communications or industrial embedded 
system design. 


EMBEDDED CONTROL OVERVIEW 


The requirement to manage information processing in 
today’s systems applications necessitate the implemen- 
tation of embedded control. As opposed to compute 
intensive environments like workstations and comput- 
ers of all types, the embedded control system is intended 
not only to process specific inputs, but also to create the 
appropriate control response. The use of embedded 
control allows the system designer to develop a solution 
for the specific application with the least amount of 
overhead cost and space. Normally based around a 
microcontroller, where on-chip program memory and 
peripheral functions have been combined on a single 
chip, the needs of the embedded control system are 
specifically addressed with application specific software 
and very few, if any, peripheral devices. In the case of 
a system application where a larger memory may be 
required, the use of EPROM, EEPROM or Serial 
EEPROM, designed to communicate directly and effi- 
ciently with the microcontroller will provide this extra 
level of flexibility. 


Microchip Technology has established itself as a world 
leader in providing user-programmable embedded con- 
trol solutions. The combination of high performance 
microcontrollers from both the PIC17CXX and PIC16CXX 
Families, along with industry leading non-volatile memory 
products provides the basis for this leadership. Continu- 
ous innovation and improvement in both the design and 
manufacturing of embedded control solutions will allow 
Microchip to maintain and grow this leadership position. 
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PIC16/17 FAMILIES OVERVIEW AND 
ROADMAP 


The key to providing a successful Embedded Control 
solution is to insure that the product available has been, 
and continues to be designed to meet the requirements 
of the system designer. In order to accomplish this, 
Microchip has set itself on a course to provide the most 
useful matrix of products, allowing the system designer 
to select the microcontroller which will best suit the 
needs of his particular application. This matrix of prod- 
ucts, as shown below, provides the system designer with 
the ultimate in flexibility and versatility. 


FIGURE 1 - MATRIX OF THE PIC16/17 
FAMILY OF 8-BIT 
MICROCONTROLLERS 


EPROM EEPROM 


PIC17CXX High End 16-Bit 
Instruction 


Mid-Range 14-Bit 
PIC16CXX Instruction 


Low-End 12-Bit 
PIC16C5X Instruction 


co) 
ra) 
Cc 
= 
hme 
(e) 
= 
a 
oO 


Onboard Memory Technology —--—3 





A strong foundation has been laid with the popular and 
versatile PIC16C5X Family of High Performance, OTP 
Microcontrollers. As the base family of PIC16/17s, the 
PIC16C5X Family provides low cost, small footprint 
solutions for most embedded control applications. With 
the low end microcontroller family, Microchip has be- 
come a significant factor in the worldwide microcon- 
troller marketplace. 


The addition of the PIC17C42, first member of the 
PIC17CXX Family of high end microcontrollers, demon- 
strated Microchips continuing commitment to meet the 
needs of the embedded control systems designer. Most 
recently, with the introduction of the PIC16C64 (40-pin), 
Microchip continues its penetration of the mid level 8-Bit 
microcontroller arena. The PIC16C71 with on-chip A/D 
converter and the PIC16C84 with EEPROM program 
and data memory are members of this "mid-range" 
family. 
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Status as of October 1993 


Products** 
PIC16C54 


PICI6C54A 
PICI6CR54 
PIC16CR54A° 
PIC16C55 
PICI6C56 
PIC16C57 
PICIGCRS57A 
PICI6C58A 
Mid-range | pic16c64 128 
PIC16C71 36 


PIC16C84 K — 36 plus 
EEPROM 64 EEPROM 


Packages 
DIP, SOIC, SSOP 


DIP, SOIC, SSOP 
DIP, SOIC, SSOP. 
DIP, SOIC, SSOP 
DIP, SOIC, SSOP 
DIP, SOIC, SSOP 
DIP, SOIC, SSOP 
DIP, SOIC, SSOP 
DIP, SOIC, SSOP 
DIP, PLCC, PQFP 


DIP, SOIC 





DIP, SOIC 


SYS TIOULNOOOXOIN LIG-8 4O ATINGSA ZL/9LOld AHL ~- | STEVL 


High-end | PIC17C42 55 16 11 16 2K =— oo. = SYS 3! 0 4 — DIP, PLCC, PQFP. 


* In Development. . 
** All products have program memory code protect, watchdog timer, and power-on reset. 
+ The PIC17C42 can be user-configured for two 16-bit timers and two 8-bit timers. 
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FIGURE 2 - PIC16/17 MICROPROCESSOR MIGRATION PATH 





Performance 





PIC16/17 NAMING CONVENTION 


The PIC 16/17 family of microcontrollers covers the low- 
end, mid-range and high-end 8-bit controller applica- 
tions. 


The PIC16C5X family with its 12-bit wide instruction 
covers the low-end and offers the most cost advantage. 
In cost, this family competes well against the 4-bit 
microcontrollers, yet in performance it out-performs 
other low-end 8-bit controllers. 


TABLE 2 - PIC16/17 NAMING CONVENTION 
PIC16C5X/CR5X 


FE] soe | 
PIC16C6X/CR6EX 


Mid-Range PIC16C7X/CR7X 
PIC16C8X/CR8X 





16C5X 








16CXX 






17CXX 










12-bit Architecture 


14-bit Architecture 


Hi High End PIC17C4X/CR4X 16-bit Architecture Digital Only (OTP/ROM) 


17C42 


16C74 


In Production 


In Development 


<> 
CD 


The PIC16CXX family (PIC16C6X, PIC16C7X, 
PIC16C8X) with its 14-bit wide instruction set and inter- 
rupt capability are most suitable for mid-range applica- 
tions. This family is well-suited for integrating larger 
program memory, RAM and a wide variety of peripher- 
als. 


Finally, the PIC17CXX family with its 16-bit wide ex- 
tended instruction set, external code execution capabil- 
ity and more sophisticated interrupt structure is a power 
high-end 8-bit controller family. (See Table 2.) 





Digital Only (OTP/ROM 


Digital Only (OTP/ROM) 


With Analog Functions, e.g. A/D (OTP/ROM) 
) 


) 
With EEPROM Memory (OTP/ROM 
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PIC16/17 LOW VOLTAGE 
OPERATION 


A wide operating range (as low as 2.0V for ROM and 
2.5V for OTP) has made the PIC16C5X and PIC16CXX 
families the ideal solution for thousands of applications 
worldwide. 


SERIAL EEPROM OVERVIEW 


Serial EEPROMs from Microchip come in a variety of 
densities, operating voltages, bus interface protocols, 
operating temperature.ranges, and space saving pack- 
ages. | 


Densities: 


Currently range from 1K to 64K with higher density 
devices in development. 


Bus Interface Protocols: 


All major protocols are covered: 2-wire, 3- wire and 4- 
wire. 


Operating Voltages : 


In addition to standard 5V devices there are two low 
voltage families. The “LC” devices operate down to 
2.5V, while the “AA” family operates, in both read and 
write mode, down to a breakthrough 1.8V, making these 
devices highly suitable for alkaline and NiCad battery 
powered applications. 


Temperature Ranges: 


Like all Microchip devices, Serial EEPROMs are offered 
in Commercial (0°C to 70°C), Industrial (-40°C to 85°C) 
and Automotive (-40°C to 125°C) operating temperature 
ranges. 


Packages: 


The focus here is on small. Most devices are available 
in8 pin PDIP or 8pin SOIC. The SOIC comes in two body 
widths; 150 mil and 207 mil. 


Endurance is specified at 1M Erase/Write typical and 


100K cycles minimum with a data retention specification 
greater than 40 years. ESD protection is guaranteed up 
to 4K volts. 


OTP EPROM OVERVIEW 


Microchip also provides its customers with a number of 
CMOS OTP EPROMs. Densities offered include: 64K, 
128K, 256K and 512K , all ina X8 organization. Our high 
speed 256K device also comes in a X16 organization. 
Access times range from a high performance 55ns to a 
practical 200ns or greater. Low voltage devices, capable 


of operating at 3V are available at the 256K and 512K 
density levels. Surface mounted packages, such as 
TSOP, PLCC and SOIC as well as the more traditional 
DIP packages are offered. All EPROMs are available in 
Commercial, Industrial and Automotive temperature 
ranges. 


A full listing of the Serial EEPROM and EPROM product 
offerings are shown in Table 3. See the individual 
Microchip data sheet /data book for detailed information. 


THE ADVANTAGES OF ONE-TIME- 
PROGRAMMABLE 


In keeping with Microchips goal of providing the embed- 
ded control system designer with the best tools avail- 
able, Microchip has developed world-leading OTP tech- 
nology. Microchip offers a wide variety of OTP EPROM 
products. Similarly, by basing the PIC16/17 Family of 
products around an EPROM program memory capabil- 
ity, all of the advantages of OTP, both in development 
and production, have been made economically avail- 
able to the systems manufacturer. The benefits of OTP 
technology include: 


e Lower costs and shorter lead times 
« Reduced time to market 
¢ In-circuit programming capability 


Code protection via security fuse | 


Reduction of inventory requirements at system 
manufacturing site 


¢ Quick correction of bugs detected in manufacturing 


e 


Quick product feature changes in response to 
customer requests 


¢ Reduces wasted inventory 


APPLICATION SPECIFIC STANDARD 
PRODUCTS 


The Application-Specific Standard Products (ASSP) 
Division complements and strengthens Microchip's lead- 
ership position in 8-bit microcontrollers and related 
specialty memory products for the embedded control 
market. The ASSP Division employs innovative multi- 
chip module packaging, applications expertise, firm- 
ware and new technology to create integrated, single- 
chip solutions for specific high-volume embedded con- 
trol applications such as PC pointing devices and energy 
management. By offering more complete solutions, 
Microchip can provide its customers with higher value- 
added products, with the additional benefits of faster 
time-to-market and lower design overhead. A fullASSP 
product listing is shown in Table 4. 
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TABLE 3 - Emee SERIAL EEPROMS PRODUCT SELECTION GUIDE 


Density Max. Clock} Endurance | Temp. Package Operating Product Selection as 
FAMILY Organization Frequency | (cycles min.) | Range Types Voltage | of October 1993 


2-Wire (17C™) Bus Protocol 












P= Plastic DIP 
|J= Ceramic DIP 
SM = 150mil SOIC 
SN = 207mil SOIC 
SL = SOIC 


24C01A | 1K bits (128 X 8) 





100 kHz P, J, SN, SM 















24C02A | 2Kbits(256X8) | 100 kHz P, J, SN, SM 














AK bits (512 X 8) 100 kHz P,J 


SL 









2-WIRE 
FAMILY 








C= Commercial 
(0°C to 70°C) 
‘!= Industrial 
(-40°C to 85°C) 
E= Automotive 
(—40°C to 125°C) 


1K bits (128 X 8) 100 kHz 


100 kHz 





2K bits (256 X 8) 










4K bits (512X8) | 100 kHz 


2.5V-5.5V 
2.5V-5.5V 
2.5V-5.5V 


400 kHz 
400 kHz 
400 kHz 









1K bits (128 X 8) 
2K bits (256 X 8) 
4K bits (512 X 8) 












LOW- 
VOLTAGE 
2-WIRE 
FAMILY 















8K bits (1K X 8) 400 kHz 2.5V-5.5V 












16K bits (2K X 8) 2.5V-5.5V 





400 kHz 





1.8V-5.5V 
1.8V-5.5V 
1.8V-5.5V 


24AA01 
24AA02 
24AA04 


100 kHz 
100 kHz 
100 kHz 








1K bits (128 X 8) 
2K bits (256 X 8) 
4K bits (512 X 8) 













AA LOW- 
VOLTAGE 
2-WIRE 
FAMILY 

















1M Cc 







po 
























24AA08 8K bits (1K X 8) 100 kHz 1M Cc 1.8V-5.5V 


Ro 















24AA16 16K bits (2K X 8) 100 kHz 1M Cc 1.8V-5.5V 





—s 
pf @ 





















24032 | 32K bits(4KX8) | 400 kHz 1M 8 4.5V-5.5V 
SMART | 24LC32 | 32Kbits(4KX8) | 400kHz 1M 8 2.5V-6.0V 
SERIAL | 
>-WIRE | 24C65 | 64K bits (8K X8) | 400 kHz 1M 8 4.5V-5.5V 
FAMILY | o41c65 | 64K bits (8K X8) | 400 kHz 1M 8 2.5V-6.0V 
24AA65 | 64K bits (8K X8) | 400 kHz 1M 8 1.8V-6.0V 

















3-Wire (Microwire™ )/4-Wire Bus Protocol 





256 bits (16 X 16) P, J, SN, SM 4.5V-5.5V 








1K bits (64 X 16) P, J, SN, SM 4.5V-5.5V 





STANDARD 
3-WIRE 
FAMILY 




















2K bits (256 X 8) 4.0V-5.5V 


or (128 x 16) 


4K bits (512 X 8) 
or (256 x 16) 


P, J, SN, SM 






P, J, SN, SM 4.0V-5.5V 
































93LC46 1K bits (128 X 8) 2.0V-6.0V 
or (64 x 16) 
93LC56 2K bits (256 X 8) 2.0V-6.0V 





or (128 x 16) 


4K bits (512 X 8) 
or (256 x 16) 


1K bits (64 x 16) 
2K bits (128 x 16) 
4K bits (256 x 16) 


LOW- 
VOLTAGE | 93LC66 
3-WIRE 
FAMILY 










2.0V-6.0V 






2.0V-6.0V 
2.0V-6.0V 
2.0V-6.0V 

















































93AA46 | 1K bits (128 X 8) 1.8V-5.5V 
AA LOW- or (64 x 16) 
VOLTAGE | 93AA56 | 2K bits (256 X 8) 1.8V-5.5V 
a LY or (128 x 16) 
Q3AA66 | 4K bits (512 X 8) 1.8V-5.5V 


or (256 x 16) 


59C11 1K bits (128 X 8) 1 MHz 1M P, J, SN, SM 4.5V-5.5V 
or (64 x 16) 100 K 
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TABLE 4 - ASSP PRODUCT SELECTION GUIDE 


FIRMWARE PRODUCTS 





Operating Tein. Number of Package 
Device Voltage Range Pins - anand 


POINTING 


DEVICES 


BATTERY 
DEVICES 


STANDARD 
CMOS 
DEVICES 


LOW- 
POWER 
DEVICES 


MTA41300 


MTA41120 


MTA41110 


MTA11200 


MTA81010-RC 


MTA81010-XT 


MTA8R1010-RC 


MTA8R1010-XT 


MTA81010-LP 


MTA8R1010-LP 


Serial, PS/2 


ADB 


PS/2 


DC to 4 MHz 


DC to 4 MHz 


DC to 4 MHz 


DC to 4 MHz 


DC to 40 KHz 


DC to 40 KHz 


2 Button Mouse, 
Trackball 


2 Button Mouse, 
Trackball 


2 Button Mouse, 
Trackball 


Fuel Gauge for 
NiCD, NiMH, 
Lead Acid 


512 x 12 EPROM, 
1K EEPROM 


512 x 12 EPROM, 


1K EEPROM 


512 x 12 ROM, 
1K EEPROM 


512 x 12 ROM, 
1K EEPROM 


512 x 12 EPROM, 


1K EEPROM 


512 x 12 ROM, 
1K EEPROM 





EASE OF PRODUCTION UTILIZING 
QUICK TURN PROGRAMMING (QTP) 
AND SERIALIZED QUICK TURN 
PROGRAMMING (SQTP) 


Recognizing the needs of high volume manufacturing 
operations, Microchip has developed two programming 
methodologies which make the OTP products as easy to 
use in manufacturing as they are efficient in the system 
development stage. 


Quick-Turn-Programming allows factory programming 
of OTP product prior to delivery to the system manufac- 
turing operation. PIC16/17, EPROM and serial EEPROM 
products can be automatically programmed with the 
users program during the final stages of the test opera- 
tion at Microchip’s assembly and test operation in 
Kaohsiung, Taiwan. This low cost programming step 
allows the elimination of programming during system 
manufacturing and essentially allows the user to treat 
the PIC16/17 and memory products as custom ROM 
products. With 1 to 4 week lead times on QTP product, 
the user no longer needs to plan for the extended ROM 
masking lead-times and masking charges associated 
with custom ROM products. This capability, combined 


3.0V-6.25V PDIP, SOIC, SSOP 


3.0V-6.25V PDIP, SOIC, SSOP 


3.0V-6.25V PDIP, SOIC, SSOP 


3.0V-6.25V PDIP, SOIC, SSOP 


3.0V-6.25V PDIP, SOIC, JW 


3.0V-6.25V PDIP, SOIC, JW 


2.5V-6.25V PDIP, SOIC 


2.5V-6.25V PDIP, SOIC 


2.5V-6.25V PDIP, SOIC 


2.0V-6.25V PDIP, SOIC 


with the off-the-shelf availability of standard OTP proa- 
uct, insures the user of product availability and the ability 
to reduce his time-to-market once product development 
has been completed. 


Unique to the 8-Bit Microcontroller market is Microchip’s 
ability to enhance the QTP capability with SQTP. Seri- 


alized Quick-Turn-Programming allows for the program- 


ming of devices with unique, random or serialized iden- 
tification codes. As each PIC 16/17 device is programmed 
with the customers program code, a portion of the 
program memory space can be programmed with a 
unique code, accessible from normal program memory, 
which will allow the user to provide each device with a 
unique identification. This capability is ideal for embed- 
ded systems applications where the transmission of key 
codes or identification of the device as a node within a 
network are essential. Taking advantage of this capa- 
bility allows the system designer to eliminate the require- 
ment for expensive off-chip code implementation using 
DIP switches or non-volatile memory components. The 
SQTP offering, available only from Microchip, provides 
the embedded systems designer with a low cost means 
of putting a unique and custom device into every system 
or node. 
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A Comparison of Low End 8-Bit Microcontrollers 





INTRODUCTION 


The PIC16C5X Family of microcontrollers from Micro- 
chip Technology, Inc. provides significant execution 
speed and code-compaction improvement over any 
other 8-bit microcontroller in its price range. 


The superior performance of the PIC16C5X microcon- 
trollers can be attributed primarily to its RISC-like archi- 
tecture. The PIC16C5X employs Harvard architecture, 
i.e., has separate program memory space (12-bit wide 
instructions) and data memory space (8-bit wide data). 
It also uses a two Stage pipelining instruction fetch and 
execution. Allinstructions are executed in a single cycle 
(200 ns @ 20 MHz clock) except for program branches 
which take two cycles, and there are only 33 instructions 
to remember. 


Separation of program and data space allows the in- 
struction word to be optimized to any size (12-bit wide in 
case of PIC16C5X). This makes it possible, for ex- 
ample, to load an 8-bit immediate value in one cycle. 
First, because there is no conflict between instruction 
_ fetch and data fetch (as opposed to von Neumann 
architecture) and secondary because the instruction 
word is wide enough to hold the 8-bit data. 


PIC16C5X 
Byte/Words Cycles 
SWAPF REGHI,W 1 
IORWF REGLO 1 


ST62 Byte/Words Cycles 


LD A 
RLC A 
RLC A 
A 
A 


, REGHI 2 
1 


RLC { 
RLC { 
ADD A, REGLO { 
LD REGLO,A _2_ 
10 


REGHI & REGLO are registers soe 
addressable by short direct addressing mode. 


Z86CXX Byte/Words Cycles 


SWAP REGHI 7 : 
OR REGHI,REGLO = —Z—- 4 


5.33 us 
REGHI and REGLO are addressable via 
the working register addressing mode. 
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In the following sections we will compare the PIC16C5X 
@ 20 MHz with: 


¢ SGS-Thomson ST62 @ 8MHz 

¢ Motorola MC68HC05 @ 4.2 MHz 
¢ Intel 8048/8049 @ 11 MHz 

¢ Zilog Z86CXX @ 12 MHz 

¢ National COP800 @ 20 MHz 


Several coding examples will be considered. While the 
comparisons are not entirely scientific, they will, never- 
theless, demonstrate to the reader the relative superior 
performance of the PIC16C5X. The examples chosen 
here are used frequently in microcontroller applications. 


PACKING BCD 


This example will take two bytes in RAM or registers, 
each containing a BCD digit in the lower nibble and 
create a packed BCD data byte, which is stored back in 
the register or RAM location holding the low BCD digit. 


COP800 
Byte/Words Cycles 


A,[B+] 1 2 
A 


1 1 
A,[B] 1 1 
A,[B] 1 1 

4 5 


B is pointing to the higher BCD digit initially. S MS 
After auto-increment, it points to the lower BCD digit. 


MC68HCO05 avieiwerds 
LDA —«REGHI 2 
ROLA 1 
ROLA 1 
ROLA 1 
ROLA { 

ADD  REGLO 2 
STA REGLO 2 


8048/8049 


Byte/Words Cycles 
MOV 1 1 


1 
1 
1 


Register Rx contains higher BCD digit, 
Ry holds lower BCD digit. 
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LOOP CONTROL 
This example is one of simple loop control where a 
register containing loop count is decremented, tested for 


dardania Byte/Words Cycles 







DECFSZ COUNT 1 te 
GOTO BEG_LOOP 1 2/- 
. 2 3/2 





0.6us/0.4 ps 










PIER Byte/Words Cycles 
DEC X q 4 
JRZ BEG_LOOP , = 2 





Z86CXX 


Byte/Words Cycles 
DJNZ COUNT, 2 10/12 
BEG_LOOP 1.67 us/2 us 


Bit Test & Branch 


This example tests a single bit in a register. or a RAM 
location and makes a conditional branch. We assume 


PIC16C5X 
Byte/Words Cycles 
BTFSC REG,7 1 1/2 
GOTO NEWADD 1 2/- 
2 3/2 
0.6 us/0.4 us 


Byte/Words Cycles 
3 





7, NEWADD 
8.125 us 
Z86CXX 
Byte/Words Cycles 
BTJRT NEWADD, 3 16/18 


REG,7 


2.67 s/3.0 us 








zero and if not branched back to the beginning of the 
loop. 


COP800 


Byte/Words Cycles 
DRSZ COUNT 1 3 
JP BEG_LOOP 1 3 
2 6 
COUNT is Register (RAM FOh-FFh). 6 us 
MC68HC05 
. Byte/Words Cycles 
DECX | 1 3 
BEQ 2 3 






8048/8069 
Byte/Words Cycles 


‘DJNZ = Rx, 2 2 
BEG_LOOP 2.73 us 


that MSB is tested and a branch is to be taken if the bit 
is set. 


sa Rs Byte/Words Cycles 
IFBIT 7,{B] 1 1 
JP NEWADD 1 3 
2 4 
B points to the memory location under test. 4us 
MC68HC05 
Byte/Words Cycles 
BRCLR,7 NEWADD 3 
2.38 US 
8048/8049 
Byte/Words Cycles 
MOV A,@Rx 1 1 
ANL A,#80H 2 2 
JNZ NEWADD 2 2 


5 ) 


Registers R1 is assumed to be pointing to 6.82 us 
the memory location under test. 
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Shifting Out 8-Bit Data & Clock Data is transmitted on the rising edge of the clock. No 
attempt is made to make the clock output symmetrical in 
order to make the code efficient. Data out is guaranteed 
on the falling edge of the clock. These conditions are 
satisfactory for most applications. 


We will now consider the task of serially shifting out an 
8-bit data and clock. Data and clock outputs are gener- 
ated under program control by toggling two output pins. 














PIC16C5X Byte Cycles Cycles 
‘Words Xmit00h Xmit FFh 
XMIT MOVLW 08H - Bit Count 1 1 1 
MOVWF BITCNT . 1 1 1 
XM1 BCF PORTB,O ;0 - Data Out Pin 1 1 1 
BCF PORTB,1 ;0 + Clock Out Pin 1 1 1 
RRF XDATA ; Rotate Right thru Carry = 1 1 1 
BTFSC STATUS,CARRY _ ; Test Carry Bit 1 2 1 
BSF PORTB,O ;1-» Data Out Pin 1 — 1 Loop 
BSF PORTB, 1 >1-© Clock Out Pin 1 d 1 
DECFSZ  BITCNT ; Decrement Count 1 1 1 
; Skip if Zero 
GOTO XM1 ; 1 2 2 
BCF PORTC,1 ;0—- Clock 1 1 1 
11 74 74 
Transmit time is the same for 00h or FFh: 74 Tcyc = 14.8 us. Note that there was 
no need to load the data in the Accumulator (W) since the PIC can operate directing on file registers. 
COP800 Byte Cycles Cycles 
‘Words XmitO00h Xmit FFh 
XMIT LD A,XDATA ; Load Data in Acc. 2 3 3 
LD BITCNT #08H ; Load Bit Count 2 3 3 
LD B,#DOH ;B Points to PORTL 2 3 3 
XM1 RBIT 0,[B] ;0 > Clock 1 1 1 
RBIT 1,[B] ;0 »~ Data 1 1 1 
RRCA ; Rotate A Right thru Carry 1 1 1 
IFC ; 1 1 1 Loop 
SBIT 1,[B] ;1—> Data 1 - 1 
SBIT 0,[B] ;0 + Clock 1 1 1 
DRSZ BITCNT ; Decrement Bit Count 1 3 3 
JP XM1 ; and Go Back if #0 1 3 3 
RBIT 0,[B] ; 1 3 3 
16 100 108 
Accumulator A is first loaded with the data word. Transmit time is maximum for data = FFh: 105 Tcyc = 105 us. 
ST62 Byte Cycles Cycles 
Words XmitO0h Xmit FFh 
LDI A, #08 2 4 4 
LD X,A ; Bit Count 1 4 4 
LD A, W :Xmit Data 1 4 4 
XM1 RES 0, DRB ;0—- Clock 2 4 4 
RES 1, DRB -O0-—-» Data 2 4 4 
SLA A ; 2 4 4 
JRNC XM2 : 1 2 2 
XM2 «SET 1, DRB -1> Data 2 - 4 p Loop 
SET 0, DRB ;1—+ CLK 2 4 4 
DEC X ; 1 4 4 
JRNZ XM1 ; 1 2 2 
RES 0, DRB ; 0+ Data 2 4 4 
19 208 240 
Register W contains the Data word. 
Transmit time for FFh = 240 cycles = 390 us. 
a LT ae CN I EE Be OI OC I le a A TE SS OS Ee PS Pe ETD 
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SHIFTING OUT 8-BIT DATA AND CLOCK (CONT.) 


MC68HC05 


XMIT 


XM1 


LDA 
LDX 


BCLR, 
BCLR 
ROLA 
BCC 

BSET 
BSET 
DECX 
BNE 

BCLR 


XDATA 
#$08 


0,PORTB 
1,PORTB 


XM2 
1,PORTB 
0,PORTB 


XM1 
0,PORTB 





: Load Xmit Data 
- Load Bit Count 


;0— Clock 
-0— Data 


{> Data 
-1-» Clock 


* 0+ Data 


Transmit time is maximum for transmitting FFh = 266 cycles = 126.7 us. 


Z86CXX 
XMIT 


XM1 


XM2 


LD 
AND 


RRC 
JR 
OR 


OR 
DJNZ 
AND 


COUNT,#8 
P2,#%FC 


XDATA 
NC,XM2 
P2, #01 


P2, #02 
COUNT,XM1 
P2,#%FC 


- Load Bit Count 
-0-—- Data, 
Clock 


; 1~ Data 
>1—- Clock 


“0 -» Clock, Data 


Transmit time is maximum for transmitting FFh = 412 cycles = 68.67 us. 


8048/8049 
XMIT 


XM1 


XM2 


MOV 
MOV 


ANL 
RRC 
JC 

ORL 


ORL 
DJNZ 


A,@RO 
R1,#08H 


Fl #0FCH 


XM2 
PORT1,#01H 


PORT1,#02H 
R1,XM1 


- RO Points to Data Word 


- Load Bit Count 


‘O-— Data, Clock 


; Rotate Right A thru Carry 


“4 +> Data 


-1+ Clock 
‘ Decrement Count 


Transmit time is maximum for transmitting FFh = 91 cycles = 124.1 us. 


Byte Cycles 





Cycles 


‘-/Words Xmit 00h Xmit FFh 


PON 


= 
brown! woe now 


nN 
NO 
Oo 


Byte Cycles 


roommwwee No 02 


ie) 
Oo 
Oo 


Cycles 


Words Xmit00h Xmit FFh 


3 10 
2 6 





Byte Cycles 
/Words Xmit 00h 
1 1 
2 2 


10 
6 


6 
10 
10 
> Loop 


10 | 
12 


_10_ 
412 


Cycles 
Xmit FFh 





(SR eT IEE EP a SO EP a SEE 
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Software Timer 


Microcontrollers quite often need to implement time menting a 10 ms time delay loop subroutine will be 
delays. Debouncing key input, pulse width modulation, considered in this section. 
and phase angle control are just a few examples. Imple- 





PIC16C5X 
Byte/Words Cycles 
DELAY MOVLW 41H :10 ms Delay Loop 1 1 
MOVWF COUNT2 ; 1 1 
CLRF COUNT1 ; 1 1 
LOOP  INCFSZ COUNT1 This Inner Loop will be 1 2/1 
GOTO LOOP ; Executed 256 Times 1 2 
DECFSZ COUNT2 1 2/1 
GOTO LOOP 1 2 
RET 1 
: 2 


Execution time for the routine = 5 + (255 x 3 + 5) « 65 = 20025 Tcyc = 10.011 ms. The PIC16C5X 
can implement delay times very precisely (when necessary) because of its fine instruction cycle resolution. 


COP800 
Byte/Words Cycles 
DELAY LD COUNT1 ,#0BH 310 ms Delay Loop 2 3 
LD B,#0EH 1 1 
LOOP DRSZ B 1 1 
JP LOOP 1 1 
DRSZ COUNT1 i 1 1 
JP LOOP : 1 1 
RET 1 5 
8 


Execution time for the routine = (6N2 + 6) N1 + 9 cycles. Here N1 = OBH and N2 = OEH, 
which gives us: 999 Tcyc = 9.99 ms. 


Smee Byte/Words Cycles 
LDI A, #FF 2 4 
LD X,A ; LOOP1 Count 1 4 
LDI A, #04 2 4 
LD Y,A ; LOOP2 Count 1 4 
LOOP DEC X ; 0 CLK 1 4 
JRNZ LOOP 1 2 
DEC bg ; 0 CLK 1 4 
JRNZ LOOP 1 2 


Execution time for the subroutine = (6N1 + 6) N2 + 16 cycles, 
where N1 = FFh, N2 = 04 gives us 10.01 ms. 





MC68HC05 
Byte/Words Cycles 
DELAY LDX $2D 310 ms Delay Loop 2 2 
LDX $5C 2 2 
LOOP DECA ; 1 3 
BNE 2 2 
DECX LOOP ; 1 3 
BNE : 2 2 
RTS LOOP ; a 6 
Execution time for the subroutine = (5 x N1 + 5) N2 + 10, with N1 = 2DH, N2 = 5CH, 
time delay = 10.081 ms. 
Se a Ne Se te Ee a De Re eee a Oe a eC ree SN ere 
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SOFTWARE TIMER (CONT.) 
Z86CXX 
DELAY LD | COUNTI,#%61 10 ms Delay Loop he a 
LD COUNT2,#%33 4 5 6 
LOOP DJNZ COUNT1,LOOP D 10/12 
DJNZ COUNT2,LOOP 
RET 2 10/12 
1 14 - 
9 
Total execution time = (12N1 + 10) N2, with N1 = 61H, N2 = 33H, time delay = 59976 cycles = 9.979 ms. 
8048/8049 
Byte/Words Cycles 
DELAY MOV COUNT1,#13H 310 ms Delay Loop 2 2 
LOOP1 MOV COUNT2,#AFH : 2 2 
LOOP2 DJNZ COUNT2,LOOP2 2 2 
DJNZ COUNT1,LOOP1 2 2 
RET ; 1 2 
9 


Execution time for the subroutine = (2N1 + 4) N2 + 4 cycles. Here N1 = 13H, N2 = AFH, 
which gives us: 7354 cycles = 10.028 ms. 


DS00520B-page 6 © 1993 Microchip Technology Inc. 
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SUMMARY 


Table 1 summarizes code sizes for different microcon- 
trollers. The overall relative code size number is an 
average of the individual relative code sizes. Given that 
the PIC16C5X’s program word size is 12-bit, whereas all 
the other microcontrollers have 8-bit program memory, 
a compaction of 1.5 us is expected. Clearly, the 


Table 2 summarizes relative execution speed. The 
overall speed is an average of relative speed numbers. 
For example, the COP800 will, on an average, exhibit 
27% of the code execution speed of a PIC16C5X. In 
other words, the PIC16C5X will be 1/0.27 = 3.7 times 
faster than a COP800 on an average. 


PIC16C5X meets this compaction (except for the 
COP800) and exceeds in most comparisons. 


TABLE 1 - COMPARISON OF CODE EFFICIENCY* 


Packing Loop Bit Test 
BCD Control & Branch 
4 2 2 


COP800 2.00 1.00 1.00 





Overall 





8-Bit Sync 10 ms Soft- 
Transmission ware Timer 
16 8 


1.46 1.00 





ST62 


MC68HC05 









Z86CXX 


8048/8049 










PIC16C5X 
@ 8 MHz 






* In each box, the top number is the number of program memory locations required to code the 
application. The bottom number is relative code size compared to the PIC16C5X: 


# program memory locations for other microcontroller 
# program memory locations for the PIC16C5X 


ee 
© 1993 Microchip Technology Inc. DS00520B-page 7 
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Microcontroller Comparison 


FIGURE 1 - CODE SIZE COMPARISON 


Lil 
N 
7) 
Lu 
a 
O 
O 
wi 
= 
- 
<q 
wud 
ud 
o 


PIC16C5X 
COPs00 
MC68HC05 
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TABLE 2 - COMPARISON OF EXECUTION SPEED* 





Packing Loop Bit Test 8-Bit Sync 10 ms Soft- 

BCD Control & Branch Transmission ware Timer Overall 
COP800 5 us 6 us 4us 105 us 10 
@ 20 MHz 0.08 0.0832 0.1252 0.1408 = 0.108 
ST62 45.5 us 9.75 us 8.125 us 390 us 4 
@ 8 MHz 0.0088 0.0615 0.0738 0.0329 7 0.0455 
MC68HC05 10.05 us 2.86 us 2.38 us 126.7 us 
@ 4.2 MHz 0.038 0.1748 0.24 0.1168 = 0.136 
Z86CXX 2.33 us 1.835 us 2.835 us 68.67 us 5a 
@ 12 MHz 0.172 0.272 0.176 0.224 = 0. 
8048/8049 5.45 us 2.73 us 6.82 us 124.1 us (B 
@ 11 Mhz 0.0732 0.1824 0.0732 0.1196 = 0.1 


PIC16C5X 


0.6/0.4 us 0.6/0.4 us 


@ 20 MHz 





* In each box, the top number is the time required to execute the example code, while the 
bottom number is a measure of relative performance compared to the PIC16C5X: 


time required to execute code by the PIC16C5X 
time required to execute code by other microcontroller 


FIGURE 2 - EXECUTION SPEED COMPARISON 


HE FASTEST § 


RELATIVE EXECUTION SPEED 


8048 


@ 11 MHz 


N 
oes 
S= 
~O 
On 
ae 


MC68HC05 
@ 4.2 MHz 
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NOTES: 


DS00520B-page 10 © 1993 Microchip Technology Inc. 











® 
Microchip AN51 4 
Software Interrupt Techniques 
INTRODUCTION CREATING CONSTANT TIME 


This application note describes a unique method for 
implementing interrupts in software on the PIC16C5X 
series of microcontrollers. The method takes advantage 
of the PIC16C5X’s architecture which allows changing 
the program counter under software control. Up to 8 
interrupt lines are possible, but the practical limit for 
simple code generation is 6 interrupts, or 64 possible 
input conditions. The interrupt detection time is under 
software control and standard I/O pins are used as the 
interrupt lines. 


THEORY OF OPERATION 


SOFTWARE POLLING OF I/O LINES REPLACES 
HARDWARE INTERRUPT 


The interrupt conditions are determined by detecting 
changes on the I/O lines that have been selected to be 
the interrupt lines. These changes are used to create a 
jump table that allows a different program response to 
each interrupt condition. The interrupt response time is 
under software control and can be as short as ten to 
twenty microseconds, depending on main program and 
interrupt subroutine program length. 


CREATING THE INTERRUPT SUBROUTINE JUMP 
TABLE 


Each I/O condition may have its own unique subroutine 
to respond to changes on the interrupt lines. Direct 
access to these routines is achieved by using the 
PIC16C5X’s_ ability to change the program counter 
under software control. Here is an example of how two 
I/O lines may be polled: 


MOVE CONDTN,W ;LOAD I/0 CONDITION INTO W 


;REGISTER 

ANDLW 3 *MASK OFF TOP 6 BITS 

ADDWF 2,1 7;ADD INPUT TO PROGRAM COUNTER 
7TO CREATE JUMP TABLE 

GOTO MAIN 7FOR NO CHANGE GO TO MAIN 


7 PROGRAM 


GOTO INT1 7FOR CHANGE IN BIT 0 GOTO INT1 


GOTO INT2 7FOR CHANGE IN BIT 1 GOTO INT2 


GOTO INT3 7FOR BOTH CHANGE GOTO INT3 


The changes to the I/O lines have been used to create 
a two bit number that is added to the program counter. 
The GOTO that is executed depends on the new pro- 
gram counter address. 


POLLING 


In most applications requiring interrupts, itis important to 
poll the interrupt lines at fixed time intervals, usually only 
a few microseconds in length. Two techniques may be 
used on the PIC16C5X to achieve this. They are dividing 
the main program into multiple sections and implement- 
ing an elapsed time counter (see flow chart). Both of 
these techniques use the same program jump table 
concept that was described above. First, the main pro- 
gram is divided into several sections based on the 
desired !/O polling time. When MAIN is called a branch 
register is added to the program counter. This deter- 
mines which section of MAIN code should be executed 
next. At the end of execution the branch register is 
decremented so the next section of code will be ex- 
ecuted after the next polling. Ifthe branch register is zero 
then the number of sections of main code is added into 
it to start the main program over again. 


An elapsed time counter can be implemented using the 
RTCC counter. At the beginning of I/O polling the RTCC 
register is cleared. It then starts counting the instruction 
cycles. Then after the main program subsection has 
been executed, the RTCC register is subtracted from the 
desired polling time. This determines how many instruc- 
tions need to be executed before the next polling. A jump 
table is then created to execute these instructions before 
the next polling. An example is shown below. This 
example assumes from zero to 15 additional instruction 
cycles are needed. Actual numbers need to be com- 
puted for each individual application. 


MOVLW POLL ;POLL=DESIRED POLL CYCLES - 15 


SUBWF RTCC,W ;DETERMINE HOW MUCH TIME TO WAIT 


ADDWF 2,1 ;ADD WAIT TIME TO PROGRAM 

COUNTER 

NOP ;15 ADDITIONAL INSTRUCTION CYCLES 
;TOTAL OF 15 NOP’S 

NOP ;1 ADDITIONAL INSTRUCTION CYCLES 


GOTO START ;0 ADDITIONAL INSTRUCTION CYCLES 


© 1993 Microchip Technology Inc. 
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For example, if the desired instruction time is 50 cycles 
and the subsection we just executed has a consumed a 
total of 40 instruction cycles (including all overhead 
cycles) the value of | 


RTCC(40) - POLL(50-15(35)) =5 


will be added to the program counter. The program will 
then jump to the sixth NOP. That NOP plus the 9 
following it will be executed for a total of ten more 
instruction cycles. Note that the final GOTO has two 


FIGURE 1 - SOFTWARE INTERRUPT FLOW CHART 


instruction cycles and these must be included in the 
program overhead. 


Example 


The following example (see flow chart and code) is the 
core program for the software interrupt technique de- 
scribed above. This program assumes four interrupt 
conditions, four main program sections and an eight 
additional elapsed time instructions. 





— 


START 


Load M into 
Branch Register 


Setup RTCC for 
Check Time 





Clear RTCC 


Check I/O 


Add 1/0 to PC 


Interrupt 
Jump Table 


Zz 


ee 


No Interrupt - Interrupt 
Interrupt Condition 1 Condition N 


Add Branch 
Register to PC 


Program 
Jump Table 


= 


Program Program 
Section 1 “a Section M 
Decrement {|=0 | LoadM into 
Branch Register Branch Register 
eee eee 


Ria RINE call 


NO 7 
Check for RTCC 
Equal to Time YES 
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APPENDIX A: 
MPASM B0.54 PAGE 1 
LIST P=16C54 

; SOFTWARE INTERRUPT APPLICATIONS 

;BRANCH IS MAIN PROGRAM REGISTER 
0008 BRANCH EQU 8 
0009 CNDTN EQU 9 
OO0A IO EQU OA 
000B TEMP EQU OB 
0000 0069 SETUP CLRF CNDTN 
0001 0c04 MOVLW 4 
0002 0028 MOVWF BRANCH ;FOUR MAIN PROGRAM SECTIONS 
0003 0co8s MOVLW = 8 
0004 0002 OPTION ;SET RTCC TO ONE COUNT PER INSTRUCTION CYCLE 
0005 0061 START CLRF at ;CLEAR RTCC REGISTER 
0006 0206 MOVE 6,W ;READ I/O 
0007 002A MOVWF IO 
0008 0109 IORWF CNDTN,W ;THIS SECTION OF CODE CALCULATES THE 
0009 002B MOVWE TEMP ;JUMP TABLE. ANY INPUT THAT CHANGES FROM 
000A 0209 MOVE CNDTN,W ;A ZERO TO A ONE IS CONSIDERED AN INTERRUPT. 
000B O00AB SUBWE  TEMP,1 ;THE EQUATION IS: 
000C 020A MOVE IO, W ; (IO + CNDTN) - CNDTN = INTERRUPT 
000D 0029 MOVWE CNDTN ;WHERE IO IS CURRENT INPUT AND 
000E 020B MOVE TEMP,W ;CNDTN IS PREVIOUS INPUT. 
O00F 0E03 ANDLW 3 ;MASK OFF TOP 6 BITS 
0010-0152 ADDWF 2,1 ;ADD INPUT TO PC TO CREATE JUMP TABLE 
0011 0OA1B GOTO MAIN ;FOR INPUT=00 
0012 0A15 GOTO INTL ;FOR INPUT=01 
0013 0A17 GOTO INT2 ;FOR INPUT=10 
0014 0A19 GOTO INT3 ;FOR INPUT=11 
0015 0000 INT1 NOP ; INTERRUPT LINE 1 CODE 
0016 OA0S GOTO START 
0017 0000 INT2 NOP ; INTERRUPT LINE 2 CODE 
0018 OA0S GOTO START 
0019 0000 INT3 NOP ; INTERRUPT LINES 1 AND 2 CODE 
001A OA05 GOTO START 
001B 0208 MAIN MOVE BRANCH, W 
001C 01E2 ADDWF 2,1 ;ADD BRANCH TO PC TO CREATE JUMP TABLE 
001D 0000 NOP 
001E 0A28 GOTO MAIN4 ; JUMP TABLE, LAST FIRST ON DECREMENT TABLE 
OO1F 0A26 GOTO MAIN3 
0020 0A24 GOTO MAIN2 
0021 0A22 GOTO MAIN1 
0022 0000 MAIN1 NOP ;MAIN PROGRAM CODE BANK ONE 
0023 OA2A GOTO BRNCHK 
0024 0000 MAIN2 NOP ;MAIN PROGRAM CODE SECTION TWO 
0025 OA2A GOTO BRNCHK 
0026 0000 MAIN3 NOP ;MAIN PROGRAM CODE SECTION THREE 
0027 OA2A GOTO BRNCHK 
0028 0000 MAIN4 NOP ;MAIN PROGRAM CODE SECTION FOUR 
0029 OA2A GOTO BRNCHK 
002A 02E8 BRNCHK DECFSZ BRANCH,1 ;DECREMENT BRANCH REGISTER AND CHECK FOR ZERO 
002B OA2E GOTO TIMCHK 
002C 0Cc04 MOVLW 4 
002D 0028 MOVWF BRANCH ;RELOAD BRANCH WITH 4 AT END OF MAIN 
002E 0C29 TIMCHK MOVLW  D/’4i' ;CHECK TO SEE IF RTCC HAS REACHED 50 (50-7) 
© 1993 Microchip Technology Inc. -  DS00514B-page 3 
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002F 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 


0081 
01E2 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0A0S 


Errors 


Warnings : 


GOTO START 
END 


Software Interrupt Techniques 


;DETERMINE WAIT TIME 
;ADD WAIT TIME TO PC 
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Microchip AN527 
Software Stack Management 
INTRODUCTION IMPLEMENTATION 


The PIC16C5X has a stack which is only 2 deep, as a 
result of which only two nested calls can be made (i.e. 
only one call within a call routine). If more than two levels 
of subroutine nesting is required, the following Ap Note 
can be used to implement a stack manager to handle the 
flow of the calls. 


Note: Since the amount of RAM on the PIC16CXxX is 
limited, it would be prudent to determine the maximum 
number of nested calls which have to be made in a 
program and define the stack length appropriately. 


Aurthor: Stanley D'Souza 
Logic Products Division 


© 1993 Microchip Technology Incorporated 


This Application Brief implements a 5 deep stack, so 5 
nested calls can be made without overflowing the stack. 
NCALL is defined as a MACRO which will be used 
instead of the mnemonic CALL, when a subroutine call 
is made. The NCALL routine, “pushes” the return PC 
value on the “stack” and then executes the called sub- 
routine. At the end of the subroutine, instead of using the 
RETLW k instruction, aGOTO RETURN is executed, 
where RETURN is a routine which “pops” the return PC 
value from the “stack” and resumes the normal flow of 
the program. 


Notes: 


Since Software Stack Management utilizes the FSR 
register, and indirect addressing, the user should re- 
Store the "original" values to the FSR register if it is 
utilized elsewhere in the program. 
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MPASM BO.54 


0002 
0004 


0008 


O1FF 


0000 
0001 
0002 


0003 
0004 
0005 
0006 


0007 


0008 
0009 
OO0A 
000B 


000C 
000D 
O00E 


OO00F 


0010 
0011 
0012 
0013 
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0005 


0A07 


0c08 
0024 
0A07 


00E4 
0C03 
01C0 
0022 


0000 


0202 
0020 
02A4 
OAOF 


0000 
0000 
0003 


0000 


0202 
0020 
02A4 
0A16 


Management 





PAGE 


KKK KKK KKK KKK KK KKK KK KKK KEKE KKK KKK KEKE KEKEKRKKKKEKKEKKEKKKESE 


sm.asm: 

Routine, demonstrating how to implement a stack 
manager capable of handling more than 2 
subsequent subroutine calls. ; 
Note: Since this is a demo, NOP has been used 
where normally the body of the subroutine would 


reside. 
KKK HKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KK KKKEKKKKK 


“se *s *%e *8 “8s Ye “s Yo “Se VSO 


LIST P=16C54 


PC EQU 2 

FSR EQU 4 
ORG 8 

STACK RES 5 sdefine stack size = 5. 
ORG OLFE 


GOTO START 


~s 


ORG 0 


INIT MOVLW STACK sload “stack” as indirect pointer 
MOVWFE FSR ; / 
GOTO START ; / 


KH KK KKK KK KEKE KK KKK KK KKK KKK KKK KEK KKK KKK KK KKH KKKKKKKKEKKEK 


efine NCALL as a MACRO used instead of the 
mnemonic CALL. 


Q + 


NCALL MACRO LABEL 


MOVF PC,W ;save PC on “stack” 
MOVWE 0 ; f 
INCF FSR ;Inc. “stack” pointer. 


GOTO LABEL 
ENDM 


jump to routine 


return from subroutine NCALL 


~s =e ~“e 


RET DECF FSR rpoint to last “stack” location 
MOVLW 3 ;add 3 and output value from FSR 
ADDWF 0,W ; / 
MOVWE PC ;yload in PC as next executable 


instruction 


KKK KK KKK KK IKKE KKK IKKE KEKE KKK KKK KEK KKK KEK KEK KK KKKKKKKKKAKKEKKK 


- =e =e “a Tea Te 


TART NOP 
NCALL TOM 
MOVE PC,W ;save PC on “stack” 
MOVWE 0 ; / 
INCF ESR yInc. “stack” pointer. 
GOTO TOM ;jJump to routine 
NOP sbody of main routine 
NOP ; / 
SLEEP 

TOM NOP 
NCALL DICK 
MOVF PC, W ;save PC on “stack” 
MOVWE 0 ; / 
INCF FSR yInc. “stack” pointer. 
GOTO DICK ;jump to routine 
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0014 0000 NOP rboody of routine TOM 
0015 OA03 GOTO RET 
0016 0000 DICK NOP 

NCALL HARRY 
0017 0202 MOVF Pc,W rsave PC on “stack” 
0018 0020 MOVWE 0 : / 
0019 02A4 INCF FSR ;Inc. “stack” pointer. 
QOO1A OAI1D GOTO HARRY ;jump to routine 
001B 0000 NOP ;body of routine DICK 
001C OA03 GOTO RET 
001D 0000 HARRY NOP ;body of routine HARRY 
001E 0000 NOP ; / 
OO1F O0A03 GOTO RET 

END 
Errors ; 0 
Warnings : 0 

: 
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NOTES: 
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® 
Microchip AN522 
Power-Up Considerations 
INTRODUCTION the start-up timer are reset to appropriate states by the 


~ When powering up al! microcontrollers itis necessary for 
the power supply voltage to traverse voltage ranges 
where the device is not guaranteed to operate before the 
power supply voltage reaches its final state. Since some 
circuits on the device (logic) will start operating at 
voltage levels lower than other circuits on the chip 
(memory), the device may power-up in an unknown 
state. To guarantee that the device starts up in a known 
state, it is necessary that it contain a power-up reset 
circuit. PIC16C5X microcontrollers are equipped with 
on-chip power-on reset circuitry, which eliminates the 
need for external reset logic. This circuit will function in 
most power-up situations where Vcc rise time is fast 
enough (50 ms orless). This application note describes 
the typical power-up sequence for PIC16C5X microcon- 
trollers. Methods of assuring reset on power-up and 
after a brownout are discussed and simple, low cost 
external solutions are discussed for power-up situations 
where the PIC16C5X’s internal circuitry cannot provide 
the reset. 


POWER-UP SEQUENCE 


The PIC16C5X incorporates complex power-on reset 
(POR) circuitry on-chip which provides solid, reliable 
internal chip reset for most power-up situations. To use 
this feature, the user merely needs to tie MCLR to VbDp. 
A simplified block diagram of the on-chip reset circuitry 
is shown in Figure 1. On power-up, the reset latch and 


FIGURE 1 - PIC16C5X INTERNAL RESET CIRCUIT 


power-on reset (POR). The start-up timer will begin 
counting once it detects MCLR to be high (i.6., external 
chip reset goes inactive). After the time-out period, 
which is typically 18 ms long, the timer will reset the reset 
latch and thus end the on-chip reset signal. 





Figures 2 and 3 are two power-up situations with relative 
fast rise time on VbD. In Figure 1, VDD is stable when 
MCLR is brought high (i.e., reset pulse is being provided 
by external source). The chip actually comes out reset 
about tosT ms after that, where tosT = oscillator start-up 
timer. (The timer is called oscillator start-up timer 
because the time-out was incorporated primarily to allow 
the crystal oscillator to stabilize on power-up.) In 
Figure 3, the MCLR and VDD are tied together and 
clearly the on-chip rest mechanism is being utilized. The 
VDD is stable before the start-up timer expires and there 
is no problem with proper reset. 








Figure 4, where VDD rise time is much greater than tosT 
(typically 18 ms) clearly is the potentially problematic 
situation. The POR (power-on reset) pulse comes when 
VpD is about 1.5V. Most CMOS logic, including the start- 
up timer starts functioning between 1.5V to 2.0V. When 
the start-up timer starts times out, the chip reset is ended 
and the chip attempts to execute. If by this time the Vpp 
has reached VDD MIN value, then all circuits are guaran- 
teed to function correctly and power-up reset is Success- 
ful. If, however, the VDD slope was too slow and had not 
reached VpDD MIN, then the chip may or may not function 


properly. 
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FIGURE 2 - EXTERNAL RESET PULSE 
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FIGURE 3 - INTERNAL RESET (Vop AND MCLR TIED TOGETHER) 
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FIGURE 4 - INTERNAL RESET (Vpp AND MCLR TIED TOGETHER): SLOW Vpp RISE TIME 
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When VbbD rises slowly, the internal time-out period expires long before VpD has reached its final value. 
In this example, the chip will reset properly if, and only if, V1= VDDMIN. 
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EXTERNAL POWER-ON RESET 
CIRCUIT 


To use power supplies with slow rise times it is neces- 
sary to use an external power-on reset circuit such as the 
one shown in Figure 5. This circuit uses an external RC 
to generate the reset pulse. The time constant of the RC 
should be long enough to guarantee that the reset pulse 
is still present until VDD has reached VoD min. R should 
be 40K or less to guarantee that the MCLR will pull to 
within 0.2 volts of VDD. (since the leakage spec on 
MCLR is +5 uA, a resistor iarger than 40K may cause 
input high voltage on this pin to be less than VoD — 0.2V, 
the required spec). The diode D is used to rapidly 
discharge the capacitor on power-down. This is very 
important as a power-up reset pulse is needed after a 
short power-down (less than the time constant of RC) or 
after a power spike. The resistor R1 protects against 
high current flowing into MCLR pin from fully charged 
capacitor C in the event MCLR pin breakdown is induced 
through ESD or EOS. The circuit, however, does not 
protect against brown-out situations where the power 
does not drop to zero, but merely dips below VpD MIN. 
In such a situation, voltage at the MCLR pin will not go 
low enough (i.e., below VIL) to guarantee a reset pulse. 
The following section presents an example circuit to 
protect against such brown-outs. 














FIGURE 5 - EXTERNAL POWER-ON RESET 
CIRCUIT 
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BROWNOUT PROTECTION 


In many applications it is necessary to guarantee a reset 
pulse whenever VDD is less than VDD min. This can be 
accomplished using a brownout protection circuit such 
as the one shown in Figure 6. Thisis a simple circuit that 
causes a reset pulse whenever VDD drops below the 
zener diode voltage plus the Vbe of Q1. A3.3 volt zener 
will produce a reset pulse whenever VpD drops below 
about 4 volts. This circuit has a typical accuracy of about 
+100 mV. A less expensive, albeit less precise, brown- 
out circuit is shown in Figure 7. Transistor Q1 turns off 
when Vbe = VpD.R1/(R1+R2) falls below 0.7 V allowing 
R3 to pull down MCLR input. 


FIGURE 6 - BROWNOUT PROTECTION 
CIRCUIT 
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FIGURE 7 - BROWNOUT PROTECTION 
CIRCUIT 
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Implementation of an Asynchronous Serial I/O 





INTRODUCTION 


The P!IC16C5X series from Microchip Technology, !nc., 
are 8 bit, high speed EPROM based microcontrollers. 
This application note describes the implementation of an 
Asynchronous serial !/O using Microchip’s PIC16C5X 
series of high speed 8 bit microcontrollers. These EPROM 
based microcontrollers can operate at very high speeds 
with a minimum of 200 ns cycle time @ 20 MHz input 
clock. Many microcontroller applications require chip to 
chip serial data communications. Since the PIC16C5X 
series have no on chip serial ports, serialcommunication 
has to be performed in software. For many cost-sensi- 
tive high volume applications, implementation of a serial 
/O through software provides a more cost effective 
solution than dedicated logic. This application note 
provides code for PIC16C5X to simulate a serial port 
using 2 I/O Pins (one as input for reception and the other 
as output for transmission). 


IMPLEMENTATION 


Two programs are provided in this application note. One 
program simulates a full duplex RS-232 communication 
and the other provides implementation of half duplex 
communication. Using Half-Duplex, rates up to 19200 
baud can be implemented using an 8 MHz input clock. 
In case of Full-Duplex, the software can handle up to 
9600 baud at 8 MHz and 19200 baud at 20 MHz, one or 
two stop bits, 8 or 7 data bits, No Parity and can transmit 


or receive with either LSB first (normal mode) or MSB 
first (CODEC like mode). It should be noted that the 
higher the input clock the better the resolution. These 
options should be set up during assembly time and not 
during run time. The user simply has to change the 
header file for the required communication options. The 
software does not provide any handshaking protocols. 
With minor modifications, the user may incorporate 
software handshaking using XON/XOFF. To implement 
hardware handshaking, an additional 2 digital I/O Pins 
may be used as RTS (ready to send) and CTS (clear to 
send) lines. 


Figure 1 shows a flow chart for serial transmission and 
Figure 2 shows a flow chart for reception. The flowcharts 
show cases for transmission/reception with LSB first 
and 8 data bits. For reception, the data receive pin, DR, 
is polled approximately every B/2 seconds (52 us incase 
of 9600 baud) to detect the start bit, where B is the time 
duration of one bit (B = 1/Baud). Ifa start bitis found, then 
the first data bit is checked for after 1.25B seconds. From 
then on, the other data bits are checked every B seconds 
(104 us in case of 9600 baud). 


In the case of transmission, first a start bit is sent by 
setting the transmit data pin, DX to zero for B seconds, 
and from then on the DX pin is set/cleared correspond- 
ing to the data bit every B seconds. Assembly language 
code corresponding to the following flowcharts are given 
in Figures 3 and 4. 
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FIGURE 1 - TRANSMISSION FLOW CHART FIGURE 2 - RECEPTION FLOW CHART 
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FIGURE 3 - TRANSMIT ASSEMBLY CODE (CORRESPONDING TO FIGURE 1) 


PRK KKK KKK KK KKK KK KK KK KK TYrANSMLICterk* * * KKK AAKKK KKK KKK KKK KK KKK KKK 


Xmtr movlw 8 } 
movwf XCount ; 
bee Port _A,DX ; 

X next call Delay ; 
rrf xmtReg 
btfsc STATUS,CARRY ; 
bsf Port A,DX . 
btfss STATUS, CARRY 
ber Port _A,DX : 
decfsz Count . 
goto x next ; 

A -elOp. cake Delay 
bsf Port _A,DX 

X Over goto X Over 


; Assume XmtReg contains data to be Xmted 
; 8 data bits 

; Send Start Bit 

; Delay for B/2 Seconds 


Test the bit to be transmitted 
Bit 1S a one 


Bit is zero 


; If count = 0, then transmit a stop bit 
; transmit next bit 


; Send Stop Bit 


FIGURE 4 - RECEIVE ASSEMBLY CODE (CORRESPONDING TO FIGURE 2) 


pRKKKKKKKKKKKKKKK 
Revr btfsce 
goto 
moviw 
movwt 
eirr 
Galt 
bet 
rer 
btfsc 
bsf 
call 
decfsz 
goto 
R_ Over goto 


POEL A,DR 
Revr 

8 

RCount 
RcvReg 
Delay 


STATUS, CARRY 
RcevReg 

Port _A,DR 
RcvReg, MSB 
Delay 

RCount 

R_ next 

R_ Over 


The software is organized such that the communication 
software acts as a Real Time Operating System (RTOS) 
which gives control to the User routine for a certain time 
interval. After this predetermined time slot, the user must 
give back the control to the Operating System. This is 
true only in the case of full-duplex implementation. 
Timing considerations are such that the user gets con- 
trol for approximately half the time of the bit rate and the 
rest of the half time is used up by the Operating System 
(and software delays). Please refer to Table 1 for the 
delay constants and the time the User gets at 8 MHz 
input clock. Delay constants and the time that the User 
gets at 20 MHz and 4 MHz input clock speeds are given 
in the source code listing of the full duplex routine. At 
frequencies other than 4, 8, or 20 MHz, the delay 
constants and the time the User gets can be computed 
from the equations given in Figure 6. 


Receiver KAEKKKKKKKKKKKKKKKKKKK 


Test £or Start Bit 

; Start Bit not found 

; Start Bit Detected 

; 8 Data Bits 

; Receive Data Register 

; Delay for B/2 Seconds, B=Time duration of 1 Bit 
2 Clear-CARRY. bit 
sto set 1f MSB first or LSB first 

; Is the bit a zero or one ? 

; Bit is a one 


; Reception done 





FIGURE 5 - FULL DUPLEX BLOCK DIAGRAM 
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FIGURE 6 - EQUATIONS FOR DELAY | 
CONSTANTS 


Baud_Cycles = Clkout/Baud ; 

User_time = Baud_Cycles* (float) 0.5 ; 

KO = (1.25*Baud_Cycles - 2.0*User_time - 89)/3.0 IF (KO <0) 
{ 

KO = 0.0; 

User_time = 0.50* (1.25*Baud_Cycles - 89.0) ; 

} 


K1 = (1.25*Baud_Cycles-18 - User_time - 59.0 - 3.K0)/3.0 ; 
K2 = (Baud_Cycles - User_time - 41.0 - 3.K0)/3.0 ; 
7 = (Baud_Cycles - User_time - 61.0 - 3.K0)/3.0 ; 
= (Baud_Cycles - User_time - 55.0 - 3.K0)/3.0 ; 
ee (Baud_Cycles - User_time - 55.0 - 3.K0)/3.0 +1.0 ; 
K6 = 0.0; 
K7 = (1.25*Baud_Cycles - User_time - 39.0 - 3.K0)/3. 0: 


TABLE 1 - DELAY CONSTANTS AT 8 MHz 
INPUT CLOCK 


19200 | 9600 | 4800 | 2400 | 12 
fo eee Oe) Se 80rd 
| = | 39 | 80 | 150 | 2 
ee] | 51 | 86 
a | 44 | 80 
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ee 

ed 


00. | 
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TABLE 2 - DELAY CONSTANTS AT 20 MHz 
INPUT CLOCK 


| Ko | oo | 13 | 57 | 143 | 317 
Kt} 49 | 98 | 104 | 958 | 705 
| Ka | 34 | 60 | 103 | 191 | 3 
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For example, if the baud rate selected is 9600 bps (@ 8 
MHz) , then the total time frame for one bit is approxi- 
mately 104 us. Out of this 104 us, 61 us is used by the 
Operating System and the other 43 us is available to the 
User. Itis the User’s responsibility to return control to the 
Operating System exactly after the time specified in 
Table 1. For very accurate timing (with resolution up to 
one clock cycle) the User may set up the RTCC timer 
with the Prescaler option for calculating the real time. 
With RTCC set to increment on internal CLKOUT 





(500 ns @ 8 MHz CLKIN) and the prescaler assigned to 
it, very accurate and long timing delay loops may be 
assigned. This method of attaining accurate delay loops 
is not used in the RS232 code (RTOS), so thatthe RTCC 
is available to the User for other important functions. If 
the RTCC is not used for other functions, the User may 
modify the code to replace the software delay loops, by 
counting the RTCC. For an example of using this method 
of counting exact timing delays, refer to the “User” 
routine in Full-Duplex code (Appendix B). 


The software uses the minimal processor resources. 
Only 6 data RAM locations (File Registers) are used. 
The RTOS uses one level of stack, butitis freed once the 
control is given back to the user. The watchdog timer 
and RTCC are not used. The user should clear the 
watchdog timer at regular intervals, if the WDT is en- 
abled. 


The usage of the program is described below. The user 
should branch to location "Op_ Sys" exactly after time as 
specified in Table 1 or as computed from Equations in 
Fig. 6. Whereas, the transmission is totally under User 
control, the Reception is under the control of the Oper- 
ating System. As long as the user does not set the 
X_flag, no transmission occurs. On the other hand the 
Operating System is constantly looking for a start bit and 
the user should not modify either R_done flag or RcvReg. 


TRANSMISSION 


Transmit Data is output on DX pin (Bit 0 of Port_A). Inthe 
user routine, the user should load the data to be trans- 
mitted in the XmtReg and Set the X_flag (bsf 
FlagRX,X_flag). This flag gets cleared after the trans- 
mission. The user should check this flag (X_flag) to see 
if transmission is in progress. Modifying XmtReg when 
X_flag is set will transmit erroneous data. 


RECEPTION 


Data is received on pin DR (Bit 1 of Port_A). The User 
should constantly check the “R_done” flag to see if 
reception is over. If the reception is in progress, R_flag 
is set. If the reception is over, “R_done’” flag is set to 1. 
The “R_done’” flag gets reset to zero when anext start bit 
is detected. The user should constantly check the R_done 
flag, and if SET, then the received word is in Register 
“RcevReg”. This register gets cleared when a newstart bit 
is detected. It is recommended that the receive register 
RcevReg be copied to another register after R_done flag 
is set. The R_done flag also gets cleared when the next 
Start bit is detected. 


The User may modify the code to implement an N deep 
buffer (limited to the number of Data RAM locations 
available) for receive. Also, if receiving at high speeds, 
and if the N deep buffer is full, an XOFF signal (HEX 13) 
may be transmitted. When ready for receiving more 
data, an XON signal (HEX 11) should be transmitted. 


SUMMARY 


PIC16C5X family of microcontrollers allow users to 
implement haif or full duplex RS232 communication. 
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APPENDIX A: ASSEMBLY LANGUAGE FOR HALF DUPLEX 


MPASM BO.54 PAGE 1 


RS-232 Communication With PIC16c54 
Half Duplex Asynchronous Communication 


This program has been tested at Bauds from 1200 to 19200 Baud 
( @ 8,16,20 Mhz CLKIN ) 


. 
' 
i 
} 
| 
\ 
t 





As a test, this program will echo back the data that has been 


~e “se “ses “es s te We Ve We Me WO 


received. 
LIST P=16C54, C=80, T=ON 
INCLUDE “PICREG.H” 


pk RR kk KKK DICLE6CSX Header tte kk kkk kk kkk 


O1LFF PIC54 equ 1FFH ; Define Reset Vectors 
O1FF PIC55 equ 1FFH 

O3FF PIC56 equ 3FFH 

O7FF PIC5S7 equ TFFH 

0001 RTCC equ lh 

0002 PC equ 2h 

0003 STATUS equ 3h ; F3 Reg is STATUS Reg. 
0004 FSR equ 4h 

0005 Port _ A equ oh 

0006 Port _B equ 6h ; I/O Port Assignments 
0007 Port C equ 7h 


° 
? 


PRR KERR KKK KKK KK KK KR KK KKK KKK KKK KKK KK KKK KK KKK KR KA K KKK KKK K 


=. 7s 


STATUS REG. Bits 


0000 CARRY equ Oh ; Carry Bit is Bit.0 of F3 
0000 Cc equ Oh 
0001 DCARRY equ lh 
0001 DC equ lh 
0002 Z bit equ 2h ; Bit 2 of F3 is Zero Bit 
0002 2 equ 2h 
0003 P_ DOWN equ 3h 
0003 PD equ 3h 
0004 T OUT equ 4h 
0004 TO equ 4h 
0005 PAO equ 5h 
0006 PAl equ 6h 
0007 PA2 equ 7h 
0001 Same equ th 
0000 LSB equ Oh 
0007 MSB equ 7h 
0001 TRUE equ lh 
0001 YES equ lh 
0000 FALSE equ Oh 
0000 NO equ Oh 


PRK RK RK KKK KKK RE KKK KKK KK KK KKK KK KKK KKK KEK KKK KK EK KKEKKKKEKKK 
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pee kk kkk kk kk KK Communication Parameters Kae KKK KKKKEKEK 
0001 X MODE equ iL ; If ( X_MODE==1) Then transmit LSB 

; if ( X_MODE==0) Then transmit MSB 
0001 R_MODE equ at ; If ( R_MODE==1) Then receive LSB 

; if ( X MODE==0) Then receive MSB 
0001 X_Nbit equ 1 ; if (X_Nbit==1) # of data bits (T 
0001 R_Nbit equ 1 ; if (R_Nbit==1) # of data bits (R 
0000 Sbit2 equ 0 ; if Sbit2 = 0 then 1 Stop Bit else 


. 
’ 
pk KR RK RK KR RK KK KR KK KK KKK Ik RR KK 


0005 X flag equ PAO ; Bit 5 of F3 ( PAO ) 

0006 R_ flag equ PAI 7; Bit. 6 of F3 (PA) 

0000 DX equ 0 ; Transmit Pin ( Bit 0 of Port A ) 
0001 DR equ 1 ; Reciive Pin ( Bit 1 of Port A ) 
0044 BAUD 1 equ 68 ; 3+3X = CLKOUT/Baud 

0043 BAUD 2 equ -67 7; 6+3X = CLKOUT/Baud 

0022 BAUD 3 equ 34 7; 3+3X = 0.5*CLKOUT/Baud 

0056 BAUD 4 equ .86 ; 3+3X = 1.25*CLKOUT/Baud 

0042 BAUD X equ - 66 ; 11+3X = CLKOUT/Baud 

0042 BAUD _Y equ - 66 ; 9 +3X = CLKOUT/Baud 


° 
‘ 


pk ek a aK I ae kak Data RAM Assignments KKKKKK KKK 


. 
, 


ORG 08H ; Dummy Origin 
0008 0001 RcevReg RES si ; Data received 
0009 0001 XmtReg RES 1 ; Data to be transmitted 
OOOA 0001 Count RES 1: ; Counter for #of Bits Transmitted 
000B 0001 DlyCnt RES 1 


PRK KKKEKKKK KK KK KK RK KKK KR KK KK KKK RK RK kK KK KKK KE KKK K 


ORG 0 
0000 0068 Talk Cire RcvReg ; Clear all bits of RcvReg 
0001 0625 btfsc Port_A,DR ; check for a Start Bit 
0002 0A30 goto User ; delay for 104/2 uS 
0003 0923 call Delay4 ; delay for 104+104/4 


pK KK RR EK KK KK KK KK KK RK KKK KKK RK IKK KR RK KR KK 


: Receiver 
Revr 
IF R_Nbit 
0004 0C08 movilw 8 > 8 Data bits 
ELSE 
movlw 7 > 7 data bits 
ENDIF 
0005 002A movwf Count 
0006 0403 R next ocf STATUS, CARRY 
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IF 
0007 0328 Ere 
ELSE 
LE 
ENDIF 
0008 0625 btfsec 
IF 
IF 
0009 OS5SE8 bsf 
ELSE 
bsf 
ENDIF 
ELSE 
bsf 
ENDIF 
OOOA 091F call 
OOOB O2EA decfsz 
000C OA0G goto 
puree ek KKK 
000D 0208 Rover movf 
OOOE 0029 movwt 
peer kkk ek kkk ke 
H Transmi 
Xmtxr 
IF 
OOOF 0CO8 moviw 
ELSE 
moviw 
ENDIF 
0010 002A movwf 
IF 
ELSE 
IF 
ELSE 
ich ae 
ENDIF 
ENDIF 
0011 0405 bef 
0012 0925 call 
0013 0403 X next bef 
IF 
0014 0323 Ere 
ELSE 
5 a 
ENDIF 
0015 0603 btfsc 
0016 0505 bsf 
0017 0703 btfss 
0018 0405 bef 
0019 0921 call 
OO1A O2EA decfsz 
001B 0A13 goto 
001C 0505 bsf 
OO1D 0925 call 
IF 
bsf 
call 
ENDIF 


R_ MODE : 
RcvReg, Same ; to set if MSB first or LS 


RcevReg, Same 
Port_A,DR 
R_ MODE 
R_Nbit 
RcvReg,MSB ; Conditional Assembly 


RevReg,MSB-1 
RcevReg, LSB 


DelayY 
Count, Same 
R_next 


KKK KKK KK KI KKK KKK HK KKK KK KKK KEK KK KKK KEK 
RcvReg, 0 ; Send back What is Just Re 
AmtReg 

kkk kkk kkk KK KKK KKK KKK KKK KKK KEK KKK KK KKK 


tter 


X Nbit 
8 


Count 
X MODE | 
X Nbit 


xXmt Reg, Same 


Port_A,DX ; Send Start Bit 
Delayl 
STATUS, CARRY 
X_MODE 
Xmt Reg, Same ; Conditional Assembly 


* to set if MSB first or LS 


Xmt Reg, Same 


STATUS, CARRY 

Port_A,DX 

STATUS, CARRY 

Port_A,DX 

DelayX 

Count, Same 

X_ next 

Port_A,DX ; Send Stop Bit 
Delayl 


Sbit2 
Port_A,DX 
Delayl 





a 
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OO1E OA00 goto Talk ; Back To Reception & Trans 


End of Transmission 


OO1F 0C42 DelayY movlw BAUD _Y 





0020 0OA28 goto save 
0021 0C42 DelayX movlw BAUD_X 
0022 OA28 goto save 
0023 0C56 Delay4 movlw BAUD 4 
0024 O0A28 goto save 
0025 0C44 Delayl movlw BAUD _1 7 104 uS for 9600 baud 
0026 OAZ8 goto save 
0027 0C43 Delay2 movlw BAUD 2 
0028 002B save movwf Dlycnt 
0029 O02EB redo 1 decfsz DlyCnt, Same 
002A 0A29 goto redo_1l 
002B 0800 retlw 0 
002C OCOE main mov lw OEH ; Bit 0 of Port A is Output 
0O02D 0005 tris Port A ; Set Port _A.0 as output ( 
002E 0525 bsf Port _A,DR 
002F OAO00 goto Talk 
0030 0C22 User mov lw BAUD_3 
0031 002B movwt Dlycnt 
0032 O2EB redo 2 decfsz DlyCnt, Same 
0033 O0A32 goto redo 2 
0034 OAOO goto Talk ; Loop Until Start Bit Foun 
ORG PTIC54 
O1FF OA2C goto main 
END 
Errors 7 0 
Warnings : 0 
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APPENDIX B: ASSEMBLY LANGUAGE LISTING FOR FULL DUPLEX 


MPASM BO.54 PAGE 1 
RS232 Communication Using PIC16C54 


PRK KR KEK KKK KK IK KK KKK KK KKK KK KEK KKK KKK KK KKH KKH KK KEK KKKKKEKKKKE KKK KK KKK KEE 


TITLE “RS232 Communication Using PIC16C54” 


Comments 3; 
(1) Full Duplex 
(2) Tested from 1200 to 9600 Baud( @ 8 Mhz ) 
(3) Tested from 1200 to 19200 Baud(@ 16 & 20 Mhz) 


The User gets a total time as specified by the User Cycles 
in the table ( or from equations ). The user routine has to 
exactly use up this amount of time. After this time the User 
routine has to give up the control to the Operating System, 
If less than 52 uS is used, then the user should wait in a 
delay loop, until exactly 52 uS. 


Transmission ¢ 
Transmit Data is output on DX pin (Bit DX of Port_A). 
In the user routine, the user should load the 
data to be transmitted in the XmtReg and Set the 
X_ flag ( bsf FlagRX,X_flag ). This flag gets cleared 
after the transmission. 


Reception : 
Data is received on pin DR ( bit DR of Port_A )}. 
The User should constantly check the “R_ done” flag 
to see if reception is over. If the reception is 
in progress, R_flag is set tol. 
If the reception is over, “R_done” flag is set to l. 
The “R_done” flag gets reset to zero when a next start 
bit is detected. So, the user should constantly check 
the R_done flag, and if SET, then the received word 
is in Register “RcvReg”. This register gets cleared 
when a new start bit is detected. 


Program Memory : 
Total Program Memory Locations Used ( except initialization 
in “main” & User routine ) = 132 locations. 


Data Memory : 
Total Data memory locations (file registers used) = 6 
2 File registers to hold Xmt Data & Rcv Data 
1 File registers for Xmt/Rcv flag test bits 
3 File registers for delay count & scratch pad 


Stack : 
Only one level of stack is used in the Operating System/RS232 
routine. But this is freed as soon as the program returns to the 
user routine. 


ey nt ey ey YY Yr) a? i Mil iad | =e “e “ss “se se *“t es Me Me MO MH WE Ne Ve Pe Me Ve WO “se Ve Me VS Ve Ve VE 


RTCC ;: Not Used 
WDT : Not Used 
LIST P=16C54 
INCLUDE “MPREG.H” 
PRR KKK KKK KKK KKK KK KK KKK K PIC16C5xX Header KKKKKKKKKKE KKK KKK KK KKK KKK 
O1LFF PIC54 equ 1FFH ; Define Reset Vectors 
O1FF PICS55 equ LFFH 
O3FF PIC5S6 equ 3FFH 
O7VFE PIC57 equ TEFH 
0001 RTCC equ Lh 
0002 PC equ 2h 
0003 STATUS equ 3h ; F3 Reg is STATUS Reg. 


ES ERAGE SSL EA TOBE RE 0 RE SA REA OTE EEE RTS 
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0004 
0005 


0006 
0007 


0001 


0001 


0001 


0001 


0000 


0000 
0002 
0003 
0004 
0005 
0006 


0001 
0000 


0000 
0001 


FSR 


° 
‘ 


Port_A 
Port _ B 
Port_C 


. 
‘ 


equ 


equ 
equ 
equ 


4h 


5h 
6h 
Th 


I/O Port Assignments 


KKK KKK KKK KK KKK KH KKK KK KKK IK IKK KKK KKK KKK KKK KK KKK KEK KEK KKK KKKEKKKAKKKKKKKKKKKEK 


~s “a 


CARRY 
C 
DCARRY 
DC 

Z bit 
2 
P_DOWN 
PD 

T OUT 
TO 

PAO 
PA1 
PA2 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 


equ 


equ 
equ 


equ 
equ 
equ 
equ 


Oh 
Oh 
1h 
lh 
Zn 
2h 
3h 
3h 
4h 
4h 
5h 
6h 
Th 


aH ot 


Oh 
Th 


lh 
lh 
Oh 
Oh 


STATUS REG. Bits 
Carry Bit is Bit.0 of F3 


gk RK KK RK KKK KK KK KKK KK KKK KK KKK KK KEK KK KEKE KK KKK KK KKK KK KEKE KEKE EKEKKKKEKK 


“RS 232 6H" 


, 


’ 


. 
, 


KKK KK KKK KK KKK KK KKK KK KKK IK KEK KKK KKK KK KKK EK KEKK KK KEKE KEKKKKKKK KKK KKKK KKK KKK 


If ( X MODE==1) Then transmit LSB first 


Then transmit MSB first ( CODEC like ) 


If ( R_MODE==1) Then receive LSB first 


Then receive MSB first ( CODEC like ) 


if ( X_Nbit==1) # of data bits ( Transmission ) is 


if ( R_Nbit==1) # of data bits ( Reception ) is 8 


INCLUDE 
> RS232 Communication Parameters 
X_ MODE equ di 
; if ( X_MODE==0) 
R_MODE equ BA 
; if ( R_MODE==0) 
X Nbit equ L 
8 else 7 
R_Nbit equ a 
else 7 
SB2 equ 0 


e “es 


‘ 


if SB2 = 0 then 1 Stop Bit 
if SB2 = 1 then 2 Stop Bit 


KKK KKK KKK KK KKK KK KK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKKKKKKKKKKEKKKK 


Transmit & Receive Test Bit Assignments 


equ 
equ 
equ 
equ 
equ 
equ 


equ 
equ 


equ 
equ 


NU PWN CO 


X_flag 


~e Me te Oe 


-. 


we “se 


“e %S8 


Bit 0 of FlagRX 
Bit 1 of FlagRX 
Bit 2 of FlagRX 
Bit 3 of FlagRX 


Xmt Stop Bit Flag( for 2/1 Stop bits ) 


When Reception complete, this bit is SET 
When Xmission complete, this bit is Cleared 


Transmit Pin { Bit 0 of Port A ) 
Reciive Pin ( Bit 1 of Port A ) 
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JO Go obdoticcecee% Data RAM Assignments * #8 KEK KK RRR KK RK KEKE RE 


bad 7e 7 


ORG 08H ; Dummy Origin 
0008 0001 RevReg RES 1 ; Data received 
0009 0001 XmtReg RES a ; Data to be transmitted 
000A 0001 Xcount RES 1 ; Counter for #of Bits Transmitted 
000OB 0001 Recount RES J ; Counter for #of Bits to be Received 
000c 0001 DlyCnt RES i ; Counter for Delay constant 
000D 0001 FlagRX RES 1 ; Transmit & Receive test flag hold register 
Constants 19200 9600 4800 2400 1200 
( @ 20 Mhz ) 
KO 0 13 af 143 317* 
Kl 49 98 184 358* 705* 
K2 34 60 103 191 364* 
K3 Z4 53 96 184 357* 
K4 29 oD 98 186 359* 
K5 30 56 99 187 360* 
K6 0 0 0 0 0 
K7 56 104 190 365* ViZ* 
User Cycles 118 260 521 1042 2083 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KH KKK KK KKK KK KKK KK KKK 


Constants 19200 9600 4800 2400 1200 
( @ 8 Mhz ) 

KO = 0 2 39 109 

Kil 3 39 80 150 288* 

K2 = 27 oF 86 155 

K3 = 21 44 80 148 

K4 aed 23 46 82 150 

KS ae 24 47 ae iS} 

K6 = 0 0 0 0 

K7 a 45 86 156 295* 
User Cycles i 86 208 416 832 


RAK KKK KK KKK KK KKK KK KKK IKKE KKK KKK KEK KKK KK KKK KKK KKK KKK KK KKK KK KKK 


Constants 19200 9600 4800 2400 1200 
( @ 4 Mhz ) 

KO = = 0 ; 39 

Kl = = 39 80 150 

K2 = me 27 ous 86 

K3 = = Zi, 44 80 

K4 es ve 46 82 

K5 = = 24 47 83 

K6 = = 0 0 0 

K7 = an 45 86 156 
User Cycles = oe 86 208 416 


KKK KKK KK KKK KEK KKK KK KKK KEK KKK KKK KKK KKK KEKE KKK KE KEK KKK KKK KK KEKEKKKERK 


~s 7e ~s es “ses “es s es 2 se se ~s Peo MH Be “SH Ye H PH TH WH VO S Me Me RH WS te VS Me ws AO MS we MSHS WH MO MS MS “8 Ve TH “SH VS we Ve MS we 


The constants marked “ * “ are >255. To implement these constants 

in delay loops, the delay loop should be broken into 2 or more loops. 
For example, 357 = 255+102. So 2 delay loops, one with 255 and 

the other with 102 may be used. 


~s “se “es se we 


Neen NUR ETRE RE EEE EERE RTL tT tn  eeeenena tage Enea T EEnanRentimtnnanagnaedaenindeenaeErEtEE Taner eeanammemenanneateaananenamaeaeniammemennen teeecenananeatnmandnieientanaemeteememmmemmamsneeenaiectaneatanecptedememaenteesecaneeeaeemameeameamanmasetianteamtaateaiementermeeeenecueeimamaannetmemideaniaaememeemammeenename ane tamatenttimtmmeniaameememmntdnamaammeaaereneeey 
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0000 
0027 
001B 
0015 
0017 
0018 
0000 
002D 


0000 
0001 
0002 
0003 
0004 


0005 
0006 
0007 
0008 


0009 
OO0A 
000B 
000C 


000D 
000E 
OO0F 
0010 
0011 
0012 
0013 


0014 


0015 
0016 


0017 
0018 
0019 
OO1A 
001B 


001C 


001D 


0cOol 
002C 
O2ZEC 
OA02 
0800 


002C 
O2EC 
OA06 
OA8D 


002C 
O2EC 
OAOA 
0A67 


0625 
0A17 
042D 
054D 
078D 
OSAD 
0068 


0C08 


002B 
0A78 


078D 
0A78 
054D 
0A78 
0403 


0328 


0625 


~s te Ne 


KO 
KL 
K2 
K3 
K4 
K5 
K6 
K7 


° 
’ 


KKK KK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KEK KKK KKK KK KKK KK KKK KK KKK KK KKK KKK 


Set Delay Constants for 9600 Baud @ CLKIN = 8 Mhz 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


0 

239 
eae 
ae a 
23 
24 
0 

245 


pK KKK IK RK KK IK RIK KK KKK KK KK KK KKK IKK RK KKK KKK KKK KEK KKK KK KKK KKKK KKK KK 


e 
, 


ORG 


0 


ok aK a kk a KK KK KK KK KK KK KKK KE KEK KK KKK KEK KEKK KKK KKK KK KK KKK KKK 


. 
‘ 


Delay 
movwf 
redo 
goto 
retlw 


° 
’ 


Delayl 
redo _ 1 
goto 
goto 


. 
’ 


Delay2 
redo 2 
goto 
goto 


R_strt 
goto 
bcf 
bsf 
btfss 
bsf 
clrf 


moviw 


movwf 
goto 
ShellY 
goto 
bsf 
goto 


° 
, 


R_ next 


rrf 


btfsc 


mov lw 
DlyCnt 
decfsz 
redo 

0 


movwt 
decfsz 
redo _1l 
User 


movwt 
decfsz 
redo 2 
User 1 


btfisc 
ShellY 


KO+1 


DlyCnt, Same 


DilyCnt 
DiyCnt, Same 


DlyCnt 
DlyCnt,Same 


Port _A,DR 


FlagRX,R_ done 
FlagRX,R flag 


FlagRX,BitXsb 
FlagRX,A_ flag 
RcvReg 
IF R_Nbit 
8 
ELSE 
moviw 7 
ENDIF 
Recount 
Shell 
btfss FlagRX,BitXsb 
Shell 
FlagRX,R_flag 
Shell 
bcf STATUS, CARRY 
IF R_MODE 
RcevReg, Same 
ELSE 
rt RcvReg, Same 
ENDIF 
Port_A,DR 
IF R_MODE 

IF R_Nbit 


° 
‘ 


’ 


Total Delay = 3K+6 


; Delay = = 260 Cycles 


check for a Start Bit 

delay for 104/2 uS 

Reset Receive done flag 

Set flag for Reception in Progress 


ry ee ee | 


A flag is for start bit detected in R_strt 
Clear all bits of RcevReg 


“e ve 


s; 8 Data bits 


- 7 data bits 


; delay for 104+104/4 


; to set if MSB first or LSB first 
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OO1E O5SE8 bsf RcvReg,MSB ; Conditional Assembly 
ELSE 
bsf RevReg, MSB-1 
ENDIF 
ELSE 
bsf RcvReg, LSB 
ENDIF 
OO1F O2EB decfsz Rcount, Same 
0020 0A78 goto Shell 
0021 044D bef FlagRX,R_flag 
0022 056D bsf FlagRX,S flag 
0023 052D bsf F lagRX,R_done 
0024 OA78 goto Shell 
: Reception Done 
0025 0405 X_strt bcf Port_A,DX ; Send Start Bit 
. IF X_ Nbit 
0026 0C08 movlw 8 
ELSE 
mov lw 7 
ENDIF 
0027 002A movwf Xcount 
IF X_ MODE 
ELSE 
IF X Nbit 
ELSE 
ag Be xmtReg, Same 
ENDIF 
ENDIF 
0028 OAS5O goto X_SB 
0029 0403 X next bcf STATUS, CARRY 
IF X_MODE 
002A 0329 Tre Xmt Reg, Same ; Conditional Assembly 
ELSE ; to set if MSB first or LSB first 
r1t XmtReg, Same 
ENDIF 
002B 0603 btfsc  STATUS,CARRY 
002C 6505 bsf Port_A,DX 
002D 0703 btfss STATUS, CARRY 
002E 0405 bef Port_A,DX 
O02F OOEA decf Xcount, Same 
0030 O0A5Z2 goto X_ Data 
0031 040D X_SB_1 bef FlagRX,X_ flag ; Xmt flag = 0 — transmission over 
0032 0C09 movlw 9 
0033 002A movwf Xcount 
0034 0505 bsf Port_A,DX ; Send Stop Bit 
0035 0A60 goto X Stop 
0036 0505 X SB 2 bsf Port_A,DX 
0037 04CD bef FlagRX,S bit 
0038 0A60 goto X Stop 
: End of Transmission 
0039 076D RO_X0 btfss FlagRXx,S flag 
003A OA8D goto User 
003B 046D bet FlagRX,S flag 
003C 0900 call Delay 
003D 0C2E moviw K7+1 
003E 0A0S . goto Delayl 
R1_X0 
003F 0900 call Delay 
0040 0C28 movlw K1+1 ; delay for Ist bit is 104+104/4 
0041 002C movwft DliyCnt 
IF R_Nbit 
DS00510B-page 14 © 1993 Microchip Technology Inc. 
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0042 


0043 
0044 
0045 
0046 
0047 


0048 
0049 
004A 
004B 
004C 
004D 
004E 


004F 


0050 
0051 


0052 
0053 
0054 
0055 
0056 
0057 
0058 


0059 
OO5A 
005B 
005C 


005D 
0O5E 
0O5F 


0060 
0061 
0062 
0063 
0064 
0065 
0066 


0067 
0068 
0069 
006A 
006B 
006C 
006D 
006E 
006F 
0070 


0Cc08 


018B 
0643 
OA06 
O0C1C 
OA05 


0c09 
008A 
0643 
OA25 
022A 
0743 
0A29 


0A31 


OA51 
0A52 


O6AD 
OA59 
068D 
OASD 
0900 
0C16 
0A09 


04AD 
0900 
0C18 
OA09 


048D 
0900 
0A67 


06AD 
OA59 
068D 
QASD 
0900 
0C19 
OA09 


064D 
OA77 
066D 
OA74 
0625 
OAT? 
042D 
044D 
058D 
0068 


movliw 


xorwt 
btfsce 
goto 
movilw 
goto 


° 
’ 


RO_X1 
subwf 
btfisc 
goto 
movft 
btfss 
goto 


goto 


X_SB 
cycle4 


e 
e 


X Data 
goto 
btfsc 
goto 
call 
movlw 
goto 
SbDly 
call 
movlw 
goto 


ABC 
call 
goto 


ry 
, 


btfsc 
goto 
btfsc 
goto 
call 
movilw 
goto 


° 
’ 


User 1 
goto 
btfsc 
goto 
btfsc 
goto 
ber 
bet 
bsf 
cirf 


ELSE 
movlw 
ENDIF 
Recount ,W 
STATUS,Z bit 
redo 1 
K2+1 
Delayl 


R1 Xl 
moviw 9 
Xcount ,W 
STATUS,Z bit 
X_strt 
Xcount, Same 
STATUS,Z bit 
X next 
IF 


. 
a 


7 


. 
’ 


s 
’ 


SB2 


, 


8 Data bits 


7 data bits 


same as RO X1 


to check if All data bits Xmted 


btfisc FlagRX,S bit 
X_SB 2 


goto 
bsf 
goto 
ELSE 
X SB l 
ENDIF 


FlagRX,S$ bit 


X SB 1 


goto cycle4 
goto X Data 


btfse FlagRX,A flag 


SbDly 
FlagRX,BitXsb 
ABC 

Delay 

K3+1 

Delay2 


bcf FlagRX,A flag 


Delay 
K4+1 
Delay2 


bcf FlagRX,BitXsb 


Delay 
User 1 


X_Stop 
FlagRX,A flag 
SbDly 
FlagRXx,BitXsb 
ABC 
Delay 
K5+1 
Delay2 


btfsc FlagRxX,R_flag 


syne. 
FlagRx,S flag 
sync 3 
Port_A,DR 
Sync 2 
FlagRX,R_done 
FlagRx,R_flag 
FlagRXx,BitXsb 
RcvReg 
IF 


. 
, 


“s =e =e 


~s Me 


Reception already in progress 


check for a Start Bit 
No Start Bit - goto User routine 
Reset Receive done flag 


Set flag for Reception in Progress 
Clear all bits of RcvReg 


R_Nbit 





ao ; : - 
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0071 0CO8 movlw 8 ; 8 Data bits 
ELSE 
movlw 7 ; 7 data bits 
ENDIF 

0072 002B movwf Recount 

0073 OA8D goto User 

0074 046D Sync 3 bef FlagRX,S flag 

0075 0COl movlw K6+1 

0076 OAOS goto Delayl 

Sync_1 
0077 OA8D Sync _ 2 goto User 


. 
¢ 


KKK KKK KKK KKK KK KKK KK KK KK KKK KK KKK KK KICK KK KKK KKK KK KKK KKK KK KKK KKK KK KKK RK ek 


® 
é 


0078 064D Shell btfsc FlagRX,R_flag 


0079 OAT7D goto Chek X 

OO7A 060D btfsc FlagRX,X_ flag 

007B 0A48 goto RO_X1 

OO07C 0A39 goto RO_ XO ; Case for RO_X0 
007D 060D Chek _X btfsc FlagRX,X_flag 

OO7E 0A48 goto Rl Xl 

OO7EF OA3F goto R1_X0 


RRR K KKK KEKE KK KK KK KKK KK KK KKK KK KKK KKK KKK KKK KEKE KKKEKKKKKKKKKK KK KKKKKKKK KEKE 
Operating System 
The User routine after time = B/2, should branch Here 


~s *~e “se se ee 0 


0080 074D Op Sys btfss FlagRX,R_flag 
0081 OAOD goto Rstrt 
0082 0A1B goto R_next 


° 
’ 


gk RR KKK KKK KK KKK KEK KKK KEK KKK EK KKK KK KKK KEK KEK KK KKK KEK KKK KK KKK KK KKKE KE KK KKK KKK KK KK 


e 
Ul 


0083 OCOE main movlw OEH ; Bit 0 of Port A is Output 
0084 0005 tris Port_A ; Set Port_A.0 as output ( DX ) 
; & Port_A.1 is input ( DR ) 

0085 0505 bsf Port_A,DX 
0086 0CO09 moviw 9 
0087 002A movwft Xcount ; If Xcount == 9, Then send start bit 
0088 O006D Cire FlagRX ; Clear All flag bits. 

IF SB2 

bsf FlagRX,S bit; Set Xmt Stop bit flag(2 Stop Bits) 
ELSE 

0089 04CD bet FlagRXx,S bit ; Clear Xmt Stop bit flag 

ENDIF 
OO8A OCI1F movlw 1FH ; Prescaler = 4 
008B 0002 OPTION ; Set RTCC increment on internal Clock. 
008C OA80 goto Op Sys 


KKK HK HK KK KK KKK KK KKK KK KKK KK KK KKK HK KKK KKK KK KKK KK KKK KK KKK KKKKK KK KKKKKKKKEKKKK 


kkk aK KKK KKK KKKEKK User Routine ttre kk kkk kkk 


The User routine should use up time exactly = User time as given 
in the Constants Table ( or by Equations for constants ). 

At 9600, this 86 Clock Cycles. RTCC timer is used here to count 

upto 86 cycles ( From 128-86 To 0 ) by examining Bit 7 of RTCC. 


7s +s Ms Te Te Te SH we FE 
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0030 K user equ ~128+.6-.86 
008D 0C30 User mov lw K_ user 
0O8E 0021 movwft RTCC 
OO8F 062D btfsc FlagRX,R_done 
0090 OA97 goto ErrChk 
0091 0O60D SetXmt btfsc FlagRX,X flag 
0092 OAISC goto Op 
0093 0C41 movilw 41H 
0094 0029 movwft Xmt Reg 
0095 050D bsf FlagRxX,X_ flag ; Enable Xmission 
0096 OAI9C goto Op 
Errchk 
0097 OCSA mov lw ae Ags 
0098 0188 xorwf RcvReg, W 
0099 0643 btfsc STATUS,2Z bit 
009A 0A91 goto SetXmt 
009B OA9B error goto Yroxr ; Received word is not “2” 
009C O7E1L Op btfss RTCC,MSB » Test for RTCC bit. 7 
009D OA9C goto Op ; If Set, Then RTCC has incremented 
0O09E OA80 Oflow goto Op Sys to 126. 


; 
; KK KKK KK KKK KK KK KKK KKK KKK KK KK KKK KKK KKK KI KKK KKK KK KKK KKK KEKE 


. 
’ 





ORG PIC54 
O1FF 0A83 goto main 
END 
Errors : 0 
Warnings : 0 
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NOTES: 
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Using a PIC16C5X as a Smart ?C™ Peripheral 





INTRODUCTION 


The PIC16C5X microcontrollers from Microchip are 
ideally suited for use as smart peripheral devices under 
the control of the main processors in systems due to their 
low cost and high speed. They are capable of performing 
tasks which would simply overload a conventional mi- 
croprocessor, or require considerable logic circuitry, at 
a cost competitive with lower mid-range PLDs. To mini- 
mize the engineering overhead of adding multiple con- 
trollers to a product, it is convenient for the auxiliary 
controllers to emulate standard I/O peripherals. 


A common interface found in existing products is the |?C 
bus. This efficient, 2-wire bi-directional interface allows 
the designer to connect multiple devices together, with 
the microprocessor able to send data to and receive data 
from any device on the bus. This interface is found on a 
variety of components, such as PLLs, DACs, video 
controllers, and EEPROMSs. If a product already con- 
tains one or more |?C devices, it is simple to add a 
PIC16C5X emulating a compatible component. 


This application note describes the implementation of a 
standard slave device with multiple, bi-directional regis- 
ters. A subset of the full I?C specification is supported, 
which can be controlled by the same software which 
would talk to a Microchip 24LCXX series EEPROM. 


THE I?C BUS 


The I?C bus is a master-slave 2-wire interface, consist- 
ing of a clock line (SCL) and a data line (SDA). Bi- 
directional communication (and in a full, multi-master 
system, collision detection and clock synchronization) is 
facilitated through the use of a wire-and (ie. active-low, 
passive high) connection. 


The standard-mode !?C bus supports SCL clock fre- 
quency up to 100 KHz. The newly released fast-mode 
l?C bus supports clock rate up to 400 KHz. This applica- 
tion note will support 100 KHz (standard-mode) clock 
rate. 


Each device has a unique seven bit address, which the 
master uses to access each individual slave device. 


During normal communication, SDA is only permitted to 
change while SCL is low, thus providing two violation 
conditions (see Figure 1) which are used to signal a start 
condition (SDA drops while SCL is high) and a stop 
condition (SDA rises while SCL is high), which frame a 
message. 
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FIGURE 1 - PC TIMING 


Data Bit More Bits Stop 


eee 
| | as ae 





Each byte of a transfer is 9 bits long (see timing chart in 
the program listing). The talker sends 8 data bits fol- 
lowed by a"1" bit. The listener acknowledges the receipt 
of the byte and permission to send the next byte by 
inserting a "0" bit over the trailing "1". The listener may 
indicate "not ready for data” by leaving the acknowledge 
bitasa"1". 


The clock is generated by the master only. The slave 
device must respond to the master within the timing 
specifications of the I?C definition otherwise the master 
would be required to operate in slow mode, which most 
software implementations of I?C masters do not actually 
support. The specified (standard-mode) tct is 4.7 us, 
and tCH is only 4 us, so it would be extremely difficult to 
achieve the timing of a hardware slave device with a 
conventional microcontroller. 


MESSAGE FORMAT 


A message is always initiated by the master, and begins 
with a start condition, followed by a slave address (7 
MSBs) and direction bit (LSB = 1 for READ, 0 for 
WRITE). The addressed slave must acknowledge this 
byte if it is ready to communicate any data. If the slave 
fails to respond, the master should send a stop and retry. 


lf the direction bit is "0" the next byte is considered the 
sub-address (this is an extension to I?C used by most 


‘multi-register devices). The sub-address selects which 


"register" or function subsequent read or write opera- 
tions will affect. Any additional bytes will be received and 
stored in consecutive locations until a stop is sent. If the 
slave is unable to process more data, it could terminate 
transfer by not acknowledging the last byte. 
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If the direction bitis "1", the slave will transfer successive 
bytes to the master (while the master holds the line at'1'), 
while the master acknowledges each byte with a "0" in 
the ninth bit. The master can terminate the transfer by 
not acknowledging the last byte, while the slave can stop 
the transfer by generating a stop condition. 


The start address of a read operation is set by sending 
a write request with a sub-address only (no data bytes). 
For a detailed set of timing diagrams and different 
communication modes, consult any of the Microchip 
24LCXX EEPROM specifications. This program com- 
municates using the same formats. 


IMPLEMENTATION 


The chip will respond to slave address 
"DEVICE_ADDRESS", which by default is D6,, (D7, for 
read). This address was chosen because it is the fourth 
optional address of a Phillips PCF8573 clock/calender 
ora TDA8443 tipple video switch (unlikely that a product 
would contain four of those). 


FIGURE 2 - SCHEMATIC OF F?C 
CONNECTIONS 


X1 


PIC16C54 20 MHz 


sae a 


* R2 may be needed if not 
provided at master 


The connections to the device are shown in Figure 2. 


The use of RAO for data in is required. Data is shifted 
directly out of the port. The code could be modified to 
make it port independent, but the loss of efficiency may 
hinder some real-time applications. 


This application emulates an I?C device with 8 registers, 
accessed as sub-addresses 1 through 8 (modulo 7), 
plus a data channel (0). The example code returns an ID 
string when the data channel is accessed. When bytes 
are written to sub-addresses other than 0, they are 
stored in 12CRO-lI2CR7 (l2CRO gets data written to sub- 
adaress 8). 





FIGURE 3 - PC DEVICE FLOWCHART 
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When the initial sub-address is 0, the flag B:ID is set. 
This is used to indicate access to a special channel. In 
this case, the data channel is used to return an ID 
message, or output data to port B, however the natural 
extension would be to use this as a data I/O channel. 


To make the basic device routines easily adaptable to a 
variety of uses, macros are used to implement the 
application specific code. This allows the developer the 
option of using subroutine calls, or in-line code to avoid 
the 4 clock cycle overhead and use of the precious stack. 


Macro User code function 


USER_MAIN Code to execute in the main loop while 
not in a message. If this code takes too 
long, tSH of 4us will be violated (see 
Fig. 1). The slave will simply miss the 
address, not acknowledge, and the 


master will retry. 


USER_Q This would be quick user code to imple- 
ment real-time processes. In most ap- 
plications, this macro would be empty. 
lf used, this routine should be kept 


under 4us if possible. 


USER_MSG _ This would be user code to process a 
message. It is inserted after a message 


is successfully received. 


USER_RECV This would be user code to process a 
received byte. It allows the user to add 
extra code to implement special pur- 


pose sub-addresses such as FIFOs. 


USER_XMIT _ This would be user code to prepare an 
output byte. In the default routine, it 
traps sub-address 0 and calls the ID 


string function. 
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APPENDIX A: 
MPASM BO.54 PAGE 1 
LIST P=16C54, C=80, N=0, R=DEC 
0676 . CPU EQU 1654 
0000 SIM EQU 0 ;Change timing constants fo 
IF (CPU==1654) || (CPU==1655) 
O1FF _RESVEC EQU O1FFH 716c54 start address 
ENDIF 
IF CPU==1656 
_RESVEC EQU O3FFH 716C56 start address 
ENDIF 
IF CPU==1657 
_RESVEC EQU O7FEH 716C5S7 start address 
ENDIF 
gs*xxk* Reset Vector KKK KKK IK KKK KK KKK KK KKK KK KK KK KKK KKK KKEKKKKEK 
ORG _RESVEC ; 
RESVEC ; 
O1FF OAOB GOTO INIT ; 


gk Re ek ee RK eK eK KK KEK KK KEK KK KEK KK KKK KK KKK 


PRK KK KK KKK KK KKK KK KK KEK KI KKK HK KK KKK KK KKK KKK KKK KKK KK KKK 


7* Macros to set/clear/branch/skip on bits 

;* These macros define and use synthetic “bit labels” 
;* Bit labels contain the address and bit of a location 
ok 


PKK AK IKK RK EK KERR KEKE KK ERR KK KKK KKK KKK KE KKK KEK KKK KK KKK KK KKK KKKKK 


al Usage Description 

o* Spt rrnanaenigeeeieetimeamcintan” panties aaeeceineclVinatincbeaniniaiti demas, 

= BIT label,bit,file ;Define a bit label 

£3 SEB label ;set bit using bit label 
ne CLB label sclear bit using bit label 
= SKBS label ;SKIP on bit set 

a SKBC label ;SKIP on bit clear 

is BBS label, address ;BRANCH on bit set 

:o BBC label, address BRANCH on bit clear 

;* CBS label, address ;CALL on bit set 

:* CBC label, address ;CALL. on bit. clear 


ox 
’ 


g RK ee KKK KKK KKK KKK KEK EK KKK KK KK AK KKK KK KKK KK KK 


BIT MACRO label,bit,file ;Define a bit label 
label EQU file<<8[bit 


ENDM ; 
SEB MACRO label 7Set bit 
BSF label>>8, labelé&7 3; (macro) 
ENDM ; 
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SKBS 


SKBC 


BBS 


CBS 


MACRO 
BCE 
ENDM 


MACRO 
BTESS 
ENDM 


MACRO 
BTESC 
ENDM 


MACRO 
BTFSC 
GOTO 
ENDM 


MACRO 
BTESS 
GOTO 
ENDM 


MACRO 
CALL 
ENDM 


MACRO 
CALL 
ENDM 


label 
label>>8,label&7 


label 
label>>8,label&7 


label 
label>>8,label&7 


label, address 
label>>8,label&7 
address 


label,address 
label>>8,label&7 
address 


label, address 
label>>8,label&7 


label,address 
label>>8,label&é? 


;For Assembler portability 


A Smart FC Peripheral 


*Clear bit 
+ (macro) 


2 
? 


;Skip on bit set 
: (macro) 


;Skip on bit clear 
> (macro) 


sBranch on bit set 
5 (macro) 
> (macro) 


=e 


sBranch on bit clear 


: (macro) 
° (macro) 


sCall on bit set 

: (macro) 

sCall on bit clear 
; (macro) 





0000 W EQU 0 ;For file,W 
0000 w EQU 0 ;For file,W 
0001 F EQU Ai ;For file,F 
0001 id EQU a ;For file,F 

pee KKK KK RK RIK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KR KK 

7* REGISTER DECLARATIONS 

pK KKK RK KK II KK IKK KK KKK IK KKK KKK KK KKK EK KEKK KK KKK KK KKK 

ORG 0 ;ORG for register declarati 

0000 0001 ind RES 1 ;0=pseudo-reg 0 for indirec 
0001 0001 RTCC RES 1 ;l=real time counter 
0002 0001 PC RES a 72=PC 
0003 0001 STATUS RES ak ;3=status reg 

;* Status reg bits 

BIT B C,0,STATUS ;Carry 
0300 BC EQU STATUS<<8|0 

BIT B_ DC,1, STATUS ;Half carry 
0301 B DC EQU STATUS<<8]1 

BIT B 2,2,STATUS 7; Zero 
0302 BZ EQU STATUS<<8|2 





SLSR AT ie A EAR AI NSE SRE NEES A REAP I IES AE UE IRE STE ITD ELLESMERE TEI IO ENS SATS I SRNL IE OED SESE RT ENT SNE LIDS ELT DLR, 
© 1993 Microchip Technology Inc. DS00541B-page 5 


2-45 


A Sm 


art IC Peripheral 














BIT B_PD,3, STATUS 7;Power down 
0303 B_PD EQU STATUS<<8 | 3 
BIT B_ TO,4,STATUS ;Timeout 
0304 B TO EQU STATUS<<8 | 4 
BIT B PAO,5,STATUS ;Page select (56/57 only) 
0305 B_ PAO EQU STATUS<<8|5 
BIT B_PA1,6,STATUS 7Page select (56/57 only) 
0306 B PA1 EQU STATUS<<8|6 
BIT B_PA2,7,STATUS ;GP flag 
0307 B_PA2 EQU STATUS<<8|7 
0004 0001 FSR RES 1 74=file select reg 0-4=indi 
0005 0001 PORTA RES 1 75=port A I/O register (4 b 
0006 0001 PORTB RES 1 76=port B I/O register 
IF (CPU==1655) | | (CPU==1657) 
PORTC RES A 77=1I/O port C on 16C54/56 only 
ENDIF 
;registers used by this code 
0007 0001 I2CFLG RES 1 7I12C flag reg 
7-1l2¢c flags-—————______—_ 
BIT B_RD,0O, I2CFLG ;Flag: l=read 
0700 B_RD EQU I2CFLG<<8 [0 
BIT B_UA,1, 12CFLG ;Flag: O=reading unit address 
0701 B_UA EQU IT2CFLG<<8/1 
BIT B SA,2,12CFLG ;Flag: l=reading subabbress 
0702 BSA EQU I2CFLG<<8 |2 
BIT B_ID,3,12CFLG ;Flag: l=reading id 
0703 B ID EQU I2CFLG<<8/3 
0008 0001 I2CREG RES I ;I2C I/O register 
0009 0001 I2CSUBA RES 1 7;Subaddress 
OOOA 0001 I2ZCBITS RES x 7I2C xmit bit counter 
pI KKK KK KKK KK KKK KK KK KKK KKK KK KEK KKK IKKE KKK KKK KK KKK KK HK 
;* 8 Pseudo registers accessed by sub-addresses 1-8 
;* (address 0 accesses the ID string) 
7;* these are read-write registers 
KK KKK KKK KKK KK KK KKK KKK KK KKK KK KKK KK KKK KKK KEKE KEKEKKKKKKKK KKK 
000B IZ2CRO EQU $ ;Sub-address & 
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000B 0001 


000C 0001 


000D 0001 


OOOE 0001 


OOOF 0001 


0010 0001 


0011 0001 


0012 0001 


0501 


RES 1 78 pseudo registers 

I2CR1 EQU S :Sub-address 1 
RES 1 

I2CR2 EQU $ 7;Sub-address 2 
RES 1 

I2CR3 EQU $ 7;Sub-address 3 
RES 1 

T2CR4 EQU S >Sub-address 4 
RES ay 

I2CR5 EQU S sSub-address 5 
RES 1 

I2CR6 EQU S *Sub-address 6 
RES 1 

I2CR7 EQU S >Sub-address 7 
RES 1 


;Constants used by program 


DEVICE ADDRESS EQU OD6H ;I2C device address 


pK RK KKK RK KK KR KKK KKK KKK KKK KKK KKK KE KK AKA KKK KKK KK KKK 


s** PORTA DEFINITIONS 
7** T2C interface uses PORTA 


;** note SDA goes to AO for code efficiency 
okk 


PORK RIK I III I IO I IO I kK KK KK KK KK 


TAREAD EQU Betti Eo ;TRISA register for SDA rea 
TAWRITE EQU B’11110110' ;TRISA register for SDA wri 

TAINIT EQU TARE AD ;Initial TRISA value 

BIT B_SDA,0,PORTA ;I2C SDA (data) This must be bit 0! 
B SDA EQU PORTA<<8 | 0 

BIT B SCL,1,PORTA 7;I2C SCL (clock) 

B SCL EQU PORTA<<8|1 

;spare B 2?2?,2,PORTA ;not used 

;spare B ???,3,PORTA ;not used 


pK RK KK KKK KK KKK KK KKK KKK KEK KK IKKE KK KKK KK KKK KKK KKK K KKK KK KKK 
okx 
’ 


7** Port B definition (Parallel out) 
oxkk 


pK KKK KE KK KKK KK KEK EKER KEK KK KKK KKK KK KKEKKKKEKKEKKEKKE KK KKK 


TBINIT EQU B’00000000' *Port B tris (all output) 
PBINIT EQU Be Tilia ;Port B init 


eK a aK KK KK EK KICK KK KKK KEK KKK KR KKK KKK KKK KKK KKKKEKKKKKKKKKKK 


7* Macros to contain user POLL loop code. 
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7;* These are implimented as macros to allow ease of modific 
7* especially in real-time applications. The functions coul 


7* in-line code or as subroutines depending on ROM/time tra 


7;* USER MAIN; Decision or code to perform at idle time 


7* USER Q: ‘Quick’ code for use during transfer - max 
:* I*C Spec. More than 4 Es may result in I”C 
7 full spec speed. 

el 

;* USER MSG: Code to execute at receipt of IC command. 
sx 


KK KEK KKK KK KK KKK KKK KKK KK KK KKK KK KKK KK KEKE KK EK KK KKK KK KEKE KKKER 


USER_MAIN MACRO 

7*** This would be user code for idle loop 
ENDM 

USER _Q MACRO 

7*** This would be quick user code 
ENDM 

USER_MSG MACRO 

;*** This would be user code to process a message 
ENDM 

USER_RECV MACRO 


;*** This would be user code to process a received byte 
;*** example code sends sub-address 0 to port b 


BBC B_ID, NXI_notid ;Channel 0! Bit set if 
MOVE'W I2CREG ;get received byte 
MOVWE PORTB yand write it on portb 
GOTO IN_CONT 

_NXI_notid 
ENDM 

USER _XMIT MACRO 


;*** This would be user code to prepare an output byte 
;*** example code sends id string to output 


BBC B ID, NXO notid ;Channel 0! Bit set if 

CALL _GETID ;get next byte from ID 

GOTO OUT_CONT rand send it 
_NXO_notid 

ENDM 


PRK KK KKKKEKKKKK KEK KKK KAKA K KK KK Rk kk RK RK kK 


START OF CODE 


KKK KK KKK KKK KK IK KKK KK KKK KK KKK KKK KK KKK KKK KK KK KKK KKKK KKK KKK 


~a 708 


ORG 0 


pK KR KKK RK KKK KK KKK KK KKK KK KKK KKK KK KKK KK KKK KK KKK 


7* Device ID Table (must be at’ start) 


;* TABLE FOR UNIT ID returns next char in W. 
g RK KK KK KK KK KK KK KK IK KKK EK KKK KK KEK KKK KKK KK KK KEK EK KKK KE KKK 


GETID 
0000 0209 . MOVEW IZ2CSUBA *>W=I2CSUBA 
0001 O0E07 ANDLW 07H sLimit to 8 locations 
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0002 01E2 ADDWF PC, F 


RK KKK KKK KKK IKI KKK KK KKK KKK KKK KKK KKK KKK KKKKK KK KKK KK KKK 


7* Device ID text: read starting at sub-address 0 
pO aK KIKI KK KK KK KK KEK KK KKK KKK KK KEKKKKEKKK KK KKK KK KKK 


0003 0850 RETLW “Pi 
0004 0849 RETLW a 
0005 0843 RETLW oe 
0006 0849 RETLW ba ad 
0007 0832 RETIW Mae 
0008 0843 RETLW “a 
0009 0800 RETLW 0 

OO0O0A 0800 RETLW 0 





pK aK Kk KK KI I IO I IO eR kk ak ok ak kk ke kK ek 


°** T2C Device routines 
ox 
, 


7;* Enable must be HIGH, else state goes to 0 


;* write is to me, read is from me. 
o* 
‘ 


rg €seesesss====== first byte / subsequant write 
* SDA =| 9 X——-X-—X-—X——-X—-X—X-—X- 
ee | -X—X—X—X-—X-—-X—X—X- 


pe (DLE) s 7 6 2 4 3 2 1 0 


eh STATES Or 1. 2°. Bh ee Be Be GA Be 2 OB 2 re 2 a. SZ 


7* SDA X—-X—X——X-—-X—X— X—— X-—X 
* —X——X—X—X—X-—X--X——X——X 
7* (bit)ack 7 6 5 4 3 2 1 0 


pe eaGls, ey Ale “Wah feeb oeell sie? Se peel esl 


ge STATE: Oh Be OE OBS hs Bes SE BR a BR SB SB OS 


oi 
> (seeessese=ese= Final READ ==ssssess==cssess= 
+ 

:* SDA X—-X—~X—X——X-—X-——X—X—X 

;* —X——X—X——X— X-—X-—X—X—X 

7* (bit)ack 7 6 5 4 3 2 1 0 
Pe SCG. “a ele eel ee See) cee Geek) aie ebrd 
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7* STATE: 7 8 7 8 7 8 7 8 7 8 7 8 7 8 7 8 


:* STATE B is an ignore bit state for non-addressed bits 
;* STATE C indicates last sample had ENA low 
7* on rising edge of ENA, DATA LOW = low voltage, DATA&CLOC 


PKK KK KKK KK KKK KK KKK KK KKK IK KKK KK KKK KK KKK KK KKK KKKKK KK KKK KK KKK 


;I2C interface uses PORTA 
snote SDA must be on PORTA,0O for code efficiency 


PRR RK KK KERR KEK KKK KKK KKK KKK KK KKK EK KKK KK KKK KK KKEKKKKKKEKEKER 


ee INES 


7** Hardware reset entry point 
xx 
‘, 


BRK KKK KKK EKER KEK KKK KKK KKK KK KKK KKK KKK KR KKK KKK KK KKK KK aKa KEK KKK 


INIT 7Power-on entry 


RK KK KKK KKK RK KKK KKK KK KKK KKK KK KKK KKK KKK KHER KKK KKK KKK 


;** RESET 


7** software reset entry point 
okx 
e 


PRK a KK KK KKK KK KK KK KKK KK KKK KK KKK KK KK KKK KKK KK KKK KEKKE 


RESET ;Soft reset 
0O00B OCF? MOVLW TAINIT sInit ports 
000C 0005 TRIS PORTA 
OOOD 0C00 MOVLW TBINIT 
OOOE 0006 TRIS PORTB 
OOOF OCFF MOVLW PBINIT 
0010 0026 MOVWE PORTB 


KKK IK KKK KK KKK KK KKK KK KKK KK KKK KKK KKK KKK KK HKKKK KKK KK KKEK 


; Main wait loop while idle. POLL loop should be called her 


-e we 


KKK KK KKK KK KKK KK KKK KK KKK KKK KKK HK KKK KKK KK KKK KKKKKKK KKK K 


. I2CWAIT 

0011 0004 CLRWDT ;Clear watchdog timer 

CLB B_UA ;Init state flags 
0012 0427 BCF B_UA>>8,B UA&7 

CLB B_SA ;Init state flags 
0013 0447 BCE B_SA>>8,B SA&7 

CLB B_RD ;Init state flags 
0014 0407 . BCF B_RD>>8,B RD&7 

loopl 
0015 0004 CLRWDT ;Clear watchdog timer 

USER _MAIN ;Call user code while in idle state 


7*** This would be user code for idle loop 
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SKBC B SDA ;Wait for SDA&SCL=H 
0016 0605 BTFSC B SDA>>8,B SDA&? 
loop2 
SKBS. ~~ B_ SCL : 
0017 0725 BTFSS B SCL>>8,B SCL&?7 
0018 0A15 GOTO loopl ; No longer valid to wait f 
0019 0004 CLRWDT ;Clear watchdog timer 
USER_MAIN 7Call user code while in idle state 
7;*** This would be user code for idle loop 
Fe* Walt for start. ** 
SKBC B SCL ;Clock has dropped 
OO1A 0625 BTFSC B SCL>>8,B SCL&? 
SKBC B_ SDA ;Data dropped... Start! 
001B 0605 BTFSC B SDA>>8,B SDA&7 
001C O0A17 GOTO loop2 
P®*. START RECEIVED! - walt. fOr first bit! 
loop3 
BBS B SDA, I2CWAIT rData raised before clock dropped — 
001D 0605 BTFSC B_SDA>>8,B SDA&7 
OO1E OA11 GOTO I2CWAIT 
BBS Bu sCL,Loop2 rWait for clock low 
QO1F 0625 BTFSC B SCL>>8,B SCL&7 
0020 OA1D GOTO loop3 
NEXTBYTE 
0021 0004 CLRWDT ;Clear watchdog timer 
0022 0CO1 MOVLW 1 ;Init receive byte so bit f 
0023 0028 MOVWE I2CREG 
;** Shift bits! — external poll may be executed during low 
;* ENABLE line is checked for loss of enable ONLY during HI 
7;*** CLOCK IS LOW — DATA MAY CHANGE HERE 
;*** We have at least 4 Es before any change can occur 
loop4 
USER Q 
;*** This would be quick user code 
loop4A 
BBC B SCL, loop4A ;Wait for clock high 
0024 0725 BTFSS B SCL>>8,B SCL&? 
© 1993 Microchip Technology Inc. DS00541B-page 11 








0025 0A24 GOTO loop4A 


;*** CLOCK IS HIGH — SHIFT BIT - then watch for change 


0026. 0305 RRF PORTA, W ;Move RAO into C 
0027 0368 RLF I2CREG,F ;Shift in bit 
0028 0603 SKPNC ;Skip if not done 
0029 0A36 GOTO ACK I2C ;Acknowledge byte 
002A 0608 BTFSC IT2CREG, 0 *Skip if data bit was 0 
002B 0A31 GOTO ate ;This bit was set 
iio 

BBC B_ SCL, loop4 ;Wait for clock low 
002C 0725 BTFSS B_ SCL>>8,B SCL&7 
002D 0A24 GOTO loop4 

SKBS B_SDA ;Data low-high == stop 
0O02E 0705 BTFSS B SDA>>8,B SDA&7 
OO02F O0A2C GOTO 11-0 

IZ2CSTOP 

USER_MSG ;process completed message! 


;*** This would be user code to process a message 


0030 OA11 GOTO I2CWAIT ;back to main loop 
ps ae BBC B_ SDA, I2CWAIT ;Data high-low == start 
0031 0705 BTFSS B_SDA>>8,B SDA&? 
0032 0A11 | GOTO I2CWAIT 
BBC B_SCL, loop4 ;Wait for clock low 
0033 0725 BTFSS B SCL>>8,B_ SCL&7 
0034 0A24 GOTO loop4 
0035 0A31 GOTO ie ae | 
ACK_I2C 
BBC B_UA,ACK_UA ;Not addressed - check unit address 
0036 0727 BTFSS B UA>>8,B UA&7 
0037 OA8B GOTO ACK UA 
BBS B_SA,ACK_SA ;Reading secondary address 
0038 0647 BTFSC B SA>>8,B_ SA&7 
0039 0A97 GOTO ACK SA 


peakk 


;** Do what must be done with new data bytes here (before A 


;** Don’t ack if byte can’t be processed! 
oka kk 


‘ 


USER_RECV 
;*** This would be user code to process a received byte 
;*** example code sends sub-address 0 to port b 
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003A 0767 BTFSS B ID>>8,B_ ID&? 
003B 0A3F GOTO —_NXI_notid 
003C 0208 MOVE W I2CREG sget received byte 
003D 0026 MOVWE PORTB sand write it on portb 
0OO3E 0A47 GOTO IN_CONT 
_NXI_notid 
003F 0C07 MOVLW 07H ;Register count 
0040 0169 ANDWE I2CSUBA, f ;Limit register count 
0041 OCOB MOVLW I2ZCRO 7Pseudo-registers 
0042 01C9 ADDWEF I2CSUBA,W ;Offset from buffer start 
0043 02A9 INCF I2CSUBA ;Next sub-address 
0044 0024 MOVWE FSR ;Indirect address 
0045 0208 MOVE'W I2CREG 
0046 0020 MOVWE ind 7Put data into register 
IN_CONT ;continue point for interce 
ACK loop 
BBS B_SCL,ACKloop ;Wait for clock low 
0047 0625 BTFSC B SCL>>8,B SCL&7 
0048 0A47 GOTO ACKloop 
CLB B_ SDA 7;Set ACK 
0049 0405 BCF B_SDA>>8,B SDA&7 
004A OCF6 MOVLW TAWRITE 
004B 0005 TRIS PORTA 
CLB B_SDA ;Set ACK (just in case docs are wrong) 
004C 0405 BCF B_ SDA>>8,B SDA&7 
ACK loop2 
USER _Q 


;*** This would be quick user code 


BBC B_SCL,ACKloop2 ;Wait for clock high 
004D 0725 BTFSS B SCL>>8,B SCL&? 
004E OA4D GOTO ACKloop2 
ACK loop3 
USER _Q 


;*** This would be quick user code 


BBS B_SCL,ACKloop3 ;Wait for clock low 
OO04F 0625 BTFSC B SCL>>8,B SCL&7 
0050 OA4F GOTO  ACKloop3 
0051 OCF? MOVLW TARE AD 7;End ACK 
0052 0005 TRIS PORTA 
BBC B_RD,NEXTBYTE ;Skip if read (we were acking address on 
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0053 0707 BTFSS B_RD>>8,B_RD&7 


0054 OA21 GOTO NEXTBYTE 


pK KKK KKK KKK KKK KKK RK KKK KK KKK KK KEK KE KKKAKKK KKK KKK KK KKK KK KKK 


I2C Readback (I2C read request) 
Application specific code to get bytes to send may be add 


we "a 


; This routine gets data from location pointed to by I2CSUB 
; sends it to I2C. Subsequent reads get sequential addresse 
; AND’s the register # with 7 to limit to 8 registers (for 


; could be modified to do a comparison to an ablolute numbe 


~e we 


KKK KK KK I KK KKK KK IK KKK KEK IK KKK KK KK KKK KI KKK KK KKK KKK KKK KK KK KKK 


NEXTOUT 
;*** <<< PUT NEXT BYTE INTO I2CREG HERE NOW! >>> *** 
USER_XMIT 


;*** This would be user code to prepare an output byte 
7;*** example code sends id string to output 


0055 0767 BTFSS B ID>>8,B ID&7 
0056 0A59 GOTO _NXO_notid 
0057 0300 CALL GETID ;get next byte from ID chan 
0058 0A60 GOTO OUT_CONT zand send it 
_NXO_notid 
0059 0CO7 MOVLW O7H ;Register count 
005A 0169 ANDWE I2CSUBA, f sLimit register count 
005B 0COB MOVLW I2CRO >Pseudo-registers 
005c 01C9 ADDWF I2CSUBA, W ;Offset from buffer start 
0OOSD 02A9 INCF I2CSUBA ;Next sub-address 
OOS5E 0024 MOVWE ESR ;Indirect address 
OOSF 0200 MOVE W ind ;Get data from register 
OUT_CONT 
0060 0028 MOVWE I2CREG 
;—- add code here to init I2CREG! when B_ID is clear! 
0061 0CO08 MOVLW 8 ;Bit counter 
0062 002A MOVWE I2CBITS 
;** OUT bits! — external poll may be executed during low c 
; may also be executed during high cycle if 


;* ENABLE line is checked for loss of enable ONLY during HI 


7*** CLOCK IS LOW — CHANGE DATA HERE FIRST! 


7*** loop 1: data was 1 
| 1i0UT_ loop 1 
0063 0368 RLF I2CREG,F ;Shift data out, MSB first 
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0064 
0065 


0066 


0067 


0068 


0069 


006A 


006B 


006C 


006D 


006E 


00 6F 
0070 
0071 
0072 
0073 
0074 


0075 
0076 


0077 
0078 


0079 


OO7A 


0603 
0A79 


0405 


OCF6 


0005 


0405 


0004 


0725 


OA6B 


0625 


OA6D 


O2EA 
0OA74 
OCF? 
0005 
OA80 


0368 


0703 
OAGA 


OCF7 
0005 


0004 


0725 


SKPNC 
GOTO 
CLB 
BCE 


MOVLW 
TRIS 
CLB 
BCF 


iiOUT_0 
CLRWDT 


USER Q 
seek This would 


{iOUT_loop 02 
BBC 
BTFSS 


GOTO 


USER_Q 
sxxk This would 


1iOUT_ loop 03 
BBS 
BTESC 


GOTO 


DECFS2Z 
GOTO 
MOVLW 


TRIS 
GOTO 


iiOUT_loop_0 
RLF 


SKPC 
GOTO 


MOVLW 
TRIS 


ii0UT 1 
CLRWDT 


USER Q 
s*kk This would 


1i0UT loop 12 
BBC 


OUT A 
B SDA 
B SDA>>8,B SDA&? 


TAWRITE 

PORTA 

B_SDA 
B_SDA>>8,B SDA&7 


be quick user code 


B SCG; 220UT. f60n.:02 
B SCL>>8,B_ SCL&7 


11OUT loop 02 


be quick user code 


B SCL,iiOUT_ loop 03 
B SCL>>8,B SCL&7 


i10OUT_ loop _03 


I2CBITS 
1i0OUT_ loop 0 
TAREAD 

PORTA 
{iOUT_ack 


I2CREG,F 


ii0UT_0 


TAREAD 
PORTA 


be quick user code 


B SCL,iiOUT loop 12 


71->0: change 
;Output another 1! 
;Output 0 


;Set data (just in case docs are 


;Clear watchdog timer 


;Wait for clock high 


*Wait for clock low 


Count bits 
;Loop for last bit 0 
s;Done with last bit 0... Se 


7;Get ACK 


;Shift data out, MSB first 


70->1: change 
rOutput another 0! 


7Set to 1 


;Clear watchdog timer 


;Wait for clock high 


BTFSS B SCL>>8,B SCL&7 
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007B OA7A GOTO iiOUT loop 12 


USER_Q 
:*** This would be quick user code 


LiOUT_loop_13 


BBS B SCL,iiOUT_loop_13 ;Wait for clock low 
007C 0625 BTFSC B SCL>>8,B SCL&7 
007D OATC GOTO iiOUT_loop 13 
OO7E O2EA DECFSZ I2CBITS ;Count bits 
OO7F 0A63 GOTO L320UT Loop.) ;Loop for last bit 1 
LiOUT_ack 7Get acknowledge 
0080 O02A9 INCF I2CSUBA ;Next sub-address 


LiOUT_loop_ a2 


BBC B_SCL,iiOUT loop a2 sWait for clock high 
0081 0725 BTFSS B SCL>>8,B_ SCL&7 
0082 OA81 GOTO LLOUT_ loop a2 
BBS B_ SDA, I2CWAIT ;No ACK — wait for restart! 
0083 0605 BTFSC B SDA>>8,B_ SDA&7 
0084 OAI11 GOTO I2CWAIT 


?- prepare next character here! 


LLOUT_loop_ a3 


BBC B_SCL, NEXTOUT ;Wait for clock low - output next 
0085 0725 BTESS B_SCL>>8,B SCL&7 
0086 OA55 GOTO NEXTOUT 

BBS B_ SDA,iiOUT_loop_ a3 ;Watch out for new start condition 
0087 0605 BTFSC B SDA>>8,B SDA&7 
0088 OA85 GOTO 1iOUT_loop a3 
0089 O0A11 GOTO I2CWAIT ;Stop received! 
OO8A O0A11 GOTO I2CWAIT 


pK KK KKK RK IK KI KKK RIK KE KK KKK KKK KIRK KKK KKK KK RK KKK KK KKK 


‘s* Unit address received - check for valid address 
ox 


sR KK KK KK KKK HK KKK KKK EK KERR KKK KKK KKK RE KKK KKK KEK KK KKK KKK KK KKK 
ACK_UA 
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SEB B_UA ?Flag unit address received 
008B 0527 BSF B_UA>>8,B_UA&7 
008C 0608 BTFSC I2CREG,0 *Skip if data coming in 
SEB B_RD ;Flag ~ reading from slave 
008D 0507 BSF B RD>>8,B RD&7 
OO8E 0208 MOVF I2CREG, W ;Get address 
O0O8F OEFE ANDLW OFEH *Mask direction flage befor 
0090 OFD6 XORT.W DEVICE ADDRESS *Device address 
0091 0743 OA11 BNZ I2CWAIT ;Not for me! (skip rest of 
BBS B_RD,ACKloop ;Read - no secondary address 
0093 0607 BTFSC B_RD>>8,B RD&7 
0094 0A47 GOTO ACKloop 
SEB B_SA ;Next is secondary address 
0095 0547 BSF B SA>>8,B_ SA&7 
0096 0A47 GOTO ACKloop >Yes! ACK address and conti 


oe Kk KK KK KKK KK KK KKK KKK KKK KK KK KEK KKK KEK KKK KKK KKK KK KK 


;* Secondary address received - stow it! 


** SA = 0 is converted to 128 to facilitate ID read 
pK KK Ka I KK IK KK KK KK IK KK KKK RK KKK KKK 


ACK SA 
CLB B_SA ;Flag second address received 
0097 0447 BCF B_SA>>8,B SA&7 
CLB B_ID 
0098 0467 BCF B ID>>8,B ID&7 
0099 0208 MOVE W I2CREG ;Get subaddress 
009A 0643 SKPNZ ;Not 0 
SEB B_ID ;Flag - id area selected 
009B 0567 BSF B_ID>>8,B_ID&7 
009C 0029 MOVWF I2CSUBA ;Set subaddress 
009D 0A47 GOTO ACK loop 
END 


Errors : 
Warnings : 0 





SS SSS SSS SSS SSDS SSS SSS 
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INTRODUCTION 


The PIC16C5X microcontrollers are ideal for implement- 
ing low cost combinational and sequential logic circuits 
that traditionally have been implemented using either 
numerous TTL gates or using programmable logic chips 
such as PLAs or EPLDs. 


PIC16C5xX is a family of high-performance 8-bit micro- 
controllers from Microchip Technology. It employs 
Harvard architecture, i.e has a separate data bus (8-bit) 
and a program bus (12-bit wide). All instructions are 
single word and execute in one cycle except for program 
branches. The instruction cycle time is 200 ns at 20 MHz 
and faster versions with clock frequency of 20 MHz 
(instruction cycle = 200 ns) are planned. The PIC16C5X 
microcontrollers are ideal for PLD-type application be- 
cause: 


* 


Very low cost. Extremely cost effective to replace TTL 
gates or expensive EPLD’s. 

Fully programmable. PIC16C5X microcontrollers are 
offered as One Time Programmable (OTP) EPROM 
devices. 

Available off the shelf from distributors. 

PC board real estate saving can be substantial when 
replacing multitude of TTL’s or several PLD’s with 
PIC16C5X microcontrollers which are packaged in 18 
and 28 pin packages (DIP, PLCC, SOIC). 
Substantial power savings can be attained by using 
PIC16C5X's SLEEP mode. In this mode typical power 
consumption of PIC16C5X is less than 1uUA. 
PIC16C5X’s I/O ports are bidirectional and software 
configurable as input or output. The user can mix and 
match number of inputs or outputs as long as the total 
does not exceed 20 (PIC16C55/57). 

PIC16C5X’s output pins have large current source/ 
sink capability. They can directly drive LED’s. 

The speed and efficiency of the PIC16C5X allows it to 
perform other control, timing, and compute functions 
in addition to implementing a PLA function. 


* * + + 


+ 


* 


+ 


IMPLEMENTING A PLA 


Toimplement a generic combinational logic function, we 
can simply emulate an AND-OR PLA in software. This 
will require that the logic outputs be described as sum of 
products. To describe our algorithm, we will use a simple 
8-input, 8-bit output PLA with 24 product terms 
(Figure 1). We will further use the truth table in Figure 2 
as the PLA function being implemented. In this example, 


only four inputs (A3: AO) are used and the other four 
inputs (A7: A4) are don’tcare. On the output side, seven 
output pins (Y6: YO) are used and Y7 is unused. To 
implement this PLA, the logic inputs AO,A1,....A7 can be 
connected to port RB pins RBO,RB1,...,.RB7 respec- 
tively. The logic outputs YO,Y1,...,Y7 will appear on port 
RC pins RCO,RC1,...,RC7 respectively. Port RB is con- 
figured as input and port RC will be configured as output. 
To evaluate each product term one XOR (exclusive OR) 
and one AND operation will be required. For example, to 
determine product term P3 = A3.A2.A1.A0 , the expres- 
sion to evaluate is: 


(A<7:0> .XOR. XXXX0011B ) .AND. 000011118). 


The constant with which XOR is done will be referred to 
as P3_x in our discussion. P3_x = XXXX0011B will 
ensure that if A<3:0> = 001 1B, the least significant 4 bits 
of the result will be O000b. The AND constant, referred 
to here as P3_a (Product term 3, AND constant) basi- 
cally eliminates the don’t care inputs (here A<7:4>) by 
masking them. Therefore, if the result of the XOR-AND 
operation is zero then P3 = 1 else P3 = 0. Once the 
Product terms are evaluated they are stored in four 
product registers Preg_0 to Preg_3. To determine an 
output term: 


YO =P0+P2+P3+P5+P6+P7+P8+P9+P10+P12 
+ P13 + P14 


we need to evaluate the following expression: 


(Preg_a .AND. OR_a0) .OR. (Preg_b .AND. OR_b0) 
.OR. (Preg_c .AND. OR_cO) 


In our case the constant values to impiement YO are as 
follows: 


ORaO= 111 01 1 0 1 
P7 P6 P5 P3 P2 PO 

OR _bO= 11010111 

OR_c0= 00000000 


For larger number of inputs, outputs or product terms, 
the evaluation will be more complex but following the 
same principle. Appendix A shows the assembly code to 
implement this 8 input X 8 output X 24 Product PLA. This 
example optimizes speed as well as program memory 
requirement. Appendix B shows aslightly different imple- 
mentation (only EVAL_Y MACRO is different) that opti- 
mizes program memory usage over speed. Table 1 
shows time and resources required to implement differ- 
ent size PLAs. 
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FIGURE 1 - A SIMPLE PLA 


AND Plane OR Plane 


ee) 


tee eR eee ee See Ree See 
mb be Rf fat ppp BE ppt fee Sen 


Heltide tteereee 


ODODE KXDDDODKK 





FIGURE 2 - BINARY TO 7-SEGMENT CONVERSION EXAMPLE 


_ BINAR cee 


BINARY —-® 7-SEG CONVERTER 
(COMMON CATHODE) 


Truth Table: - Product Terms 


| Hex | A3 A2  A1 AO YO Yi  Y2 Y3  Y4 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
Cc 
D 
E 
F 


oO 


P1 =A3, 
Pt 

P2 
P3 

P4 

P5 

P6 

P7 

P8 

P9 

P10 

P14 

P12 
P13 
P14 
P15 = A3, A2, A1, AO 


Baoan i dod00000 

Seat eed begs See 
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maAOA0-04~0-0-0-0-0 
en re ee eee ee ae 
CO00HAA2324 0024442 
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seh rho Snag eon the Bea eee, 





DS00511B-page 2 © 1993 Microchip Technology Inc. 
2-60 


PLD Replacement 





SPEED/RESPONSE TIME begin movlw Offh ; 

tris 6 ;Port b = input 
The worst case response time of a PLA implemented in ude) ; 7 
this fashion can be calculated as follows. First, we define ‘ 
td =time required to execute the PLA program assuming ae ie eee aE 
the worst case program branches are taken. Then the paseo Move “FOre Dew. «ahead: tapes 
maximum propagation delay time from input change to andlw Ofh Mask off bits 7:4 
valid output = 2td. This is because if an input changes call op tbl : 
just after the program reads input port, its effect will not ROUWE “BSRE-é ;Write output 
show up until the program completes the current execu- ae pass : 
tion cycle, re-reads input and recalculates output. This is ; 
shown in Figure 3. There are ways to improve the delay Chere “een. Ee ; ooo eee io 
time such as sample inputs several times throughout the , ll 
PLA program and if input change is sensed, return to the Be ee ee 
beginning rather than execute the rest of the evaluation Eee. “Pees 
code. retlw b”01011011"; 

retlw “bv01001111%; 
: ae Look-Up Method For Small PLA ciiish. ror tOO aes 
mplementation retlw b”01101101"; 
If the number of inputs is smail (8 or less) then a simple retlw b”01111101"; 
table look-up method can be used to implement the PLA. retlw b’00000111"; 
This will improve execution time to around 5 us retlw  b”01111111"; 
(@ 8 MHz input clock). The following code implements “ 7 
the BCD to 7-segment conversion (Figure 2) using this poe eae 
technique. retlw b”’01110111”"; 

retlw b”01111000"; 

retlw b”00111001”; 

retiw: bb’ OLOLLI10" 

retlw b”01111001"; 

retlw b”01110001”; 


TABLE 1 - EXECUTION TIME AND RESOURCES NECESSARY FOR DIFFERENT SIZE PLA's 


Number of 





Number of 
Number of Outputs Number of wunmeer ok Real Time 
Inputs Including Number of | RAM Locations} , Program Memory Galeto @ 20 MHz to 
fdbk Products | Required NRam| Locations Hequired MBeUte Execute PLA 
and o/e PLA NCYC 
228 45.6us | Time Efficient 
352 70.4 us Code Efficient 
447 89.4us | Time Efficient 
535 107 us | Code Efficient 
1042 1042 208.4 us | Time Efficient 
1250 2501S | Code Efficient 
16 1661 1661 372.2 Us Time Efficient 
20 24 80 
if Ni = Number of inputs Ni Then, NRAM @ NIW + NOW +N PW: Time efficient 
NIW = Number of input words, NIW (=| NRAM @ NIW + NOW + 2 N PW + 2: Code efficient 
NP = Number of products - 7 Np NROM @ 8 + N PW +NOW+N P[2+3 NIW] +NO + NPW- 4: Time efficient 
NPW = Number of product words, i.e. NPW = 3 NROM @ 17 +N PW + NOW +N P [2 + 3 NIW] +NO [NPW + 3]: Code efficient 
NO = Number of outputs NCYC @ 8+NPW+NOW+NP + 3 NIW] +NO [2 NPW <4 ]: Time efficient 
NOW = Number of output words, i.e. NOW = a NCYC @ 8+NPW+NOW+NP[2+3NIW]45N_ [NPW + 1]: Code efficient 


SE TS ST OPE TP Se So ES 
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FIGURE 3 - PLA PROGRAM FLOW 


Read Inputs Read Inputs 
Evaluate Product , 
Terms Has Input 


Changed? 


Evaluate Product 
Terms 


Has Input 


9 
A very simple PLA evaluation flow. Changed‘ 


| ; | 
Terms 
moto i XP 
I 
Write Output 
to Ports 


| New valid 

| Output More complex program flow can be used, 
| ! such as this one to reduce tprop. 
rt tprop ~ 2td-—— In this example td < t prop < td + td3 


In this simple implementation, the maximum propragation 
delay from input change to output change is ~ 2td 


FIGURE 4 - AN ASYNCHRONOUS STATE IMPLEMENTING AN 

MACHINE ASYNCHRONOUS STATE MACHINE 
The concept can be easily extended to implement se- 
hoe Yo quential logic i.e. a state machine. Figure 4 shows a 
A1 —| Yi state machine with n inputs (AQ-An), m outputs (YO-Ym) 
Inputs ; | Outputs and p states that feedback as inputs to the PLA (F0-Fp). 
| —* »! Combinational vo] In PIC16C5X the states will be stored as bits in RAM 
Logic location. Input will now mean input from a port as well as 


from the feedback registers. Figure 5shows an example 
PLA with 8 inputs AO,A1,..,A7 that are connected to port 
RB pins RBO,RB1,..,RB7. This example PLA has a total 
of 24 outputs of which 8 are actual outputs, another 8 are 
output enable control for the outputs and the other 8 are 
feedbacks (or states). The PLA shown here, therefore, 
in essence implements an asynchronous state machine 
(i.e. there is no system clock). 
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This example shows 16 inputs (including feedback), 64 product terms and 24 
outputs including feedback and o/e control. This example demonstrates that o/e 
control is easily implementable using PIC's bidirectional ports with tristate control. 
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FIGURE 5 - EXAMPLE OF A LARGER PLA IMPLEMENTATION 
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FIGURE 6 - ASYNCHRONOUS STATE MACHINE IMPLEMENTATION 


Fmaster > 
Fslave 


Flowchart for implementing synchronous 
state machine. Clock is input to an I/O port. 
Fmaster and Fslave are RAM locations that 
store state variables FOm, ...Fpm and FOs, 
... Fps respectively. 


ff Naf “Naf Cf 
ee Gee Ge eee 


as 
oe 
a a: a a os 


IMPLEMENTING A SYNCHRONOUS 
STATE MACHINE 


Ina synchronous system (see Figure 6) usually all 
inputs are stable at the falling edge (or rising) edge of the 
system clock. The state machine samples input on the 


falling edge, evaluates state and output information. | 


The state outputs are latched by the rising edge of the 
clock before feeding them back to the input (so that they 
are stable at the falling edge of the clock). To implement 
such a state machine, the system clock will have to be 
polled by an input pin. When a falling edge is detected, 
the PLA evaluation procedure will be invoked to com- 
pute outputs and write them to output pins. The PLA 





procedure will also determine the new state variables, 
FOm, Fim,...,-pm and store them in RAM. The program 
will then wait until a rising edge on the clock input is 


_ detected and copy the “master” state variables 


(FOm,..,Fpm) to slave state variables (FOs,F1s,..,Fps). 
This step emulates the feedback flip-flops. 


SUMMARY 


In conclusion, the PIC16C5X can implement a generic 
PLA equation and provide quick, low cost solution where 
system operation speed is not critical. 


Author: Sumit Mitra 
Logic Products Division | 
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APPENDIX A: PLA IMPLEMENTATION: TIME EFFICIENT APPROACH 


MPASM BO0.54 PAGE 1 


aK KK KK KKK IKK IK KKK KKK KK KKK KEK KKK KEK KKK KK KEKE KKK KEEKKKKEKKKKKEKKEKKE 


plala.asm ;: 
This procedure implements a simple AND-OR PLA with: 


it 


A? A6 AS A4 A3 A2 Al AO 
P23 P22 oxesete, (PO 
= Y7 Y6 YS Y4 Y¥3 ¥2 Y1 YO 


8 inputs 
24 product terms 
8 outputs 


Ht 


The eight inputs are assumed to be connected to PORT RB such that 
RBO = AQ, RB1 = Al, ..- , RB? = A?. 

The outputs are programmed to appear on port RC such that 

RCO = YO, RCL = Yip: vac i REP = YT 





This implementation optimizes both speed & program memory usage 


kkk K KKK KKK KKK KKK KKK Kk aKa KK KKK aK KKK KKK KKK KKK KK KKK KKK KKK 


Gefine RAM locations used: 


=e 7s “se we “ses ses a 8 Me “Qe “HS Ve WH Ve Me Me WS MQ & 
a 


LIST P=16C57 

000C input equ ec12" :RAM location 12 holds input 
000D Y_reg equ aei34 sholds output result 
0008 Preg a equ aria ;Product terms PO to P7. Preg a<0> = PO 
OOOF Preg b equ dtl! ;Product terms P8 to P15. Preg b<0> = P8 
0010 Preg c equ da’i6! ;Product terms P16 to P23. Preg c<0> = 
P16 

; define some constants and file addresses: 
0000 bito equ 0 ; 
0001 bitl equ 1 ; 
0002 bit2 equ 2 ; 
0003 bits equ S) ; 
0004 bit4 equ 4 ; 
0005 bit5 equ 5 : 
0006 bite equ 6 : 
0007 bit? equ 7 ; 
0003 status equ 3 : 
0006 port_b equ 6 7 
0007 POL Cc equ z 

; define the AND plane programming variables: 
0000 PO x equ b’00000000' ; 
OOO0F PO a equ BeOggel I E® 3 
0001 Pi x equ b’00000001' ; 
000F Plia equ BrOQooT TI 3 
0002 P2 yx equ b’00000010' ; 
0O0O0F P2 a equ ois 9 012 © 40 os i el 
0003 P3 xX equ Deoooooo LL. « 
O00F Pa a equ bP OO00TT IE 3 
0004 P4 xX equ b’00000100' ; 
000F P4a equ brooogrd Las. ¢ 
0005 PS x equ b’00000101' ; 
OOOF P5_a equ be OOOO LTIL? 3 
0006 P6 x equ b’00000110' ; 
O00F P6 a equ b/00001111'° ; 
0007 PT x equ b'00000111' ; 
OOOF P7 a equ b’00001111' ; 
0008 P8 x equ b’00001000° ; 
000F P8 a equ b'00001111' ; 
0009 P9 x equ b’00001001' ; 





ERA ERAS ST EE SS ET TE I TI ST I aE EE SOT IR RETEST ED, 
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OOOF P9 a equ b’00001111' ; 
000A P10 x equ b’ 00001010! ; 
OO00F P10 a equ oye 060420 )8 Ss oe Re ; 
000B Pid x equ b’00001011' ; 
000F Pllia equ b’00001111' ; 
Q00C P12 x equ b’00001100! ; 
O00F P1l2_a equ booo0l iil" ; 
000D Piss equ b’00001101' ; 
OOOF P13_a equ b’00001111' ; 
O00E P14 x equ b’00001110' ; 
OO00OF P14 a equ b’00001111' ; 
000F PIDs equ b’00001111' ; 
000F P15 a equ b’00001111' ; 
0000 P16 x equ b’ 00000000! : 
0000 , P16 a equ b’‘ 00000000! : 
0000 P17 x equ b’00000000' ; 
0000 Pl7ia equ b’00000000' ; 
0000 P18 x equ b’00000000' 4 
0000 P18 a equ bf 00000000! ; 
0000 Pid.-x equ b’ 00000000! : 
0000 P19 a equ b’00000000' ; 
0000 P20_xX equ b’ 00000000! r 
0000 P20 a equ b’ 00000000! : 
0000 P21 x equ b’00000000' ; 
0000 P21_a equ b’ 00000000! ; 
0000 P22 x equ b’‘00000000' ; 
0000 P22 a equ b’ 00000000! ; 
0000 P23 x equ b’00000000' ; 
0000 P23 a equ b’ 00000000! ; 


; define OR plane programming variables: 
x 


OOED OR_a0 equ beLiTerLei* ; for output YO 
00D? OR_bO equ peLIgTelia! ; 
0000 OR_cO equ b’00000000! : 
00 9F OR_al equ bY 10011111" ; for output Y1 
0027 OR_bl equ b’00100111' ; 
0000 OR_cl equ b’ 00000000! ; 
00OFB OR_a2 equ bP ii1iitoil* ,- for Curputc- YZ 
002F OR_b2 equ b OO LOLI I ; 
0000 OR_c2 equ 6100000000! ; 
006D OR_a3 equ oak 0 tC © 0 ; for output. ¥3 
0079 OR_b3 equ BPO Ta Loos: ; 
0000 OR Gs equ b’00000000' : 
0045 OR_a4 equ b’01000101' ; for output Y4 
OOFD OR_b4 equ lado ; 
0000 OR_c4 equ b’00000000' ; 
0071 OR_a5 equ bY 01110001 ' ‘for Sutpuc: YS 
OODF OR_b5 equ bY Erol ; 
0000 OR_c5 equ b’ 00000000! : 
007C OR_a6é equ b’01111100' ; for output Y6 
OOEF OR_b6 equ as Wel 2 ; 
0000 - OR_c6 equ b’ 00000000! ; 
0000 OR_a7 equ b’00000000' . for -outpur YY] 
0000 OR_b7 equ b’00000000' ; 
0000 OR C7 equ 600000000! ; 

org Leen : 
Q1FF OA00 begin goto main ; 

org 000h ; 


; define macro to evaluate 1 product (AND) term: 


Ld 
’ 


0000 0902 main call pla88 ; 
0001 OA0O goto main ; 
a SP ESE GE EF I ST A TL CE A TE A TE aE 
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EVAL_P MACRO Preg x,bit_n,Pn_x,Pn_a 
movf input, W 
xorlw Pn x 
andlw Pna 
bttsc status,bit2 
bsf Preg x,bit_n 
ENDM 


skip if zero bit not set 
product term = 1 


~s te 3s te Me 


define macro to load OR term constants: 


EVAL_Y MACRO OR_an,OR_bn,OR_cn,bit_n 
LOCAL SETBIT 
movt Preg_a,W 
andlw OR_an 
btfss Status,bit2 
goto SETBIT 





7e “ese "ee Fe fe 


movf Preg b,W 
andlw OR_bn 

btfss status,bit2 
goto SETBIT 


-e Se 6M US 


movft Preg c,W 

andliw OR_cn 

btfss status,bit2 
SETBIT bsf Yo reg,bit 7 

ENDM 


=e ~e se Vs 


now the PLA evaluation procedure: 


s 
e 
* 
, 


0002 OCFF pla88 movlw Ofi hn ; 

0003 0006 tris 6 7; port_b = input 

0004 0206 movf port_b,wW ; read input 

0005 002C movwf input ; store input in a register 
0006 O006E CLhEL PEGG <4 ; clear Product register a 

0007 OOGF elrr Preg b ; clear Product register b 

0008 0070 clrf Preg_c ; clear Product register c 

0009 006D Clee Y reg ; clear output register 


EVAL P Preg_a,bit0,PO x,P0O a 


QOOO0A 020C movf input,W : 

000B OFOO xorlw PO x : 

000C OEOF andlw PO a ; 

000D 0643 btfsc status,bit2 >; skip if zero bit not set 
OOO0E O50 bsf Preg a,bito - “product. term = 1 


EVAL P Preg_a,bitl,P1l_x,Pl_a 


OOOF 020C movf input,W = 

0010 OFO1 xorlw PA ; 

0011 OEOF andlw Pla ; 

0012 0643 btfisc status,bit2 ; skip if zero bit not set 
0013 052E osf Preg a,bitl ; product term = 1 


EVAL P Preg_a,bit2,P2_x,P2_a 


0014 020C movf input, W ; 

0015 OFO2 xorlw Pa : 

0016 OEOF andlw P2 a ; 

0017 0643 btfsc status,bit2 ; skip if zero bit not set 
0018 0545 bosf Preg a,bit2 ; product term = 1 


EVAL P Preg_a,bit3,P3_x,P3_a 


0019 020C movft input,W : 

OO1A OFO3 xorlw P3 x ; 

001B OEOF andlw PS. a : 

001C 0643 btfsc status,bit2 ; skip if zero bit not set 
001D OS6E bsf Preg a,bit3 ; product term = 1 
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naan 


EVAL P Preg a,bit4,P4 x,P4 a 





OO1E 020C movft input, W : 
OO1F OF04 xorlw P4 x ; 
0020 OEOF andlw P4ia ; 
0021 0643 btfsc status,bit2 ; skip if zero bit not set 
0022 058E bsf Preg a,bit4 ; product term = 1 
EVAL _P Preg a,bit5,P5 x,P5 a 
0023 020C movft input ,W : 
0024 OFOS xorlw P5_x ; 
0025 OEOF andlw P5 a ; 
0026 0643 btfsc status, bit2 ; skip if zero bit not set 
0027 OSAE bsf Preg a,bit5 ; product term = 1 
EVAL _P Preg a,bit6,P6 x,P6 a 
0028 020C movft input, W ; 
0029 OF06 xorlw P6 x ; 
002A OEOF andlw P6 a ; 
002B 0643 btfsc status,bit2 ; skip if zero bit not set 
002C O5CE bsf Preg a,bit6 ; product term = 1 
EVAL P Preg.a,bit?,P7_ x,P7_a 
002D 020C movf input, W : 
0O2E OFO7 xorlw  P7 x ; 
002F OEOF andlw Pla ; 
0030 0643 btfsc status,bit2 ; skip if zero bit not set 
0031 OSEE bsf Preg a,bit7 ?; product term = 1 
EVAL P Preg b,bit0,P8 x,P8 a 
0032 020C movt input, W ; 
0033 OFO8 xorlw P8 x ; 
0034 OEOF andlw P8 a ; 
0035 0643 btfse status,bit2 ; skip if zero bit not set 
0036 O5S0F osf Preg_b,bit0 ; product term = 1 
EVAL P Preg_b,bit1,P9 x,P9 a 
0037 020C movt input, W ; 
0038 OFO9 xorlw P9 x ; 
0039 OEOF andlw P9 a ; 
003A 0643 btfsc status,bit2 > skip if zero bit not set 
003B 052F osf Preg_b,bitl ? product term = 1 
EVAL P Preg_ b,bit2,P10_x,P10 a 
003C 020C movt input, W ; 
003D OFOA xorlw P10 x ; 
003E OEOF andlw P10 a ; 
OO03F 0643 btfsc status,bit2 ; skip if zero bit not set 
0040 O54F bsf Preg b,bit2 ; product term = 1 
EVAL P Preg_b,bit3,Pl1_x,Pll_a 
0041 020C movf input, W ; 
0042 OFOB xorlw Pll x ; 
0043 OEOF andlw Plilia ; 
0044 0643 btfsc status,bit2: ; skip if zero bit not set 
0045 OS6F bosf Preg b,bit3 *; product term = 1 
EVAL P Preg _b,bit4,P12_x,P12 a 
0046 020C move input, W ; 
0047 OFOC xorlw P12 x ; 
0048 OEOF andlw P12 a ; 
0049 0643 btfsc status,bit2 ; skip if zero bit not set 
OO4A 058F bsf Preg b,bit4 ; product term = 1 
EVAL P Preg b,bit5,P13_x,P13_a 
004B 020C movf input, W : 
004C OFOD xorlw P13 _x ; 
004D OEOF andliw Pl13.a ; 
OO04E 0643 btfsc status,bit2 ; skip if zero bit not set 
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O04F OSAF bsf Preg b,bit5 ; product term = 1 





EVAL P Preg b,bit6,P14 x,P14 a 


0050 020C movf input, W ; 

0051 OFOE xorlw P14 x ; 

0052 OEOF andlw P14 a : 

0053 0643 btfse status,bit2 ; skip if zero bit not set 
0054 OSCF bsf Preg b,bit6 ; product term = 1 


EVAL P Preg b,bit7?,P15_x,P15_a 


0055 020C movft input, W : 

0056 OFOF xorlw P15 x ; 

0057 OBOF andlw Pl5_a ; 

0058 0643 btfsc status,bit2 > skip if zero bit not set 
0059 OSEF bosf Preg b,bit?7 7; product term = 1 





EVAL P Preg c,bit0,P16 x,P16 a 


OO5A 020C movf input, W : 

005B OF0O xorlw P16 x ; 

005C OE00 andlw Pl6a ; 

0O0O5D 0643 btfsc status,bit2 ; skip if zero bit not set 
OOSE 0510 bsf Preg c,bitod ; product term = 1 


EVAL_P Preg_c,bitl1,P17_x,P17_a 


OO5F 020C movf input, W ; 

0060 OFO0O xorlw P17 x ; 

0061 OE0O andlw P17 ia ; 

0062 0643 btfsc status,bit2 ; skip if zero bit not set 
0063 0530 osf Preg c,bitl ; product term = 1 


EVAL P Preg c,bit2,P18 x,P18 a 


0064 020C movf input, W ' 

0065 OFO0O xorlw P18 x ; 

0066 OE0O0 andlw P18 a ; 

0067 0643 btfsc status,bit2 ; skip if zero bit not set 
0068 0550 bsf Preg c,bit2 ; product term = 1 


EVAL P Preg_c,bit3,P19 x,P19 a 


0069 020C movt input, W ; 

006A OFOO xorlw P19 x ; 

006B OE00 andlw P19 a ; 

006C 0643 btfsc status,bit2 :; skip if zero bit not set 
006D 0570 bsf Preg c,bit3 ; product term = 1 


EVAL P Preg_ c,bit4,P20 x,P20 a 


006E 020C movft input, W : 

OO6F OFOO xorlw P20 x : 

0070 OE00 andlw P20 a ; 

0071 0643 btfsc status,bit2 ; skip if zero bit not set 
0072 0590 bsf Preg c,bit4 ; product term = 1 


EVAL P Preg_c,bit5,P21 x,P21 a 


0073 020C movf input, W : 

0074 OFO0O xorlw P21 x ; 

0075 OE0O0 andlw P2la ; 

0076 0643 btfsc status,bit2 ; skip if zero bit not set 
; product term = 1 


0077 OSBO bsf Preg c,bitS 


EVAL P Preg c,bit6,P22 x,P22 a 


0078 020C movf input,W : 

0079 OFOO xorlw P22 x ; 

QOO7A OE00 andlw P22 a : 

007B 0643 btfsc status,bit2 ; skip if zero bit not set 
0O07C O5D0 bsf Preg c,bit6 ; product term = 1 


EVAL P Preg c,bit7,P23_x,P23_a 


0O07D 020C movf input, W ; 
QOO7E OFOO xorlw P23 x ; 
OO7F OEO0O andlw P23 a ; 


MC SR SES AES SE RT LC SE RASA CDOT REE ESSER 
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0080 0643 btfsc status,bit2 ; skip if zero bit not set 
0081 O5F0 bsf Preg c,bit7 ?; product term = 1 
Or pL EVAL Y OR_a0,OR_b0,OR_c0O,bit0O 
LOCAL SETBIT : 
0082 O20E movft Preg a,W ; 
0083 OEED andlw OR_a0 ; 
0084 0743 btfss status, bit2 ; 
0085 OA8D goto SETBIT ; 
0086 020F movft Preg b,W : 
0087 OED? andlw OR_b0 ; 
0088 0743 btfss status, bit2 ; 
0089 OA8D goto SETBIT ; 
OO8A 0210 movf Preg_c,W ; 
008B OE0O andlw OR_cO ; 
008C 0743 btfss status,bit2 ; 
008D O50D SETBIT bsf Y_ reg,bit0 ; 


EVAL Y OR al,OR_b1,OR cl,bit1 
LOCAL  SETBIT ; 


OO8E 020E movf Preg_a,W ; 
OO8F OEOF andlw OR_al ; 
0090 0743 btfss status, bit2 , 
0091 OA99 goto SETBIT 7 
0092 020F movft Preg b,W ;: 
0093 0E27 andlw OR_bl ; 
0094 0743 btfss status,bit2 ; 
0095 OA99 goto SETBIT ; 
0096 0210 movft Preg_c,W ; 
0097 OEOO andlw OR_cl ; 
0098 0743 btfss status, bit2 ; 
0099 052D SETBIT bsf ¥ reg, bit) ; 


EVAL Y OR _a2,OR_b2,OR_ c2,bit2 
LOCAL  SETBIT ; 


OO9A 020E movt Preg a,W ; 
009B OEBFB andlw OR_a2 ; 
009C 0743 btfss status, bit2 : 
O09D QOAA5 goto SETBIT ; 
OO9E O020F movt Preg b,W ; 
OO9F OE2F andlw OR_b2 ; 
OOAO 0743 btfss status,bit2 ; 
OOA1 OAA5 goto SETBIT ; 
Q0A2 0210 move Preg c,W ; 
00A3 OEOO andlw OR GZ ; 
OOA4 0743 btfss status, bit2 , 
OOA5 O054D SETBIT bsf Y_ reg,bit2 ; 


EVAL Y  OR_a3,OR_b3,OR_c3,bit3 
LOCAL SETBIT ; 


OOA6 020E movf Preg a,W ; 
OOA7 OE6D andlw OR_a3 ; 
OOA8 0743 btfss status, bit2 ; 
OOA9 OAB1 goto SETBIT ; 
OOAA O020F movt Preg b,W ; 
OOAB 0E79 andlw OR_b3 ; 
OOAC 0743 btfss status, bit2 ; 
OOAD OAB1 goto SETBIT ; 
OOAE 0210 movet Preg c,W ; 
OOAF O00 andlw OR_c3 ; 


ee 
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OOBO 0743 btfss status,bit2 : 
OOB1 056D SETBIT bsf Y_ reg,bit3 ; 


EVAL Y OR a4,OR_b4,0R c4,bit4 
LOCAL  SETBIT ; 





OOB2 020E movt Preg_a,W ; 
00B3 OE45 andlw OR_a4 : 
0O0B4 0743 btfss status,bit2 5 
OOB5 OABD goto SETBIT . 
OOB6 020F movft Preg b,W ; 
OOB7 OEFD andlw OR_b4 ; 
OOB8 0743 btfss status,bit2 ; 
O0BY JABD goto SEVBL'L : 
OOBA 0210 movf Preg_ c,W : 
OOBB OEOO andlw OR_c4 ; 
OOBC 0743 btfss status,bit2 : 
OOBD 058D SETBIT bsf Y_reg,bit4 - 


EVAL Y OR_a5,OR_b5,OR_c5,bit5 
LOCAL SETBIT ; 


OOBE O020E movft Preg a,W ; 
OOBF O71 andlw OR_ a5 ; 
00CO 0743 btfss status,bit2 ; 
OO0C1 OAC9 goto SETBIT 
00C2 O20F movf Preg_ b,W ; 
00C3 OEDF andlw OR_bS ; 
00c4 0743 btfss status, bit2 ; 
O0C5 OAC9 goto SETBIT ; 
00C6 0210 mov Preg_c,W ; 
00C7 OE00 andlw ORCS ; 
00C8 0743 btfss status,bit2 
00C9 OS5AD SETBIT bsf Y reg,bit5 : 


EVAL Y OR_a6,OR_b6,O0R_c6,bité 
LOCAL  SETBIT ; 


OOCA O020E movf Preg_a,W ; 
OOCB OE7C andlw OR_a6 ; 
00CC 0743 btfss status,bit2 ; 
OOCD OAD5 goto SETBIT : 
OOCE 020F movt Preg b,W ; 
OOCF OEEF andlw OR b6 ; 
OODO 0743 btfss status,bit2 ; 
OOD1 OAD5 goto SETBIT : 
O0D2 0210 movf Preg c,W ; 
00D3 OE0O andlw OR c6 ; 
00D4 0743 btfss status, bit2 ; 
OOD5 O5CD SETBIT bsf Y_reg,bit6 , 


EVAL Y _ OR_a7,OR_b7,OR_c7,bit7 
LOCAL  SETBIT ; 


OOD6 O020E movft Preg a,W ; 
OOD7 OEOO andlw OR_a7 ; 
OOD8 0743 btfss status,bit2 : 
OOD9 OAEL goto SETBIT : 
OODA O20F movf Preg b,W H 
OODB OE0O andlw OR_b7 ; 
OODC 0743 btfss status,bit2 : 
QODD OAE1 goto SETBIT ; 
OODE 0210 movf Preg c,W ; 
OODF OEO00 andlw OR_c7 : 
OOEO 0743 btfss status,bit2 : 


aR ae SSE A oS ES SS aa TSS A SP SE SE 
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OOEF1 OS5SED 





SETBIT bsf Y reg,bit? ; 

7; Y_reg now contains 8 output values: 
OOE2 0040 wr out clrw ? 
O0E3 0007 tris 7 ; port_c = output 
OOE4 020D movt Y_reg,W : 
OOES 0027 movwf port.c 2 YY reg: => port .¢ 
OOE6 0800 retlw 0 ; 
00E7 0000 222 nop 

END 

Errors : 0 
Warnings : 0 


APPENDIX B: PLA IMPLEMENTATION: CODE EFFICIENT APPROACH 


MPASM BO0.54 PAGE 1 


KKK KK KKK KKK KKK KKK KEK KEKE KEK KKK KKK KEKE KKKKEKEKEKEKKKKEKKEKKKEKKKKKKKKKKKKEKKK 


plalb.asm : 
This procedure implements a simple AND-OR PLA with: 


8 inputs z= A7 A6 AS A4 A3 A2 Al AO 
24 product terms := P23 P22 ..... PO 
8 outputs se oY 7 YG: YS. Y4 YS. Y¥2 YI YO 


The eight inputs are assumed to be connected to PORT RB such that 
RBO = AO, RB1 = Al, ... , RB? = A?7. 

The outputs are programmed to appear on port RC such that 

RCO = YO, RC1l = Yl, ... , RC? = Y?. 


This implementation optimizes program memory usage over 
speed 


RAKE KK KKK KK KKK KK KKK KKK KKK KEK KKK KKK KK KKK KKK KEKE KKK KEK KKKKEKKKKEKKKKKKKKKKK 


Gefine RAM locations used: 


“se -e =e =e 7e 7s ve 7e “ea "es *e ~“s ~s “ese 7e 76s 7e ™e 7s 


LIST P=16C57 
000C input equ av l2" ; RAM location 12 holds input 
000D Y_reg equ avis" ; holds output result | 
O00E Preg a equ a”1a™ ; Product terms PO to P7. Preg_a<0> = PO 
0O00F Preg b equ avis” ; Product terms P8 to P15. Preg b<0> = P8 
0010 Preg c equ a” 16" ; Product terms P16 to P23. Preg_c<0> = P16 
0012 Pn_x equ aie" ; 
0013 Pn_a equ aon ; 
0014 OR_a equ a”20" ; 
0015 OR_b equ av*2i" ; 
0016 OR_c equ d”"22" ; 


+ define some constants and file addresses: 


° 
¢ 


0000 bitod equ 0 ; 
0001 bitl equ 1 ; 
0002 bit2 equ 2 ; 
0003 bit3 equ 3 ; 
0004 bit4 equ 4 ; 
0005 bits equ bs) ; 
0006 bit6é equ 6 ; 
0007 bit? equ 7 ' 
0003 status equ 3 ; 
0006 port_b equ 6 ; 
0007 port c equ 7 . 
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define the AND plane programming variables: 


=e ™e Me 





0000 PO x equ b”00000000" ; 
OOOF PO a equ b”00001111" ; 
0001 Pl x equ b”00000001" ; 
OO00F Plia equ b”00001111" 7 
0002 P2 x equ b”00000010" ; 
O00F P2 a equ b”00001111" ; 
0003 P3 x equ b”00000011" ; 
000F P3 a equ b”00001111" ; 
0004 P4 x equ b”00000100" ; 
OOOF P4 a equ b”00001111" . 
0005 PS x equ b”00000101" ; 
000F P5 a equ b”00001111" ; 
0006 P6 x equ b”00000110" ; 
OOOF P6 a equ b 0000-1121" ; 
0007 P7 Xx equ b”00000111" ; 
O0OF P7 a equ b”00001111" ; 
0008 P8 x equ b”00001000" ; 
OO0OF P8 a equ b”00001111" ; 
0009 P9 x equ b”00001001" ; 
OOOF P9 a equ b”00001111" : 
OOOA P10 x equ b”00001010" ; 
OO0F P10 a equ brooood 11a" ; 
000B Pll x equ b”00001011" ; 
O00F Pllia equ b”00001111" ; 
000Cc P12 x equ b”00001100" ; 
OOOF Pl2.a equ b”00001111" ; 
000D Pas. x equ b”00001101" ; 
OO00F Pl3_a equ b”00001111" ; 
OO0E P14 x equ b”00001110" ; 
000F P14 a equ b”00001111" ; 
000F P15 x equ bY eogot11e ; 
OOOF Pl5a equ b”00001111" ; 
0000 P16 x equ b” 00000000" ; 
0000 P16 a equ b”00000000" ; 
0000 P17 _ x equ b”00000000" ; 
0000 Pl7_a equ b”00000000" ; 
0000 P18 x equ b” 00000000" ; 
0000 P18 a equ b”00000000" ; 
0000 P19 x equ b”00000000" ; 
0000 Pi9 a equ b’ 00000000" : 
0000 P20_x equ b” 00000000" ; 
0000 P20 a equ 6b” 00000000" ; 
0000 P21 x equ b” 00000000" ; 
0000 P21 a equ b”00000000" ; 
0000 P22 x equ b” 00000000" ; 
0000 P22 a equ b”00000000" ; 
0000 P23 x equ b’”00000000" ; 
0000 P23 a equ b”00000000" : 


; define OR plane programming variables: 








OOED OR_a0 equ b”“ 11107101" ; for output YO 
00D7 OR_b0O equ bY’ TPoLod Ti ; 

0000 OR_c0 equ b”00000000" ; 

00 9F OR_al equ b" 10011111" ; for output Y1 
0027 OR_b1l equ b”00100111" ; 

0000 OR_cl equ b”00000000" ; 

OOFB OR_a2 equ oa Bs On baie Os ; for output Y2 
002F OR_b2 equ b”00101111" ; 

0000 OR_c2 equ b”00000000" ; 

006D OR_a3 equ BeOTToOLiod™ ; for output Y3 
0079 OR_b3 equ b”01111001" ; 

0000 OR_c3 equ b”00000000" ; 

0045 OR_a4 equ b”01000101" ; for output Y4 
OOFD OR_b4 equ hace a i sn tL ; 

0000 OR_c4 equ b”00000000" ; 
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nt 





0071 
OODF 
0000 
0O07C 
OOEF 
0000 
0000 
0000 
0000 


O1LFF 


0000 
0001 


0002 
0003 


0004 
0005 


0006 
0007 


0008 
0009 
QO0A 


000B 
000C 
000D 
O00E 
O0OF 
0010 
0011 
0012 


OA00 


090B 
0A00 


020E 
0174 


020F 
0175 


0210 
0156 


0114 
0115 
0800 


OCFF 
0006 
0206 
002C 
006E 
00 6F 
0070 
006D 


OR_a5 
OR_b5 
OR_c5 
OR_a6é 
OR_b6 
OR_c6 
OR_a? 
OR_b?7 
OR_c7 


begin 


main 


equ 
equ Bb“ 1202711" 
equ b”00000000" 
equ b”01111100" 
equ OY iTEOlL ia 
equ b”00000000" 
equ b”00000000" 
equ b” 00000000" 
equ b”00000000" 
org Olffh 
goto main 
org 000h 

+ define macro to evaluate 1 product 
call pla8s8 
goto main 


° 
’ 


EVAL_P MACRO 


xorlw Pn_x 
andlw Pnia 


b”01110001" 


Preg x,bit_n,Pn_x,Pn_a 
movf input, 


W 


btfsc status,bit2 
bsf Preg x,bit_n 


ENDM 


ze Te 


s 
‘ 


~s & 


: define macro to load OR term constants: 


EVAL_Y MACRQ 


[tT] +0 xe 


VALI 


- now the 
: 


pla8sg8 


movlw OR_an 
movwf OR_a 
moviw OR_bn 
movwf OR_b 
moviw OR_cn 
movwt OR c 
call EVAL1 


OR_an,OR_bn,OR_cn,bit_n 


btfss status,bit2 
bsf Y_reg,bit_n 


ENDM 


movf 
andwf 


movft 
andwf 


movf 
andwf 


iorwf 
Llorwf 
retlw 


PLA evaluation procedure: 


movliw 
tris 
movf 
movwf 
clrf 
eClrt 
Cure 
clr 


define procedure to evaluate 1 output 


Preg _a,W 
OR_a,1l 


Preg_ b,W 
OR_b,1 


Preg_c,W 
OR_c,W 


Offh 

Oo ts 
port _b,W 
input 
Preg_a 
Preg_b 
Preg c 
Y_ reg 


se “ese “se e “ss “a2 Se Te “Ee 


for output Y5 


for output Y6 


for output Y7 


(AND) term: 


skip if zero bit not set 
product term = 1 


load constants 


(OR) term: 


-e “ses 


se -« 


“es 76 


we se Me 


=e =e =e ~s ™=s -e =e =e 


W= 1 implies Yn = 1 


port_b = input 

read input 

store input in a register 
clear Product register a 

clear Product register b 

clear Product register c 

clear output register 
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EVAL P Preg_a,bit0,P0 x,P0 a 





0013 
0014 
0015 
0016 
0017 


0018 
0019 
OO1A 
001B 
001C 


001D 
OO1E 
OO1F 
0020 
0021 


0022 
0023 
0024 
0025 
0026 


0027 
0028 
0029 
002A 
002B 


002C 
002D 
002E 
002F 
0030 


0031 
0032 
0033 
0034 
0035 


0036 
0037 
0038 
0039 
003A 


003B 
003C 
003D 
003E 
003F 


0040 
0041 
0042 
0043 
0044 
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020C 
OF 00 
OEOF 
0643 
OS50E 


020C 
OFOL 
OEOF 
0643 
052E 


020C 
OF O02 
OROF 
0643 
O54E 


020C 
OF O03 
OE OF 
0643 
056E 


020C 
OF 04 
OR OF 
0643 
O58E 


020C 
OFO5 
OE OF 
0643 
OSAE 


020C 
OF 06 
OEOF 
0643 
O5CE 


020C 
OF 07 
OROF 
0643 
OSEE 


020C 
OF O08 
OEOF 
0643 
O50F 


020C 
OF 09 
QEOF 
0643 
O52F 


EVAL P 


EVAL P 


EVAL_P 


EVAL _P 


EVAL P 


EVAL P 


EVAL _P 


EVAL P 


EVAL P 


movf 
xorlw 
andlw 
btfsc 
bsf 


Preg a,bitl1,P1_x,Pl_a 


movft 
xorlw 
andlw 
btfsc 
bsf 


Preg_a,bit2,P2_x,P2_a 


movf 
xorlw 
andlw 
btfsc 
bsf 


Preg a,bit3,P3 x,P3_a 


movt 
xorlw 
andlw 
btfsc 
bsf 


Preg a,bit4,P4 x,P4 a 


movf 
xorlw 
andlw 
btfse 
bsf 


Preg a, 
movf 
xorlw 
andiw 
btfse 
bsf 


Preg a,bit6,P6 x,P6 a 


movf 
xorlw 
andlw 
btfsec 
bsf 


Préeg- a, bith; PT x, PT a 


movft 
xorlw 
andlw 
btfsc 
bsf 


Preg b, 
movft 
xorlw 
andlw 
btfsc 
bsf 


Preg b, 
movf 
xorlw 
andlw 
btfsc 
bsf 


input,W 
PO x 

PO a 
status, bit2 
Preg a,bit0o 


input,W 
Pl x 

Pla 
status,bit2 
Preg a,bitl 


input ,W 
P2 xX 

P2 a 
status, bit2 
Preg a,bit2 


input,W 
P3 x 

Pua 
status, bitz2 
Preg a,bit3 


input ,W 
P4 x 

P4a 
status,bit2 
Preg a,bit4 


bits, PS. %;PS.a 


input ,W 
PS xX 

PS a 
status, bit2 
Preg_ a,bitS 


input, W 
PO X 

P6_a 
status, bit2 
Preg a,bit6 


input,W 
P7 x 

Pla 
status, bit2 
Preg_a,bit? 


bitO,P8 x,P8 a 


input ,W 
P8 x 

P8 a 
status,bit2 
Preg_b,bit0 


bitl,P9 x,P9 a 


input ,W 
P9 x 

Poi xa 
status,bit2 
Preg b,bitl 
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skip if 
product 


skip if 
product 


skip if 
proauct 


skip if 
product 


skip if 
product 


skip if 
product 


skip if 
product 


skip if 
product 


skip if 
product 


skip if 
product 


zero 
term 


zero 
term 


Zero 
term 


zero 
term 


zero 
term 


zero 
term 


zero 
term 


Zero 
term 


Zero 
term 


Zero 
term 


Dit 


bit 


bit 


bit 


bit 


bit 


bit 


Bit 


bit 


bit 


not 


not 


not 


not 


not 


not 


not 


not 


not 


not 


set 


set 


set 


set 


set 


set 


set 


set 


set 


set 
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0045 020C movft input,W : 
0046 OFOA xorlw P10 x ; 
0047 OEOF andlw P10 a ; 
0048 0643 btfsc status,bit2 ; skip if zero bit not set 
0049 O54F bsf Preg b,bit2 ; product term = 1 
EVAL P Preg_b,bit3,P11_x,Plil_a 
004A 020C movf input, W ; 
004B OFOB xorlw Pll x ; 
004C OEOF andlw Pilla ; 
004D 0643 btfsc status,bit2 ; skip if zero bit not set 
O04E OS6F bsf Preg b,bit3 ; product term = 1 
EVAL P Preg b,bit4,P12_x,P12_a 
004F 020C movf input,W , 
0050 OFOC xorlw PiZ ck ; 
0051 OEOF andlw P12a ; 
0052 0643 btfsc status,bit2 ; skip if zero bit not set 
0053 OS8F bsf Preg_b,bit4 ; product term = 1 
EVAL P Preg b,bit5,P13_x,P13 a 
0054 020C movt input, W ‘ 
0055 OFOD xorlw Pas. x ; 
0056 OEOF andlw Pl3_a ; 
0057 0643 btfsc status,bit2 ; skip if zero bit not set 
0058 OSAF bsf Preg b,bit5S ; product term = 1 
EVAL P Preg b,bit6,P14 x,P14 a 
0059 020C movt input ,W 
OO5A OFOE xorlw P14 x ; 
005B OEOF andlw P14 a ; 
005C 0643 btfsc status,bit2 ; skip if zero bit not set 
0O5D OSCE bsf Preg_b,bit6 7; product term = 1 
EVAL P Preg_b,bit7,P15_x,P15 a 
OO5E 020C movf input,W ; 
OOSF OFOF xorlw P15 _x ; 
0060 OEOF andlw Pil15 a ; 
0061 0643 btfsc status,bit2 ; skip if zero bit not set 
0062 OSEF bsf Preg b,bit? ; product term = 1 
EVAL P Preg_ c,bit0,P16 x,P16 a 
0063 020C movt input, W ; 
0064 OFO0O0 xorlw P16 x ; 
0065 OE00 andlw Pléa ; 
0066 0643 btfsc status,bit2 ; skip if zero bit not set 
0067 0510 bsf Preg c,bit0 ; product term = 1 
EVAL P Preg_c,bitl,P17_x,P17_a 
0068 020C movf input, W : 
0069 OFOO xorlw PLT ; 
OO6A OE00 andlw P17 a ; 
006B 0643 btfse status,bit2 ; skip if zero bit not set 
006C 0530 bsf Preg c,bitl ; product term = 1 
EVAL P Preg c,bit2,P18 x,P18 a 
006D 020C movt input ,W : 
006E OF0O0 xorlw P18 x ; 
OO6F OE00 andlw P18 a ; 
0070 0643 btfsc status,bit2 ; skip if zero bit not set 
0071 0550 bsf Preg c,bit2 ; product term = 1 
EVAL P Preg_c,bit3,P19 x,P19 a 
0072 020C movf input,W . 
0073 OFO0O xorlw P19 x ; 
0074 OE0O0 andlw P19 a ; 
0075 0643 btfsc status,bit2 ; skip if zero bit not set 
0076 0570 bsf Preg c,bit3 ; product term = 1 
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EVAL P Preg c,bit4,P20 x,P20 a 


0077 020C movf input ,W : 

0078 OFOO xorlw P20 x ; 

0079 OEFO00 andlw P20 a ; 

OO7A 0643 btfsc status,bit2 ; skip if zero bit not set 
007B 0590 bsf Preg c,bit4 ; product term = 1 


EVAL P Preg c,bit5,P21 x,P21 a 


007C O020C movf input,W ; 

007D OFO0 xorlw P21 x ; 

OO7E OEO0 andlw P21 a ; 

OO7F 0643 btfse status,bit2 > skip if zero bit not set 
0080 O5B0 bsf Preg c,bit5 ; product term = 1 


EVAL P Preg_c,bit6,P22 x,P22 a 





0081 020C movf input,W ; 

0082 OFOO xorlw P22 x ; 

0083 OE00 andlw P22 a : 

0084 0643 btfsc status,bit2 > skip if zero bit not set 
0085 O5D0 bsf Preg c,bit6 ; product term = 1 


EVAL P Preg c,bit7,P23 x,P23_a 


0086 020C movf input ,W ? 

0087 OFOO xorlw P23 x ; 

0088 OE00 andlw P23 a : 

0089 0643 btfsc status, bit2 ; skip if zero bit not set 

OO8A O5FO bsf Preg c,bit?7 ; product term = 1 
or pl EVAL Y OR_a0,OR_b0,OR_cO,bit0 

008B OCED movilw OR_a0 ; load constants 

008C 0034 movwf OR_a ; 

008D O0CD7 movliw  OR_b0 ; 

Q08E 0035 movwt OR_b ; 

OO8F O0C00 movlw OR_cO ; 

0090 0036 movwt OR_c ; 

0091 0902 call EVAL1 ; 

0092 0743 btfss status,bit2 ; 

0093 OS50D bsf Y_reg,bit0o ; 


EVAL _Y OR_al,OR_b1,OR_cl,bitl 


0094 OC9F movlw OR_al ; load constants 
0095 0034 movwf OR_a ; 
0096 0C27 movlw OR_bl ; 
0097 0035 movwf OR_b ; 
0098 0C00 movliw ORCL ; 
0099 0036 movwf OR_¢c ; 
009A 0902 call EVAL1 ; 
009B 0743 btfss status,bit2 : 
009C 052D bsf Y_reg,bitl ; 


EVAL Y OR_a2,OR_b2,OR_c2,bit2 


009D OCFB movlw OR_a2 ; load constants 
009E 0034 movwf OR_a ; 
0O9F OC2F movilw OR_b2 ; 
QOAO 0035 movwf OR_b ; 
QOA1l 0CO00 moviw OR_c2 : 
OOA2 0036 movwf OR_c ; 
00A3 0902 call EVAL1 ; 
OOA4 0743 btfss status, bit2 ; 
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OOAS 054D bsf Y_reg,bit2 : 








EVAL_Y OR_a3,OR_b3,OR ¢3,bit3 


OOA6 OCED movlw  OR_a3 ; load constants 
O0A7 0034 movwf OR_a ; 
OOA8 0C79 movlw OR_b3 ; 
OOA9 0035 movwf OR_b ; 
OOAA 0C00 ‘moviw OR_c3 ; 
OOAB 0036 movwf OR c ; 
OOAC 0902 call EVAL1 ; 
OOAD 0743 btfss status,bit2 ; 
OOAE 056D bsf Y reg,bit3 H 


EVAL_Y OR_a4,OR_b4,OR_c4,bit4 


OOAF 0C45 movlw OR_a4 ; load constants 
00BO 0034 movwf OR a ; 
00B1 OCFD moviw . OR_b4 ; 
00B2 0035 movwf OR _b ; 
00B3 0C00 moviw OR_c4 ; 
00B4 0036 movwft OR_c ; 
00BS 0902 call EVALI ; 
0OOB6 0743 btfss status,bit2 ; 
00B7 058D bsf Y reg,bit4 ; 


EVAL_Y OR_a5,OR_b5,OR ¢5,bit5 


0OOB8 0C71 moviw OR_aS ; load constants 
00OB9 0034 movwf OR_a ; 
OOBA OCDF movlw OR_b5 ; 
OOBB 0035 movwft OR_b ; 
OOBC 0C00 movlw OR _cS ; 
QOBD 0036 movwf OR_c ; 
OOBE 0902 call EVAL1 ; 
OOBF 0743 btfss status,bit2 : 
00CO OSAD bsf Y_reg,bit5 ; 
EVAL Y OR_a6,OR _b6,OR_c6,bité 
00C1 OCTC movlw OR a6 ; load constants 
00C2 0034 movwft OR_a ; 
00C3 OCEF movlw  OR_b6 ; 
00C4 0035 movwf OR _b ; 
00C5 0C00 moviw OR_c6 ; 
00C6 0036 movwf OR c ; 
00C7 0902 call EVAL1 ; 
00C8 0743 btfss status,bit2 ; 
00C9 O5CD bsf Y_ reg, bit6 ; 


EVAL_Y OR_a7,OR_b7,OR_c7,bit7 


OOCA 0C00 movlw  OR_a7 ; load constants 
OOCB 0034 movwf OR_a ; 
00CCc 0C00 movlw  OR_b/7 ; 
0O0CD 0035 movwf OR _b ; 
OOCE 0C00 movlw OR c? ; 
OOCF 0036 movwt OR_c ; 
00DO 0902 call EVAL1 ; 
OOD1 0743 btfss status,bit2 , 
00D2 O5ED bosf Y reg,bit7 ; 


; Y_reg now contains 8 output values: 


00D3 0040 wr out clrw ; 
00D4 0007 tris 7 ; port_e = output 
00DS 020D movf Y _reg,W : 
00D6 0027 movwf port ¢ ; Y_reg => port.oc 
00D7 0800 retlw 0 ; 
0O0D8 0000 222 nop 
END 
Errors : 0 
Warnings : 0 
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INTRODUCTION FIGURE 1 - VOLTMETER A TOD 
CONVERTER 


This application note describes a method for implement- 
ing analog to digital conversion on the PIC 16C5X series 
of microcontrollers. The converter requires only four 
external components and is software and hardware 
configurable for conversion resolutions from 6 bits up to 
10 bits and conversion times of 250us or longer. The 
method is useable for both voltage and current conver- 
sion and uses a software calibration technique that 
compensates for time and temperature drift as well as 
componenterrors. The PIC16C5X microcontrollers are 
ideal for simple analog applications because: 


* 








Very low cost. 


* 


Few external components required. 


* 


Fully programmable. PIC16C5X microcontrollers are 
offered as One Time Programmable (OTP) EPROM 
devices. PIC16C54 





Available off the shelf from distributors. 


Calibration in software for improved measurement FIGURE 2 - VOLTMETER MEASUREMENT 
accuracy. CYCLE 
* Power savings using PIC16C5X’s SLEEP mode. 


PIC16C5X’s output pins have large, current source/ 
sink capability to drive LED’s directly. 


THEORY OF OPERATION 


The application uses a capacitive charging circuit (see 
Figure 1) to convert the input voltage to time, which can 
be easily measured using a microcontroller. First, the 
reference voltage is applied to the input voltage to 
current converter (U1). The equivalent circuit is shown in 
Figure 2. This circuit provides a linearly variable current 
as a function of input voltage. The logarithmic character- 
istic that would occur if the input voltage was applied 
directly to an RC is not present. The capacitor C is 
charged up until the threshold on the chip input trips. 
This generates a software calibration value that is used 
to calibrate out most circuit errors, including inaccura- 
cies in the resistor and capacitor, changes in the input 
threshold voltage and temperature variations. After the 
software calibration value is measured, the capacitor is 
discharged (see Figure 3) and the input voltage is 
connected to Vin. The time to trip the threshold is 
measured for the input voltage and compared to the 
calibration value to determine the actual input voltage. 





FIGURE 3 - VOLTMETER DISCHARGE 
CYCLE 
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CIRCUIT CONFIGURATION 
The values of R and C are selected based upon the 
number of bits of resolution required. 
RC = (Vi. T)/Vt | 
Where: 
Vi = Lowest voltage to be measured (at least ten Isb’s) 
T = Time to do the number of bits of resolution desired 
Vt = Threshold voltage of the PIC16C5X input being used 


Actual value for RC should be slightly smaller than 
calculated to ensure that the PIC16C5X does not 
overcount during the measurement. 


For example use a 3 volt input and 8 bits resolution with 
a 8 MHz clock and 6 instruction cycles per count: 


Vi = 100 mV 
T = 256 *1/8 MHz * 4 clocks/cycle * 6 cycles = 768 uS 
Vt = 3.0V (est) 


For input voltages greater than 3 volts a resistor divider 
network should be used to keep the maximum voltage 
on Vin to less than 3 Volts. For best performance the 
reference voltage should be between 2 and 3 volts. 


The circuit can also be used as a current mode A to D 
converter. In this case the input voltage to current 
converter is not needed and the reference current and 
input current are both routed via analog switches directly 
into the capacitor. 


FIGURE 4 - TRANSMISSION FLOW CHART 


Start 


Initial Setup 
Call Discharge 


Setup Outputs for 


Calibration 


Call Measure 


Call Discharge 


Setup Outputs for 
Measure 


Call Measure 


Compute Result 





CIRCUIT PERFORMANCE 


The calibration cycle removes all first order errors (off- 
set, gain, R and C inaccuracy, power supply voltage and 


- temperature) except the reference voltage drift. Any 


change in the reference voltage, including noise, be- 
tween the calibration cycle and the measurement cycle 


- may result in measurement errors. Other error sources 


are analog switch leakage, resistor and capacitor non- 
linearities, input threshold uncertainty and time mea- 
surement uncertainty (+/- one instruction cycle time). 
Measured performance shows the converter to be accu- 
rate within +/- 1% of full scale. 


Example 


Assembly code implementing the circuit of figure 1 is 
listed in Appendix A: This code measures the time up to 
16 bits and calculates the results using 16 bit multiply 
and divide subroutines. In actual applications, if mea- 
surement accuracy permits, it may be advantageous to 
use 8 bits. The math code can be substantially reduced 
and the measure time is reduced by the simpler code 
and shorter count. 


Author: Doug Cox 





Logic Products Division 


Set Cap to Ground 









Open Cap 


Return 


{ Measure 


Clear RTCC 


Clear Counter 


Increment Counter 


Check for RTCC Trip 


| Yes 
[patn | 
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APPENDIX A: 


MPASM BO.54 PAGE 1 
VOLTMETER/AD CONVERTER PROGRAM REV 3-29-90 


TITLE ‘VOLTMETER/AD CONVERTER PROGRAM REV 3-29-90’ 
LIST P=16C54, F=inhx16, n=0 





0008 ACCA EQU 8 

OOOA ACCB EQU OA 

OCOC ACCC LOU OC 

OO0E ACCD EQU OE 

0010 ACCE EQU 10 

0012 TMEAS EQU 12 

0014 TEMP EQU 14 

0060 VCALMS EQU 60 ;VCAL MSB VALUE IN HEX 

OOA4 VCALLS EQU OA4 7;VCAL LSB VALUE IN HEX 
ORG 1FF 

O1FF OA58 GOTO VOLTS ;PROGRAM CODE 
ORG 0 ; SUBROUTINES 

0000 0209 MADD MOVE ACCA+1,W 

0001 O1EB ADDWF ACCBt+1 7;ADD LSB 

0002 0603 BIESC 3,0 ;ADD IN CARRY 

0003 O2AA INCF ACCB 

0004 0208 MOVE ACCA,W 

0005 O1EA ADDWF ACCB ;ADD MSB 

0006 0800 RETLW 0 

0007 0000 NOP 

0008 0915 MPY CALL SETUP ;RESULTS IN B(16 MSB’S) AND C(16 LSB’S) 

0009 032E MLOOP RRF ACCD ;ROTATE D RIGHT 

OOOA 032F RRF ACCD+1 

000B 0603 SKPNC ;NEED TO ADD? 

000C 0900 CALL MADD 

O00D 032A RRF ACCB 

OOOE 032B RRE ACCB+1 

QOO0OF 032C RRF ACCC 

0010 032D RRF ACCC+1 

OO11 O2F4 DECFSZ TEMP ;LOOP UNTIL ALL BITS CHECKED 

0012 OAOY9 GOTO MLOOP 

0013 0800 RETLW 0 

0014 0000 NOP 

G0ts0CL) SETUP MOV LW 10 

0016 0034 MOVWE TEMP 

0017 O20A MOVE ACCB,W ;MOVE B TO D 

0018 O002E MOVWF ACCD 

0019 020B MOVE ACCB+1,W 

OO1A 002F MOVWF ACCD+1 

001B 020C MOVF ACCC, W 

001C 0030 MOVWE ACCE 

001D O20D MOVF ACCC+1,W 

OO1E 0031 MOVWE ACCE+1 

OO1F OO6A CLRF ACCB 

0020 O06B CLRF ACCBt1 

0021 0800 RETLW 0 

0022 0000 NOP 

0023 0915 DIV CALL SETUP 

0024 0C20 MOVLW 20 

0025 0034 MOVWF TEMP 

0026 006C CLRFE ACCC 

0027 OQ06D CLRF ACCC+1 


Se aE A AS PP A a a AS ES IO TE TST EET 
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0028 0403 DLOOP CLRC 

0029 0371 RLF ACCE+1 

002A 0370 RLF ACCE 

002B 036F RLF ACCD+1 

002C 036E RLF ACCD 

002D 036D RLF ACCCH1 

002E 036C RLF ACCC 

002F 0208 MOVE ACCA,W 

0030 008C SUBWF ACCC,W ;CHECK IF A>C 

0031 0743 SKPZ 

0032 0A35 GOTO NOCHK 

0033 0209 MOVE ACCA+1,W 

0034 O008D SUBWF ACCC+1,W ;IF MSB EQUAL THEN CHECK LSB 
0035 0703 NOCHK SKPC ;CARRY SET IF CoA 

0036 OA3E GOTO NOGO 

0037 0209 MOVF ACCA+1,W ;C-A INTO C 

0038 OOAD SUBWF  ACCC+1 

0039 0703 BIFSS 3,0 

003A OOEC DECF ACCC 

003B 0208 MOVF ACCA, W 

003C OOAC SUBWF ACCC 

003D 0503 SETC ;SHIFT A 1 INTO B (RESULT) 
003E 036B NOGO RLF ACCBt+1 

003F 036A RLF ACCB 

0040 02F4 DECFSZ TEMP ;LOOP UNTILL ALL BITS CHECKED 
0041 0A28 GOTO DLOOP 

0042 0800 RETLW 0 

0043 OCOE DSCHRG MOVLW  B’00001110' ;DISCHARGE C (RAO ON) 
0044 0005 TRIS 5 

0045 OCFF  MOVLW OFF 

0046 0034 MOVWF TEMP 

0047 02F4 LOOP DECFSZ TEMP - ;WAIT 

0048 0A47 GOTO LOOP 

0049 OCOF MOVLW B’OOOO1L111' ;ALL RA HIGH Z@ 

004A 0005 TRIS 5 

004B 0800 RETLW 0 

004C 0061 M TIME CLRF 1 ;CLEAR RTCC REGISTER 
004D 0069 CLRF ACCAt1 ;CLEAR 16 BIT COUNTER 
004E 0068 CLRF ACCA 

O04F 03E9 TLOOP INCFSZ ACCA+t1 

0050 0A54 GOTO ENDCHK 

0051 03E8 INCFSZ ACCA 

0052 0A54 GOTO ENDCHK 

0053 0A56 GOTO END_M 

0054 0701 ENDCHK BTFSS- 1,0 ;CHECK FOR RTCC TRIP 
0055 OA4F GOTO TLOOP 

0056 0201 END M MOVF 1,W 

0057 0800 RETLW 0 

0058 0C06 VOLTS MOVLW  B’00000110' ;SET S2 AND S3 HIGH(ON WHEN ACTIVATED) 
0059 0026 MOVWE 6 

OO5A OCFO MOVLW = B’11110000' ;ACTIVATE SWITCHES S1-S4 
005B 0006 TRIS 6 

005C 0C28 MOVLW  B’00101000' ;SELECT POSITIVE EDGE FOR RTCC 
005D 0002 OPTION 

005E OC00 MOVLW  B’00000000! 

OO5F 0025 MOVWE 5 ;SET RAO LOW (ON WHEN ACTIVATED) 
0060 0943 MEAS CALL DSCHRG ;CHARGE CAPACITOR TO VIN 
0061 OCOA MOVLW  B’00001010' ;S2 AND S4 ON 

0062 0026 MOVWF 6 

0063 094C CALL M TIME ;MEASURE TIME 

0064 0209 MOVE ACCA+1,W 

0065 0033 MOVWF  TMEAS+1 ;STORE LSB 

0066 0208 MOVF ACCA,W 

0067 0032 MOVWF  TMEAS ;STORE MSB 
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0126 064 209 MOVE ACCA+1,W 

Ol27. ‘O65 033 MOVWF TMEAS+1 ;STORE LSB 

0128 066 208 MOVF ACCA,W 

0129 067 O32 MOVWE TMEAS ;STORE MSB 

0130 

0131 068 CUS CAL MOVLW = B’00000101' 7S <AND: 33. CON 

O132 069 026 MOVWE 6 

0133 O6A 943 CALL DSCHRG ;CHARGE CAPACITOR TO VREF 
0134 O6B COS MOVLW B’00001001' 7;S1 AND S4 ON 

0135 O6C 026 MOVWF 6 

OL36° Qed 94C CALL M TIME ;MEASURE TIME 

0137 

0138 O6E CA4 MOVLW VCALLS 

0139 O6F O2R MOVWF ACCBt+1 

0140 070 C60 MOVLW VCALMS 

0141 O71 O2A MOVWEF ACCB 

0142 

0143 072 908 CALL MPY ;MULTIPLY ACCA(TCAL) * ACCB(VREF) 
0144 073 Zi MOVF TMEAS+1,W 

0145 O74 029 MOVWE ACCA+1 

0146 O75 212 MOVF TMEAS, W 

0147 076 028 MOVWFE ACCA 

0148 

0149 O77 O23 CALL DIV ;DIVIDE ACCB(TCAL * 
0149 7V) BY ACCA(TMEAS) 0150 
Ola. O78 A58 GOTO VOLTS 

O152 

0153 END 


SASM-I, No Errors, No Warnings 
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INTRODUCTION 


This application note describes a method for implement- 
ing an ohmmeter or resistance type temperature sensor 
using the PIC16C5X series of microcontrollers. The 
ohmmeter requires only two external components and is 
software and hardware configurable for resistance mea- 
surement with resolutions from 6 bits up to 10 bits with 
measurement times of 250us (6 bits at 8 MHz) or longer. 
The method uses a software calibration technique that 
compensates for voltage, time, and temperature drift as 
well as component errors. The PIC16C5X Microcon- 
trollers are ideal for simple analog applications because: 


* 


Very low cost. 


* 


Few external components required. 


* Fully programmable. PIC16C5X Microcontrollers are 
offered as One Time Programmable (OTP) EPROM 
devices. 


* Available off the shelf from distributors. 


Calibration in software for improved measurement 
accuracy. 


* Power savings using PIC16C5X’s SLEEP mode. 


PIC16C5X’s output pins have large, current source/ 
sink capability to drive LED’s directly. 


THEORY OF OPERATION 


The application uses a capacitive charging circuit 
(Figure 1) to convert the resistance to time, which can be 
easily measured using a microcontroller. First, a refer- 
ence voltage (usually VDD) is applied to a calibration 
resistor, Rc. The capacitor C is charged up until the 
threshold on the chip input trips. This generates a 
software calibration value that is used to calibrate out 
most circuit errors, including inaccuracies in the capaci- 
tor, changes in the input threshold voltage and tempera- 
ture variations. After C is discharged, the reference 
voltage is applied to the resistance to be measured (or 
thermistor). The time to trip the threshold is then 
measured and compared to the calibration value to 
determine the actual resistance (Figure 2). In the 
temperature sensing mode, the temperature is calcu- 
lated using a lookup table. 


FIGURE 1 - OHMETER/TEMPERATURE 
SENSOR 


RAO fF 
RA1 


RA2 


RTCC 


PIC16C54 


Note: Rp is a small resistor (100-200Q) to limit peak 
current through RA2 while discharging or through 
RA2 or RTCC in the event of an ESD or EOS related 
breakdown. 





FIGURE 2 - OHMETER/TEMPERATURE 
SENSOR 


TM wp RM C 


Tc wu RoC 





CIRCUIT CONFIGURATION 


The values of Rc and C are selected based upon the 
number of bits of resolution required. Rc should be 
approximately one half the largest value resistance to be 
measured and: 1 


C=. 
Vt 
R * | oes 
‘ a( | 
Where: 


Vr = Reference voltage 

T =Time to do the number of bits of resolution desired 
Vt = Threshold voltage of the PIC input being used 

Rm = Maximum resistance value to be measured 


Actual value for C should be slightly smaller than calcu- 
lated to ensure that the PIC16C5X does not overcount 
during the measurement. 
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For example use Rm=200K for 8 bits resolution with a 8 
MHz clock, Vr=5V, Vt=3V, Rc =100K and 6 instruction 
cycles per count: =~ 7 


256 counts * 1/8 MHz * 4 clocks/instruction * 6 


T = 
instructions/count = 768 us 
C = 4200 pF [Use 3900 pF] 
CIRCUIT PERFORMANCE 


The calibration cycle removes all first order errors (off- 
set, gain, C inaccuracy, power supply voltage and tem- 
perature) except R absolute accuracy. Alow drift resistor 
should be selected for R and its value stored in software 
to reduce measurement errors. Other error sources are 
I/O pin leakage, resistor and capacitor non-linearities, 


FIGURE 3 - TRANSMISSION FLOW CHART 


Calibration 
=e 
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input threshold uncertainty and time measurement un- 
certainty (+/- one instruction cycle time). Measured 
performance shows the ohmmeter to be accurate within 
+/- 1% over one decade. 


Example 


The assembly code implementing the circuit of Figure 1 
is listed in Appendix A. This code measures time up to 
16 bits (65535 measure cycles) and calculates the 
results using 16 bit multiply and divide subroutines. In 
actual applications, it is more efficient to use 8 bit 
measurements if application accuracies permit. The 
math code will be substantially reduced and measure- 
ment time is reduced by the simpler code and shorter 
count. 


Author: Doug Cox 
Logic Products Division 


DISCHARGE 
Set Cap to Ground 


Open Cap 
RETURN 


MEASURE 





Clear RTCC 


Clear Counter 


Increment Counter 


Check for RTCC Trip 


YES 


RETURN 
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APPENDIX A: 
MPASM BO.54 PAGE 1 
LIST P=16C54, F=inhx8M 

0008 ACCA EQU 8 

OOOA ACCB EQU OA 

O000C ACCC EQU OC 

OOOE ACCD EQU OE 

0010 ACCE Fou 10 

0012 TCAL EQU 12 

0014 TEMP EQU 14 

O02F RCALMS EQU 2F *RCAL MSB VALUE IN HEX 

003C RCALLS EQU 3C 7;RCAL LSB VALUE IN HEX 
ORG LEF 

O1FF OA58 GOTO OHMS 
ORG 0 

0000 0209 MADD MOVE ACCA+1,W 

0001 O1EB ADDWEF ACCBt1 7;ADD LSB 

0002 0603 BTFSC 34-0 ;ADD IN CARRY 

0003 O2AA INCF ACCB 

0004 0208 MOVE ACCA, W 

0005 O1EA ADDWE ACCB 7ADD MSB 

0006 0800 RETLW 0 

0007 0000 NOP 

0008 0915 MPY CALL SETUP ;RESULTS IN B(16 MSB’S) AND C(16 LSB’S) 

0009 032E MLOOP RRF ACCD ;ROTATE D RIGHT 

OOOA 032F RREF' ACCD+1 

000B 0603 SKPNC ;NEED TO ADD? 

000C 0900 CALL MADD 

OO00D 032A RRF’ ACCB 

OO0E 032B RRF ACCB+1 

OOOF 032C RRE’ ACCC 

0010 032D RRF' ACCC+1 

0011 O2F4 DECFSZ TEMP ;LOOP UNTIL ALL BITS CHECKED 

0012 OQA09 GOTO MLOOP 

0013 0800 RETLW 0 

0014 0000 NOP 

O015 <OGL0 SETUP MOVLW 10 

0016 0034 MOVWE TEMP 

0017 O20A MOVE ACCB, W ;MOVE B TO D 

0018 002K MOVWE' ACCD 

0019 O020B MOVF ACCB+1,W 

OO1A O002F MOVWE ACCD+1 

001B 020C MOVE ACCC, W 

001C 0030 MOVWE ACCE 

O01D O020D MOVF ACCC+1,W 

O0O1E 0031 MOVWE ACCE+1 

OO1F OO6A CLRF ACCB 

0020 O06B CLRP’ ACCB+1 

0021 0800 RETLW 0 

0022 0000 NOP 

0023 0915 DIV CALL SETUP 

0024 0C20 MOVLW 20 

0025 0034 MOVWE TEMP 

0026 O06C CLRE ACCC 

0027 OO06D CURE ACCC+1 

0028 0403 DLOOP CLRC 

0029 0371 RLF ACCE+1 

002A 0370 RLF ACCE 

002B O36F RLF ACCD+1 


(ET Em AS OES 1 A I I TT ET TT TIT SATE 
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002C 036E RLF  ACCD 

002D 036D RLF ACCC+1 

002E 036C RLF ACCG 

0O2F 0208 MOVE ACCA, W 

0030 008Cc SUBWF ACCC,W ;CHECK IF A>c 

0031 0743 SKPZ 

0032 0A35 GOTO NOCHK 

0033 0209 MOVE ACCA+1,W 

0034 008D SUBWF ACCC+1,W :IF MSB EQUAL THEN CHECK LSB 
0035 0703 NOCHK SKPC ;CARRY SET IF C>A 

0036 OA3E GOTO NOGO 

0037 0209 MOVF ACCA+1,W ;C-A INTO C 

0038 OOAD SUBWF ACCC+1 

0039 0703 BTFSS 3,0 

003A 00EC DECF ACCC 

003B 0208 MOVF ACCA, W 

003C OOAC SUBWF ACCC 

003D 0503 SETC ;SHIFT A 1 INTO B (RESULT) 
003E 036B NOGO RLF ACCB+1 

003F 036A RLF ACCB 

0040 02F4 DECFSZ TEMP ;LOOP UNTILL ALL BITS CHECKED 
0041 0OA28 GOTO DLOOP 

0042 0800 RETLW 0 

0043 O0COB DSCHRG MOVLW  B’00001011' ; ACTIVATE. RA2 

0044 0005 TRIS 5 

0045 OCFF MOVLW OFF 

0046 0034 MOVWF TEMP 

0047 02F4 LOOP DECFSZ TEMP ;WAIT 

0048 0A47 GOTO LOOP 

0049 OCOF MOVLW  B’00001111' ;ALL OUTPUTS OFF 

004A 0005 TRIS 5 

004B 0800 RETLW 0 

004C 0061 M_TIME CLRF 5 ;CLEAR RTCC 

004D 0069 CLRE ACCA+1 

004E 0068 | CLRE ACCA 

004F 03E9 TLOOP INCFSZ ACCA+1 

0050 0A54 GOTO ENDCHK 

0051 03E8 INCFSZ ACCA 

0052 0A54 GOTO ENDCHK 

0053 0A56 GOTO END _M 

0054 0701 ENDCHK BTFSS 1,0 ;CHECK FOR RTCC TRIP 
0055 OA4F GOTO TLOOP 

0056 0201 END M MOVE 1,W 

0057 0800 RETLW 0 

0058 0C03 OHMS MOVLW  B’00000011' ;SET RAO AND RAl HIGH (ON WHEN ACTIVATED) 
0059 0025 MOVWE 5 | 
OOSA 0C28 MOVLW B’00101000! ;SELECT POSITIVE EDGE FOR RTCC 
005B 0002 OPTION 

005¢C 0943 CAL CALL DSCHRG ;DISCHARGE CAPACITOR 
0OSD OCOE MOVLW B’00001110! ACTIVATE RAO 

OO5E 0005 TRIS 5 

OOSF 094C CALL M_ TIME ;MEASURE TIME 

0060 0209 MOVE ACCA+1,W 

0061 0033 MOVWF ‘TCAL+1 >STORE LSB 

0062 0208 MOVF ACCA, W 

0063 0032 MOVWF TCAL ;STORE MSB 

0064 0943 MEAS CALL DSCHRG DISCHARGE CAPACITOR 
0065 OCOD MOVLW  B’00001101' ACTIVATE RAI 

0066 0005 TRIS 5 

0067 094Cc CALL M TIME ;MEASURE TIME 

0068 0C3C MOVLW  RCALLS ;CALIBRATION LSB VALUE 
0069 002B MOVWF  ACCB+1 

006A 0C2F MOVLW . RCALMS ;CALIBRATION MSB VALUE 
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O06B 002A MOVWE ACCB 
O06C 0908 CALL MPY ;MULTIPLY ACCA(MEAS) * ACCB(RCAL) 
O06D 0213 MOVE TCAL+1,W 
OO6E 0029 MOVWE ACCA+t1 
OO6F 0212 MOVE TCAL, W 
0070 0028 MOVWE ACCA 
OO7L 0923 CALL DIV ;DIVIDE ACCB(MEAS * R) BY ACCA(TCAL) 
0072 OASE& GOTO OHMS 
END 
Errors : 0 
Warnings 0 
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Interfacing to AC Power Lines 
INTRODUCTION FIGURE 1 - PIC16C5X SERIES INPUT 


This application note describes a simple method for 
measuring parameters from the AC power line. Param- 
eters such as zero crossing, frequency, and relative 
phase can be measured. The method is useful for 
measurements on 50, 60, and 400 Hz power systems 
with voltages up to several hundred volts. The method 
requires only one external component, a resistor, and is 
more reliable than previously published methods using 
capacitors or bulky, expensive transformers. 


APPLICATIONS 


This measurement method can be used in any applica- 
tion where power line parameters are used for system 
measurements or control. Typical applications are for 
switch timing (what part of the power cycle should the 
system be activated), power factor correction, power 
measurement, and power line monitor. An additional 
application is to generate timing or clock functions using 
the relatively stable power line frequency. The method 
is also useful for calibrating the oscillator frequency for 
accurate timing measurements when an inaccurate 
reference such as an RC oscillator is used to clock the 
PIC16C5X. 


THEORY OF OPERATION 


The application takes advantage of the input static 
protection circuitry that exists on all I/O pins of aCMOS 
PIC16C5X. These protection circuits are designed to 
short the inputs to the power supplies when a large 
overvoltage is applied, thus protecting the chip from 
static electricity spikes. On the PIC16C5X 
microcontrollers, this protection circuit is two large P-N 
diodes on each input (see Figure 1). These diodes will 
short any voltage higher than VpbD to the VoD supply and 
any voltage less than Vss to the Vss supply. They can 
take several milliamps of current without any damage to 
the chip. High voltages can be applied directly to the chip 
inputs as long as they are current limited. 








PROTECTION CIRCUIT ON I/O 
PINS 


Input 
buffer 


Simplified structure of an I/O pin 


The least expensive method of current limiting is using 
a high value resistor. This method is shown schemati- 
Cally in Figure 2. The power line voltage is current limited 
by the resistor and then clamped by the input protection 
diodes internal to the PIC16C5X. A typical input wave- 
form is shown in Figure 3. A 115V AC, 60 cycle sine 
wave will traverse from 0 to 2 volts in 32 us so a typical 
threshold of 2 volts on the PIC16C5X 1/O port will permit 
zero crossing detection accuracy of about 30 us. If the 
typical capacitance on an I/O pin is 5 pF, then R should 
be (T = RC) 6 MEGohm or less for best zero crossing 
accuracy. A 5 MEGohm resistor with 115V AC applied 
to it will limit current to 32 WA, a value which is well within 
the safety margin of the PIC16C5X. 


FIGURE 2 - CURRENT LIMITING USING 
AN EXTERNAL RESISTOR 


110v R=5MEG 


IPEAK = 162V / 
5 MEG = 32 pA 


PIC16C5X 
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The user needs to be aware that the circuit required to 
connect the RTCC input to AC power line is slightly 
different. Each of the I/O pins has two diodes for input 
protection whereas RTCC pin has only one protection 
diode connecting to Vss (see figure 3). Therefore, it is 
necessary to connect a diode externally between RTCC 
pin and Vbop in order to clamp the voltage on RTCC pin 
to VoD + 0.6V (approx.). See Figure 4. It is also 
recommended that resistor R be at least 2MQ. 


RELIABILITY 


Reliability of production devices that are directly con- 
nected to AC power is always a concern. Two failure 
modes are possible. First, the series resistor of 
Figure 1 might fail short, destroying the microcontroller. 


FIGURE 3 - INPUT STRUCTURE AND RTCC 
PIN 


RTCC & 
MCLR pins 


Simplified structure of RTCC and MCLR pins. 
Grounded gate NMOS device provides ESD and 
overvoltage protection. 





FIGURE 5 - INPUT WAVEFORM 


-25.0000 msec 


Interfacing to AC Power Lines 


0.00000 sec 


This is the most unlikely failure mode of a resistor, and 
resistors are more reliable than transformers or capaci- 
tors, which are the alternate components for measuring 
line parameters. This reliability can be enhanced even 
further by using two resistors in'series. Both would have 
to fail short to cause catastrophic failure, a very unlikely 
event. The second possible failure mode is that exces- 
sive injection of current into the PIC16C5X input might 
cause the protection diode to open. This would allow the 
input to go to the power line peak voltage (162V) and 
short the input transistor gate oxide, causing device 
failure. The maximum continuous injection current into 
an |/O pin is specified +500 A. An I/O pinis also capable 
of handling larger injection current (>100 mA) for a very 
short period (transient) of time. Therefore higher tran- 
sient currents due to line voltage surges will be easily 
handled. 


FIGURE 4 - CONNECTING AC POWER LINE 
TO RTCC PIN 


PIC16C5X 


Connecting to RTCC input. R > 2MQ 





25.0000 msec 





Ch, 4 = 4,000 volts/div 
Timebase = 5.00 msec/div 


Ch. 4 Parameters Freq. 
Rise Time = 484.004 usec + Width 
Fall Time = 174.005: usec Preshoot 
P-P Volts = 6.187 volts RMS Volts 


Waveform at part pin (RAO) « 
R = 100K; Line: 60 hz, 110 V 


Offset =» 3.000 volts 
Delay = 0.00000 sec 
59.9797 Hz Period = 416.6723 msec 
8.26099 msec = 
0.000 volts ad 
3.894 volts = 


- Width 
Overshoot 
Dutycycle 


Author: Doug Cox 


Logic Products Division 
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Implementing Wake-Up on Key Stroke 





INTRODUCTION 


In certain applications, the PIC16CXxX is exercised only 
when akey is pressed, eg. remote keyless entry. Insuch 
applications, the battery life can be extended by putting 
the PIC16CXX to sleep during the inactive state and 
when a key is pressed, the PIC16CXX wakes up does it 
task and then goes back to sleep. 


IMPLEMENTATION 


The circuit in Figure 1 depicts an application with two 
keys. The PIC16C54 is normally in SLEEP mode 
consuming very little operating current. If either of the 
two keys is pressed, the PIC16C5X ‘wakes up’, scans 
the keys and turns on one of the two LED’s. When SW11 
is pressed, the green LED is turned on and when SW2 
is pressed the red LED is turned on. The LED’s are used 
purely for demonstration purposes. In real life applica- 
tion, a transmission will be completed before putting the 
PIC16C5X back in sleep. This example can be extended 
to handle more than two keys. 


Inthe sleep mode, the scan outputs (SCAN1 and SCAN2) 
are both set to a low logic level. In this state, the 
capacitor C is fully charged and a high logic level is 
present at the MCLR pin of the PIC16C5X. When a key 





is pressed, C discharges through either R2 or R3 (de- 
pending on SW1 or SW2 being pressed) and the voltage 
across C falls rapidly (approx. 1 ms), causing alow atthe 
MCLR pin of the PIC16C5X, which in turn causes the 
PIC16C5X to wake up and enter its reset state. In reset, 
the SCAN1 and SCAN2 outputs default to a high imped- 
ance mode, so the discharge path for capacitor C is 
blocked and it charges to a high level through resistor 
R1. Note that the RC values have been chosen such, 
that the discharge and charge cycles times are less than 
the reset time for the PIC16C5X (approx. 18 ms), and 
certainly far less than the minimum duration of a key- 
press (approx. 50-100 ms). 





After the reset cycle is completed, the code execution 
momentarily takes the SCAN1 and SCAN2 outputs. low 
in order to sample the key stroke(s). This does not cause 
the capacitor to discharge since the duration of the low 
is of the order of 10 micro seconds. 


Once the keystroke function has been executed, the 
program loops until the key has been released, sets the 
SCAN1 and SCAN2 outputs low and “goes back to 
sleep”. Resistors R4-R8 are not required for functional- 
ity. These are recommended to provide protection from 
electrostatic discharge (ESD). Switches SW1 and SW2, 
when pressed may frequently pass ESD to the PIC16C54. 


Author: Stan D'Souza 





FIGURE 1 - TWO KEY INTERFACE TO PIC16C5X Logic Products Division 





R4 100Q 
C 


ih UF 


= PIC16C54 


SCAN1 


4x 100Q 
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FIGURE 2 - TWO KEY SCAN/WAKE-UP TIMING DIAGRAM 


KEY PRESSED 


WAKE UP OCCURS 
oe 


5ms 
i a 





HIGH IMPEDANCE LEVEL 


PIC IN 
SLEEP MODE PIC IN RESET 
=18MS 


KEY INPUT LAST KEY SCAN 
SCANNED =10 ps (KEY RELEASED) 


PIC16C54 


8 x 1000 
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MPASM BO.54 PAGE 1 
Key Stroke Wake Up 


TITLE “Key Stroke Wake Up” 
LIST P = 16C54 

KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KEKE KKEEKKKEKKEKEKK 
Program demonstrating key stroke wake up for 
the PIC16CXX. Program has been implemented for 
two keys, but can be extended for more keys. 
When SW1 is pressed a green LED lights up. 
When SW2 is pressed a red LED lights up. 


KKK KKK KK KKK KKK KKK KK KKK KK KKK IKKE KK KK KKK KE KKKKKKKKKK KE KEK 





Define equates 


=e ™e 7s a =e =. Te “se "se -e 


0002 PC EQU 2 
0006 PORT _B  EQU 6 
0002 SCAN1 EQU 2 
0003 SCAN2 EQU 3 
0000 SW1 EQU 0 
0001 Sw2 EQU i; 
0004 GRN_LED EQU 4 
0005 RED LED EQU 5 
0014 MSEC 20 EQU D‘20! 
0008 DB1 EQU 8 
0008 GP EQU 8 
0009 DB2 EQU 9 
PORT B ASSIGNMENTS: 
0 —> Swi INPUT 
1 -> sw2 INPUT 


2 —-> SCAN1 OUTPUT 
3 -—> SCAN2 OUTPUT 
4 —> GRN_LED OUTPUT 
9 —> RED LED OUTPUT 
7 —> ASSIGNED AS DUMMY OUTPUTS 


~e *s *e “se “es “ea “a %e eae Ve re 


ORG 0 
START 

0000 0910 CALL INIT PORT B ; INITIALIZE PORT B 

0001 0920 CALL DELAY ;DELAY 20 MSECS 

0002 0915 CALL SCAN_KEYS ;GET KEY VALUES 

0003 0028 MOVWF GP ;SAVE IN RAM 

0004 0608 BTFSC GP,SW1 ;SKIP IF SW1 NOT PRESSED 

0005 0929 CALL TURN GREEN ON ;ELSE DO ROUTINE 

0006 0628 BTFSC GP,Sw2 ;SKIP IF SW2 NOT PRESSED 

0007 092B CALL TURN _RED_ON ;ELSE DO ROUTINE 
CHK_FOR_KEY 

0008 0920 CALL DELAY ;DELAY FOR 20 MSEC 

0009 0915 CALL SCAN_KEYS ;GET KEY HIT 

000A OFO0O XORLW 0 rEXCL. OR WITH 0 

000B 0743 OA08 BNZ CHK FOR_KEY ;KEY STILL PRESSED 


7;THEN LOOP 
NO_KEY PRESSED 


OO0D 0446 BCF PORT_B,SCAN1 ;SET SCAN LINES LOW 
OO0E 0466 BCF PORT _B,SCAN2 ; ‘i 
QOOF 0003 SLEEP , SLEEP 


e 
e 
. 
‘ 


INIT PORT B 


0010 0C03 MOVLW B’00000011' ; config RBO, 1 as i/p’s 
0011 0006 TRIS PORT B ; and RB2-7 as o/p’s 

0012 OCFF MOVLW OFFh 

0013 0026 MOVWE PORT B 7DEFAULT VALUES FOR PORT _B 
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0014 0800 RETLW 0 7;RETURN WITH NO ERROR 


This routine, scans two keys and returns the following: 
0 if no key is pressed 
1 if SW1 is pressd 
2 if SW2 is pressed 
3 if SW1l and SW2 are pressed 


26 *e “se se es “6 


| SCAN_KEYS 
0015 0446 BCF PORT_B, SCAN1 ;ENABLE SCAN FOR SW1 
0016 0466 BCF PORT _B, SCAN2 ;EANBLE SCAN FOR SW2 
0017 0c03 MOVLW B’00000011' ;LOAD MASK IN W 
0018 0146 ANDWF PORT_B,0 ;AND WITH PORT 
0019 0546 BSF PORT B, SCAN1 ;DISABLE SCAN 
001A 0566 BSF PORT_B, SCAN2 : / 
001B 01E2 ADDWF = PC, 1 ;GET OFFSET TO TABLE 
O01c 0803 | RETLW 3 ;SW1 AND SW2 PRESSED 
001D 0802 RETLW 2 ;SW2 PRESSED 
OO1E 0801 RETLW 1 ;SW1 PRESSED 
O01F 0800 RETLW 0 ;NO KEY PRESSED 


s 
‘ 


;DELAY, IS A APPROX. WAIT FOR 20.4mSECS, FOR A SYSTEM 
;USING A 2 Mhz CRYSTAL CLOCK. 


DELAY 
0020 0C14 MOVLW MSEC 20 
0021 0028 MOVWE DB 
DLY1 
0022 0069 CLRF DB2 
0023 02E8 DECFSZ DB1 
0024 0A26 GOTO DLY2 
0025 0800 RETLW 0 
DLY2 
0026 02E9 DECFSZ DB2 7; INNER LOOP = 1.02 MSEC. 
0027 0A26 GOTO DLY2 ; / 
0028 0A22 GOTO DLY1 


TURN_GREEN_ON 


0029 0486 BCF PORT_B,GRN_LED 
002A 0800 RETLW 0 


° 
e 


TURN_RED ON 


002B 04A6 BCF PORT B,RED_ LED 
002C 0800 RETLW 0 
END 
Errors : 0 
Warnings : 0 
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INTRODUCTION 


Many applications require drive to LEDs along with an 
interface to a keypad. Implementing such designs 
usually involves using up significant amounts of the 
processors I/O lines. This application note describes a 
method which uses only 16 I/O pins of a PIC16C5X 
microcontroller to sample a 4x4 keypad matrix, and 
directly drive four 7 segment LEDs (see Figure 1). Direct 
drive of the LEDs is possible, because of the high sink 
and source capabilities of the PIC16C5X microcontroller, 
thus eliminating the use of external drive transistor, and 
resulting in reduced cost and complexity of the overall 
circuit. 


Typically applications having LEDs and keypads also 
keep track of real time, in order to synchronize certain 
key avents. An Industrial Clock/Timer example has 
been used in this ap note as a demonstration of this 
technique. The software overhead to keep track of real 
time is minimal and the user can modify the code to 
significantly expand the functionality of this circuit. 


FIGURE 1 - PIC16C5X INTERFACE TO A SEGMENT DISPLAY AND 4X4 KEYPAD 


PIC16C5X 


RAO 
RA1 
RA2 
RA3 


4 x 2202 


4 x 2202 
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PART A: 4X4 KEY MATRIX 
SAMPLING | 


Implementation 


The 4x4 Key Matrix is connected to port C of the 
PIC16C5X (Figure 2a). The 4 columns are connected to 
RCO-RC3 and the 4 rows are connected to RC4-RC7. 
Each digit is refreshed every 20 ms. with a 5 ms pulse. 
The keypad is sampled every 20 ms with four 3 us pulses 
(Figure 3). 


The Keypad sampling is as follows: 


1. The columns are connected to output pins, and the 
rows are connected to input pins. — 


2. Each column is sequentially driven to a low voltage 
while atthe same instance the four rows are sampled. 
Since the rows are all held high with pull-up resistors, 
all four inputs will normally be high. Ifakey is pressed 
in acolumn which is at a low level, that low level will 
be conducted to the input pin through the closed key 
and the corresponding row will be sensed as a low. 


. Before anew column is brought low, care should be 
taken to discharge the input pins (see code section 
for details). 


oe) 


rs 


. A50 ms key debounce technique has been imple- 
mented in the software, in order to eliminate multiple 
key strokes. 


Notes: 


1. Resistors R8-R11 and R12-R14 have been selected 
such that their ratio is 1:10. This will insure a 0.5 Volt 
level at the input, when a key is pressed. Also 
R8-R14 should have a value such that their current 
contribution to the LEDs segments is negligible. 


2. In circuits where there is substantial interference 
between the key matrix and the LED drive circuit, the 
alternative circuit (Figure 2b) should be utilized. 

- Diodes in the path of all pins connected to the keypad 
insure that there is minimal interference from the 
keypad, when it is not being sampled. 


FIGURE 2A - PIC16C5X INDUSTRIAL CLOCK/TIMER SCHEMATIC 
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PART B: INDUSTRIAL CLOCK/TIMER 


Clock Selection 


The 4.096 MHz crystal oscillator is the time base. The 
PIC16C5X internally divides the clock by 4 to give an 
internal clock of 1.024 MHz. This clock is further divided 
by 32 (by the prescaler in the OPTIONS register) to give 
a clock of 32 KHz which is used to increment the RTCC 
inthe PIC16C5X. Ifthe RTCC is initialized to 96, it would 
overflow to 0 in 5 ms. 


(256-96) x (1/32000) = 5.000 ms 


This 5 ms is used to count the seconds, minutes and 
hours in the clock/timer. It is also used as a time base 
to update the display digits and sample the keyboard. 
The clock speed being 4.096 MHz, each instruction will 


execute in 1 us. Therefore in 5 ms, approximately 5000 
instruction can be executed. This gives us sufficient time 
to execute a large section of code and not miss the 
overflow in the RTCC. 


Using a 3.579545 MHz color burst crystal oscillator 
as a time base 


Some users may want to use a color burst crystal 
oscillator as a time base, because of its low cost. Ifa 
3.579545 MHz crystal is used, then the internal clock will 
be 1.117 us. If this is prescaled by 32, the RTCC will be 
incremented every 35.758 us. Initializing the RTCC with 
116 wili Cause It to overfiow to 0 in 5.006 ms. giving us 
an error of 0.12%. This error can be corrected in 
software by making time adjustments every minute and/ 
or every hour. 


FIGURE 2B - PIC16C5X ALARM CLOCK SCHEMATIC (USING DIODES) 
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FIGURE 3 - KEY SCAN AND LED DIGIT SELECT TIMING 
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FEATURES 


The Flow Chart (Figure 4) shows the sequence of events 
in the clock/timer software. The clock has the following 
features: 


12 hour clock with a.m./p.m. 
12 hour alarm with a.m./p.m. 


Full function hex keypad (fig. 5). 
AA audible alarm for 1 minute. 
10 minute alarm disable. 


See eS 


SETTING CLOCK/TIMER FUNCTIONS 


| Function Key Sequence to Activate Function 


Set Real Time Set — Hours (tens) — Hours — Minutes (tens) — Minutes — AM/PM — Set 
View Alarm Time 
















Alarm (alarm time is displayed for 5 seconds) 





Set Alarm Time Alarm — Set (must be pressed when alarm LED is flashing) —> Hours (tens) —> Hours 


— Minutes (tens) — Minutes — AM/PM - Set 


Enable/Disable Alarm | Alarm — Alarm (toggles alarm status) 


Disable Alarm (disable audible beep for 10 minutes) 

Clear Alarm Clear Alarm (clears audible alarm) 

Abort Entry Clear Entry (aborts data entry mode when setting real and alarm time) 
Notes: 1. Valid key strokes will be acknowledged with a beep. 










2. Hours and minutes used above correspond to digits 0 - 9 on the keypad. 


Z = 
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FIGURE 4 - TIMER/CLOCK FLOW CHART 
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FIGURE 5 - KEYPAD 
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FIGURE 6 - INTERFACE TO PIC16C54/56 
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SUMMARY 
' This Application Note demonstrates a simple method of CODE SIZE 
interfacing the PIC16C5X to 7 segment LEDs and a 
keypad. The key features of the PIC16C5X which Key scan — 97 bytes 
made this possible are: Display update — 113 bytes 


1. High sink/source of the I/O ports. 
2. Fast instruction cycle for quick key-scan. 


3. RISC processor allowing minimal overhead for 
real time clock maintenance. Author: Stan D'Souza 


4. Re-configurable I/O ports, enabling dual function- Logic Products Division 
ality of ports. 





Figure 6 depicts a block diagram connecting a 
PIC16C54/56 to a 4 digit 7 segment LED display anda 
4x4 hex keypad. Since only 12 I/O pins are available in 
the PIC16C54/56, external npn transistor will have to be 
utilized to sink the current from each digit. 


a a a ce ee a te 
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APPENDIX A: CODE LISTING 


MPASM BO,54 PAGE 1 
Alarm Clock 


TELE “Alarm Clock” 

LIST P = 16C57 
;Define Equates: 

O7TEE PICS7 EQU TFFH 

pK ka KI I IK II KK KK IK KK EK KK RK KR KK KK KKK KKK KK KEK KK KKK KKK 
;External Ossc. used = 4.096Mhz. Prescaler of 32 used, which gives a 
331.25 microSec increment of the RTCC. If RTCC is intially loaded with 96, 
yit would overflow to 0 in 5.000 milliSecs. Giving a 0.00% error. 





0060 MSEC5 EQU D’ 96! 
eee ee ee IIe I I I I ee II te Ik ke I RK KK KK KR KK RK KK Ka KK KK 
0000 e EQU 0 
0000 BEP EQU 0 
0000 RTATS  EQU 0 
0001 Dc EQU 1 
0001 HR10 EQU 1 
0002 Z EQU 2 
0002 HR EQU 2 
0003 MIN1O EQU 3 
0004 MIN EQU 4 
0004 FLASH  EQU 4 
0005 PAO EQU 5 
0005 KEY BEEP EQU 5 
0005 AMPM EQU 5 
0006 PA1 EQU 6 
0000 FO EQU 0 
0006 KEY HIT EQU 6 
0006 ALED EQU 6 
0007 AM PM  EQU 7 
0003 COLON  EQU 3 
0002 ALRMLED EQU 2 
0007 SERVICED EQU 7 
0000 ALONOF EQU 0 
0001 INAL EQU 1 
0002 SILNC  EQU 2 
0003 INAA  —-EQU 3 
0005 INKEYBEP EQU 5 


. 
‘ 


;DEFINE RAM LOCATIONS: 


0001 RTCC EQU 1 

0002 PC EQU 2 

0003 STATUS EQU 3 

0004 FSR EQU 4 

0005 PORT A EQU 5 

0006 PORT B_ EQU 6 

0007 PORT C EQU 7 

;DEFINE REAL TIME MODE REGS (RTM) 

0008 MSTMR EQU 8 ;MILLI SEC. TIMER 
0009 STMR EQU 9 ;SEC. TIMER 


BK KK KKK KKK KKK KK KKK HK KK KEK KEK KK KKK KK RK KEK KKK AK KK K 


;DO NOT CHANGE RELATIVE POSITION OF NEXT 6 BYTES 


000A MTMR EQU OA *MIN. TIMER 

000B HTMR EQU 0B *;HOUR TIMER 
;DEFINE ALARM TIME MODE REGS (ATM) 

000C MALARM EQU OC ;MIN. ALARM 

000D HALARM EQU OD ;HOUR ALARM 
*;DEFINE DATA ENTRY MODE REGS (DEM) 

O00 MENTRY EQU OE *MIN. ENTRY 

O00F HENTRY EQU OF ;HOUR ENTRY 


KI I I a I I III II IE 





AS RRA AAR TT NN ENS PIA NE TEN TER IRE RE END AT TRIS MEN LA PIO TENE OL TEE TORE TET SECA IDS EEL TET NAT LEED ELIS NCEE IIE LE EIDE IDE LEED, 
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0010 


0011 
0012 
0013 
0014 
0015 
0016 
0017 


0018 


0019 


OO1A 


;DEFINE FLAG REG AND FUNCTION: 
FLAG  EQU 10 
BIT # 7161/5/4131211101 
—————|-|-1-1-1-1-1-1 
XIXIXIXIXIXLOLO, —> 
XIXIX|XIXIX}O11] —> 
X{XIXIXIXIXI1LIO} —> 
XIXIX|XIX|Xf111] —> 
XIXIXIXIXIYIXIX] —> 
XIXIXIXIYIXEXIX] —> 
XIXIXIYIXIXIXIX] —> 
XIXIYIXIXIXPXIX] —> 
XIY|XIXIXIXI XIX] => 
YIXIXIXIXIXIXIXL —> 
X = DEFINED ELSEWHERE IN TABLE 
Y = DEFINED AS SHOWN (0/1) 


“se bad J 


“=e =s Bh %e8 Se “8 “2 “2 “GQ 8 Be Ne We 


TEMP = EQU 11 
DIGIT  EQU 12 
NEW_KEY EQU 13 


KEY NIBL EQU 14 
DEBOUNCE EQU 15 
MIN SEC EQU 16 
ENTFLG EQU 17 


REAL TIME MODE (RTM) 
ALARM TIME MODE (ATM) 
DATA ENTRY MODE (DEM) 
TEST MODE (TM) 
ALRMLED ON/OFF 
COLON LED ON/OFF 
FLASH DISPLAY 

KEY BEEP 

KEY HIT (0/1) 
SERVICED 


;MIN/SECONDS TIMER 


;flag dedicated to the key entry mode 


BIT # 7161514{/3{12{1{0] 


| 
| 
{ 
a 
zn 
‘i 
: 
a 
‘ 


XIXIXIXIXIXIXTY| —> 
XIX XIXIRIXLYIX| > 
XIX|XIXIXPYP XIX] —> 
XIX|XPXLYIXIX|X] —> 
XIXLXLYIX{X|X|X| > 
XIXIYIXIX|XLXIX] —> 
ALYIX|YIXIX|X|X]| —> 
YEXIXIXIXIXIXTX| —> 


~e =s =e “eae *e “se “es “es ~@ ve “2 “e 


ALFLAG EQU 18 
;flag dedicated to the alarm 
BIT # 7/6{/5141312/11/01 
Se ere Pe 
X{XIX|XIXIXIXLY| —> 
X|XIX{X|XTXLYIX| —> 
XIXIXIXIXIYLX| XL —> 
X|X|X|IXIYIX|X| xX] —> 
X(X|X|Y{X|X|X|X| —> 
XI X|YIXIXTX|X|X| —> 
XIYIXIYIXIXIXIX| —> 
YIXIXIXIX|XIX|X| —> 


"o “se 7. 76 “e 


Oy ny ee? eT | 


7e@ 


AAFLAG EQU 19 
;flag dedicated to the AA alarm 
AATMR EQU 1A 


REAL/ALARM TIME STATUS 
HR10 DONE 

HR DONE 

MIN10O DONE 

MIN DONE 

INKE YBEP 

NOT USED 

NOT USED 


ALONOF 
INAL 
SILNC 
INAA 

NOT USED 
NOT USED 
NOT USED 
NOT USED 


Cee ear aesh an Rana naeenieucmmaunneenamersanamannamensehemnaiamemnenarecmanmnnmenanmanameemaronmanemennanemaranantecieenmmanetreaneeatensel ne neeaatee mace ereecceeaeee 
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Port pin definitions: 
PORT A: 
BIT 0 
BIT 1-3 —> unused I/O 


PORT _B: ALL OUTPUTS 


-e 7e Fk Me lu elU MU MEU MlUlU MU MHLU SHUM CUM 


;PORT_C: 


—> BEEPER (ACTIVE LOW) OUTPUT 


BIT 0&4 —> MSB DIGIT COMMON CATHODE & ALARM 
BIT 1&5 —> 2ND DIGIT COMMOM CATHODE & COLON 
BIT 2&6 —> 3RD DIGIT COMMON CATHODE & PM 
BIT 3&7 —> LSB DIGIT COMMON CATHODE & AM 


7; IN DISPLAY MODE ALL SEG/ANNN SET AS OUTPUTS 


;IN KEY SCAN MODE COLS ARE OUTPUTS ROWS ARE INPUTS 
: BIT 0 —> SEGMENT A & COL 4 
; BIT 1 —> SEGMENT B & COL 3 
; BIT 2. —> SEGMENT C & COL 2 
; BIT 3. —> SEGMENT D & COL 1 
: BIT 4 —> SEGMENT E & ROW 4 
; BIT 5 —> SEGMENT F & ROW 3 
; BIT 6 —> SEGMENT G & ROW 2 
; BIT 7 —> CA OF ALL ANNUNCIATORS & ROW 1 
ORG 0 
START 
0000 OAFC GOTO INIT CLK ; INITIALIZE CLOCK 
;THIS ROUTINE RUNS A TEST ON THE LEDS. 
;ALL THE RELEVENT LEDS ARE LIT UP FOR 2 SECS. 
TEST HARDWARE 
0001 0c02 MOVLW  /02' ;DISPLAY FOR 2 SECS 
0002 0036 MOVWF MIN SEC ; / 
TEST LOOP 
0003 0216 MOVE MIN SEC,W ;GET MIN/SEC 
0004 0643 BTFSC STATUS,Z ;NOT 0 THEN SKIP 
0005 OA0B GOTO NORM_TIME ;ELSE NORMAL TIME 
0006 0925 CALL UPDATE DISPLAY ;UPDATE DISPLAY 
0007 05A3 BSF STATUS, PAO ;GOTO PAGE 1 
0008 0900 CALL UPDATE TIMERS  ;WAIT AND UPDATE 
0009 04A3 BCF STATUS, PAO ;RESET PAGE MARKER 
000A 0A03 GOTO TEST LOOP ;LOOP BACK 
NORM_TIME 
000B 0410 BCF FLAG, 0 ;PUT IN REAL TIME 
000C 0430 BCF FLAG, 1 
TIME LOOP 
000D 0925 CALL UPDATE DISPLAY 
O00E 05C3 BSF STATUS, PAL] ;GOTO PAGE 2 
000F 0900 CALL SERVICE_KEYS 
0010 05A3 BSF STATUS, PAO ;GOTO PAGE 3 
0011 0900 CALL SOUND_AA ;CHECK ALARM 
0012 04c3 BCF STATUS, PA1 ;GOTO PAGE 1 
0013 0900 CALL UPDATE TIMERS  ;WAIT AND UPDATE TIMERS 
0014 04A3 BCF STATUS, PAO ;RESET PAGE MARKER 
0015 04C3 BCF STATUS,PA1 ; / 
0016 0210 MOVE FLAG, W ;SEE IF IN ATM 
0017 0F03 ANDLW  B’00000011' ; / 
0018 OFO1 XORLW  B’00000001' ; / 
0019 0643 BTFSC STATUS,2Z ;SKIP IF NOT 
OO1A 091C CALL RESET ATM 
001B OAOD GOTO TIME_ LOOP 
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001C 
001D 
OO1E 
OO1F 
0020 
0021 
0022 
0023 
0024 


0025 
0026 
0027 
0028 
0029 
002A 


002B 
002C 
002D 
002E 
002F 
0030 
0031 
0032 
0033 
0034 
0035 
0036 


0037 
0038 
0039 
003A 
003B 
003C 
003D 
003E 
003F 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
004A 


0048 
004C 
004D 


004E 
004F 
0050 


0051 
0052 
0053 


0216 
OEOF 
0743 
0800 
0410 
0450 
0618 
0550 
0800 


0c00 
0027 
OC3F 
0186 
0643 
OA6F 


0246 
0643 
0CCO 
0031 
0271 
0503 
0371 
0703 
0371 
0371 
0211 
0026 


OCOA 
0024 
0210 
0E03 
0031 
OF O03 
0643 
OA4B 
0403 
0371 
0211 
01E4 
0954 
0032 
09D1 
0690 
0948 
0212 
0027 
0800 


OCFF 
0027 
0800 


0770 
OA51 
0800 


0C00 
0032 
0800 


RESET ATM 
MOVE 
ANDLW 
BTFSS 
RETLW 
BCF 
BCF 
BTFSC 
BSF 
RETLW 


s 
’ 
° 
’ 


UPDATE_DISPLAY 
MOVLW 
MOVWE 
MOVLW 
XORWE 
BTFSC 
GOTO 

UP_DSP_1 


;SELECT DIGIT TO 


COME 
BTFSC 
MOVLW 
MOVWE 
COME 
BSF 
RLF 
BTFSS 
RLF 
RLF 
MOVF 
MOVWE 


;NOW THAT DIGIT IS SELECTED, 


MIN SEC, W 
B‘00001111' 
STATUS, 2Z 

0 

FLAG, 0 

FLAG, ALRMLED 
ALFLAG, ALONOF 
FLAG, ALRMLED 
0 


B’00000000! 
PORT _C 
B‘00111111' 
PORT _B,0 
STATUS, Z 
SCAN_KP 


BE DISPLAYED 
PORT _B, 0 
STATUS ,Z 
B’11000000' 
TEMP 

TEMP 
STATUS,C 
TEMP 
STATUS,C 
TEMP 

TEMP 
TEMP, 0 
PORT B 


;FIRST FIND MODE OF OPERATION. 


MOVLW 
MOVWE 
MOVE 
ANDLW 
MOVWE 
XORLW 
BIFSC 
GOTO 
BCE 
RLF 
MOVE 
ADDWF 
CALL 
MOVWF 
CALL 
BTFSC 
CALL 
MOVE 
MOVWE 
RETLW 
DO_TM 
MOVLW 
MOVWE 
RETLW 
CHK HALF SEC 
BTFSS 
GOTO 
RETLW 
BLANK_DSP 
MOVLW 
MOVWE 
RETLW 


MTMR 
FSR 

FLAG, 0 
B’00000011' 
TEMP 
B’00000011' 
STATUS, Z 
DO_TM 
STATUS,C 
TEMP 

TEMP , 0 

FSR 
GET_7_SEG 
DIGIT 
MASK_ANNC 
FLAG, FLASH 
CHK HALF SEC 
DIGIT, 0 
PORT C 

0 


B’11111111' 
PORT _C 
0 


FLAG, COLON 
BLANK DSP 
0 


B’‘00000000' 
DIGLT 
0 


*GET MIN/SEC 
; / 

72 THEN SKIP 
:ELSE RETURN 
;SET TO RTM 
;CLEAR LED 
;TEST STAT 
;SET LED 

; RETURN 


;CLEAR SEG DRIVE 


; / 
SEE IF LAST DIGIT 


: / 
yNO THEN SKIP 
7ELSE SCAN KEYPAD 


;GET COMPL. PORT B IN W 
7;NO DIGIT SELECTED? 
;THEN SELECT DEFAULT 
;SAVE IN TEMP 
;COMPLEMENT VALUE 
7SET CARRY 

;SHIFT LEFT 

7;IF C=1 THEN SKIP 
fELSE 3: TIMES... 

7; THRU CARRY 

;GET IN W 

;OUTPUT TO PORT 


SELECT SEG VALUES FOR THAT DIGIT 


;LOAD FSR WITH MTMR 
; / 

;GET FLAG IN W 

7;MASK OTHER BITS 
;SAVE IN TEMP 

;IN TEST MODE 

;NO THEN SKIP 

;ELSE TEST MODE 
;CLEAR CARRY 

;LEFT SHIFT TEMP 
s;GET IN W 

;CHANGE INDIRECT POINTER 
;GET 7 SEG DATA IN W 
;SAVE IN DIGIT LOC. 
*MASK ANNC TO DIGIT 
*;NO FLASH THEN SKIP 
;ELSE CHK. IF ON 
;GET BACK DIGIT 
;OUTPUT TO PORT 
;RETURN 


*LIGHT ALL SEGMENTS 
7 / 
sRETURN FROM UPDATE DISPLAY 


;IF COLON ON THEN DO 
7ELSE BLANK DISPLAY 


;MAKE PORT C LOW 





DS005296-page 16 


2-106 


© 1993 Microchip Technology Incorporated 


Multiplexing LEDs/Keypad 





;ON ENTRY FSR POINTS TO THE REAL TIME MODE’S MINUTES REGISTER. 
7;ON RETURN FSR POINTS TO THE TIMER REGISTER TO BE DISPLAYED. 
7;W REG. CONTAINS THE DECODED 7 SEG. INFO OF THE DIGIT 

;TO BE DISPLAYED 


e 
c 





GET 7 SEG 
0054 0246 COME PORT _B,0 ;COMPLEMENT B —> W 
0055 OEFO ANDLW  B’11110000' ;MASK LO NIBBLE 
0056 0643 BTFSC STATUS,2Z ;NZ THEN SKIP 
0057 02A4 INCF FSR ;INC POINTER 
0058 0200 MOVE FO, 0 ;MOVE INDIRECT TO W 
0059 0031 MOVWF TEMP ;GET INTO TEMP 
OOSA 0246 COMF PORT _B,0 ;COMPL.B —> W 
005B OEFO ANDLW B‘’11110000' :MASK LO NIBBLE 
005C 0643 BTFSC  STATUS,Z ;IF D1/2 THEN 
005D 04F1 BCF TEMP, AM PM ;CLEAR AM/PM BIT 
OOS5SE 0246 COMF PORT _B,0 ;GET PORT B AGAIN 
OO5F OECC ANDLW  B’11001100! ;SEE IF D2 OR D4 
0060 0643 BTFSC STATUS,Z ;YES THEN SKIP 
0061 03B1 SWAPF TEMP ;SWAP TEMP 
0062 OCOF MOVLW B’00001111' ;MASK HI NIBBLE 
0063 0151 ANDWF TEMP, 0 
0064 O1E2 ADDWF PC ;ADD TO PC 
0065 083F RETLW  B‘’00111111' ;CODE FOR 0 
0066 0806 RETLW B’00000110' ;CODE FOR 1 
0067 085B RETLW B’01011011' ;CODE FOR 2 
0068 084F RETLW B’01001111' ;CODE FOR 3 
0069 0866 RETLW B’01100110' ;CODE FOR 4 
006A O86D RETLW B’01101101' ;CODE FOR 5 
006B 087D RETLW  B’01111101' ;CODE FOR 6 
006C 0807 RETLW 8B00000111' ;CODE FOR 7 
006D O87F RETLW Broitati i ;CODE FOR 8 
OO06E 0867 RETLW B’01100111' - ;CODE FOR 9 


° 
’ 


;This routine scans the 4x4 hex key pad for a key hit. 
;If key is pressed, KEY HIT flag is set and the value of 
;the hex key is returned in reg NEW_KEY 

;If no key is detected, then a Oxff value is returned in 
;register NEW_KEY and the flag KEY_HIT is reset. 


e 
’ 


SCAN_KP 
006F 06D0 BTFSC FLAG,KEY HIT ;KEY UNDER SERVICE? 
0070 OA2B GOTO UP_DSP_1 ;YES SKIP ROUTINE 
0071 OCFF MOVLW  Bf’11111111! ;SET DIGIT SINKS ... 
0072 0026 MOVWF PORT B ;TO HIGH 
0073 OCF7 MOVLW  B‘11110111! ;SET KEY COL LOW 
0074 0031 MOVWE TEMP ;SAVE IN TEMP 
SKP1 
0075 0c00 MOVLW  B’00000000! ;SET PORT C AS OUTPUTS 
0076 0007 TRIS PORT _C : / 
0077 0211 MOVE TEMP , W 
0078 OEOF ANDLW  B/00001111' ;DISCHARGE PINS FOR MEMBRANE KEYPADS 
0079 0027 MOVWF PORT _C ; / 
007A OCFO MOVLW B/’11110000! ;SET AS I/O 
007B 0007 TRIS PORT _C er 
007C 0211 MOVE TEMP , W ;GET OLD VALUE 
007D 0027 MOVWF PORT _C ;OUTPUT TO PORT 
007E 0207 MOVE PORT _C,W ;INPUT PORT VALUE 
007F OEFO ANDLW  B’11110000' ;MASK LO BYTE 
0080 OFFO XORLW  B11110000' ;SEE IF KEY HIT 
0081 0743 BTFSS  STATUS,Z ;NO KEY THEN SKIP 
0082 OA8D GOTO DET KEY ;LOAD KEY VALUE 
SKP3 
0083 0503 BSF STATUS,C ;SET CARRY 
0084 0331 RRE TEMP ;MAKE NEXT COL. LOW 
0085 0603 BTFSC  STATUS,C ;ALL DONE THEN SKIP 
0086 OA75 GOTO SKP1 
0087 0073 CLRF NEW KEY ;SET NEW_KEY = FF 
0088 00F3 DECF NEW KEY : j 





ae AI SLT I EN I TE SP TIS a TT EE DT SE ICT LY SEE TS IT IG IIE ET TE IIIS AE OIE NITE IIE DEI TT TEES 
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0089 
008A 
008B 
008C 


008D 
008E 
008F 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 


0098 
0099 
009A 
00 9B 


009C 
00 9D 
00 9E 
00 9F 
OO0A0 
O0A1 


O0A2 
O0A3 
00A4 


OOAS 
OOA6 
0O0A7 
OOA8 
OOA9 
OOAA 
OOAB 
OOAC 
OOAD 
OOAE 


0067 
0c00 
0007 
0A2B 


0293 
0743 
0A89 
0207 
ODOF 
0151 
0033 
0998 
0033 
05D0 
OA89 


OEOF 
0034 
0c04 
0031 


0503 
0334 
0703 
OAAS 
O2F1 
OA9C 


0SA3 
05C3 
OBFF 


OOF1 
0393 
OEOF 
0034 
0211 
O1E2 
OAAF 
OAB8 
OABA 
OABC 


SKP2 


DET KEY 


skey is detected 


° 
¢ 
° 
e 
. 
, 
. 
, 
° 
. 
° 
, 
. 
e 
e 
’ 
. 
, 
° 
, 
. 
‘ 
. 
e 
° 
, 
. 
’ 
. 
‘ 
° 
? 
° 
’ 
e 
Ud 
. 
, 
. 
? 
. 
e 
. 
’ 


GKV1 


GO_RESET 


GET HI K 


CLRF 
MOVLW 
TRIS 
GOTO 


INCE 
BTFSS 
GOTO 
MOVE 
IORLW 
ANDWE 
MOVWE 
CALL 
MOVWE 
BSF 
GOTO 


ONE 
TWO 
THREE 
C 
FOUR 
FIVE 
SIX 

D 
SEVEN 
EIGHT 
NINE 


ET KEY VAL 


ANDLW 
MOVWE 
MOVLW 
MOVWE 


BSF 
RRF 
BTFSS 
GOTO 
DECE SZ 
GOTO 


BSF 
BSF 
GOTO 
EY 

DECF 
SWAPF 
ANDLW 
MOVWE 
MOVE 
ADDWF 
GOTO 
GOTO 
GOTO 
GOTO 


PORT _C 
B’00000000! 
PORT_C 
UP_DSP_1 


NEW_KEY,W 
STATUS, Z 
SKP2 
PORT_C,W 
B’00001111' 
TEMP, W 
NEW_KEY 

GET KEY VAL 
NEW_KEY 


FLAG, KEY HIT 


SKP2 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


B’00001111' 
KEY NIBL 

4 

TEMP 


STATUS, C 
KEY NIBL 
STATUS,C 
GET HI KEY 
TEMP 

GKV1 


STATUS, PAO 
STATUS, PA1 
SYS RESET 


TEMP 

NEW KEY, W 
B‘00001111' 
KEY NIBL 
TEMP , W 

PC 

GET147A 
GET2580 
GET369B 
GETCDEF 


;SETPORT C AS ... 
;OUTPUTS 

: / 

; RETURN 


;CHK IF KEY ... 
;WAS RELEASED 

;NO THEN RETURN 
;GET RAW KEY... 

; VALUE. 

; / 
;SAVE IN NEW KEY 
;GET ACTUAL KEY ... 
+ VALUE 

;SET KEY HIT FLAG 
; RETURN 


This routine decodes the hex value from the “raw” data got 
from scanning the rows and cols. 


actual key value raw hex value 


77 
7B 
7D 


?GET LO NIBBLE 
> SAVE 

:SET COUNT TO 4 
: i 


;SET CARRY 
7;ROTATE NIBBLE 
;SKIP IF NOT Z@ 
;GOTO NEXT PART 
;DEC COUNT 

; LOOP 


:SET MSB 
: 7 
sELSE BIG ERROR 


;REDUCE BY 1 
?GET HI NIBBLE 


; rs 

7 SAVE 

7;GET OFFSET TO TBL 
;LOAD IN PC 

;JUMP TO NEXT PART 
; / 

; / 

; / 
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OOAF 0C04 
00OBO 0031 


00B1 0503 
00B2 0334 
00B3 0703 
00B4 OABE 
OOBS 02F1 
OOB6 OAB1 
00B7 OAA2 


00B8 0C08 
00B9 OABO 


OOBA OCOC 
OOBB OABO 


OOBC 0C10 
O0OBD OABO 


OOBE OOF] 
OOBF 0211 
00CO O1E2 
00C1 0801 
00C2 0804 
00C3 0807 
00C4 080A 
00C5 0802 
00C6 0805 
00C7 0808 
00C8 0800 
00C9 0803 
OOCA 0806 
OOCB 0809 
0OCC 080B 
OOCD 080C 
OOCE 080D 
OOCF O80E 
0O0DO O80F 


00D1 OCFC 
00D2 0186 
00D3 0643 
00D4 OAES 
0ODS5 OCF3 
O0OD6 0186 
OOD? 0643 
00D8 OAE8 
0O0D9 OCCE 
OODA 0186 
OODB 0643 
OODC OAEL 


OODD 02A4 
OODE 07E0 
OODF O5F2 
OOEO OAEB 


OOE1 02A4 
OOE2 06E0 
O0OE3 OSF2 
O0OE4 OAEB 


GET147A 
GETCOM 


GETCOM1 


GET2580 


GET369B 


» 
; 


GETCDEF 


e 
, 


KEY TBL 


= te =e 


MASK _AM 


MASK PM 


ASK_ANNC 


MOVLW 


MOVWE 


BSF 
RRF 
BTESS 
GOTO 
DECF SZ 
GOTO 
GOTO 


MOVLW 
GOTO 


MOVLW 
GOTO 


MOVLW 
GOTO 


DECF 

MOVE 

ADDWEF 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 
RETLW 


MOVLW 
XORWF 
BIESC 
GOTO 

MOVLW 
XORWE 
BTFSC 
GOTO 

MOVLW 
XORWE 
BTFSC 
GOTO 


INCE 
BTFSS 
BSF 
GOTO 


INCE 
BIESC 
BSF 
GOTO 


4 
TEMP 


STATUS,C 
KEY NIBL 
STATUS,C 
KEY TBL 
TEMP 
GETCOM1 
GO_RESET 


8 
GETCOM 


Dek 
GETCOM 


D’‘l16! 
GETCOM 


> 


Britis loo * 


PORT _B,0 
STATUS 2 


MASK ALARM 
B‘11110011" 


PORT _B,0 
STATUS, Z 


MASK COLON 
B‘11001111' 


PORT B,0 
STATUS, Z 
MASK PM 


FSR 
FO,AM PM 
DIGIT, 7 


BLNK_LEAD 0 


FSR 
FO,AM PM 
DIGIT, 7 


BLNK_LEAD_0 


;SET COUNT TO 4 


;SET CARRY 
;ROTATE RIGHT 
;CHECK IF DONE 
; JUMP TO TABLE 
;DEC COUNT 

> LOOP 

;ELSE ERROR 


;SET COUNT TO 8 


7SET COUNT TO 12 


;SET COUNT TO 16 


;REDUCE BY 1 
;GET IN W 
;JUMP TO TABLE 
7 KEY 
;KEY 
;KEY 
;KEY 
;KEY 
7;KEY 
;KEY 
;KEY 
; KEY 
; KEY 
;KEY 
*KEY 
7 KEY 
7 KEY 
7 KEY 
;KEY 


NTMmoaIwWwenwoowuen yp aI Pr 


7;CHK IF DIGIT 1 
; / 

>NO THEN SKIP 
;ELSE MASK ALARM 
sCHK IF DIGIT 2 
; / 

7;NO THEN SKIP 
;ELSE MASK COLON 
;CHK IF DIGIT 3 
; / 

7;NO THEN SKIP 
7;ELSE MASK PM 


;INC FSR 

;IF 0 THEN AM 
;SET MSB 
7NEXT 


7; INC FSR 

BLE 1 SPHEN PM 
;SET MSB 
;NEXT 
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MASK_ALARM 
00ES 0650 BTFSC 
00E6 05F2 BSF 
00E7 OAEB GOTO 

MASK_COLON 

OOE8 0670 BTFSC 
OOE9 05F2 BSF 

OOEA OAEB GOTO 

BLNK_LEAD 0 

OOEB 0210 MOVE: 
OOEC 0E03 ANDLW 
OOED OF02 XORLW 
OOEE 0643 BTFSC 
OOEF 0800 RETLW 
OOFO OCFC MOVLW 
OOF1 0186 XORWE 
OOF2 0743 BTFSS 
00F3 0800 RETLW 
OOF4 0C3F MOVLW 
OOFS 0152 ANDWF 
OOF6 OF3F XORLW 
OOF7 0743 BTFSS 
OOF8 0800 RETLW 
OOF9 0c80 MOVLW 
OOFA 0172 ANDWF 
OOFB 0800 RETLW 


7-e we Se te 


FLAG, ALRMLED 
DIGIT, ? 
BLNK_LEAD_0 


FLAG, COLON 
DIGIT, 7 
BLNK_LEAD_0 


FLAG, W 
B‘00000011' 
B‘00000010! 
STATUS,Z 

0 
B’11111100! 
PORT B,0 
STATUS, Z 

0 | 
B’00111111! 
DIGIT, 0 
B‘00111111' 
STATUS, Z 

0 
B‘10000000! 
DLcrT 

0 


2-1 THEN LIGHT LED 
- / 
:NEXT 


:1 THEN LIGHT LED 
: / 
sNEXT 


;GET IN W 

7;SEE IF IN DEM 
7; CHECK 

7;NO THEN DO 
7;ELSE RETURN 
:;SEE IF DIGIT 1 
; / 

7;YES THEN SKIP 
;RETURN 

s;ELSE MASK G AND ANUNC 
7;GET IN W 

;SEE IF 0 

7YES THEN SKIP 
7RETURN 

s;ELSE BLANK D1 
; / 
7RETURN 


;THIS ROUTINE SETS UP PORTS A,B,C AND THE INTERNAL 
;REAL TIME CLOCK COUNTER. 


INIT CLK 

OOFC OCOF MOVLW 
OOFD 0025 MOVWE 
OOFE 0C00 MOVLW 
OOFF 0005 TRIS 
0100 OCFF MOVLW 
0101 0026 MOVWE 
0102 0c00 MOVLW 
0103 0006 TRIS 
0104 0c00 MOVLW 
0105 0027 MOVWE 
0106 0c00 MOVLW 
0107 0007 TRIS 
0108 0c04 MOVLW 
0109 0002 OPTION 
010A 0Cé60 MOVLW 
010B 0021 MOVWE 
010C 0068 CLRE 
010D 0069 CLREF 
O10E 006A CLRF 
O10F 0C12 MOVLW 
0110 002B MOVWE 
0111 002D MOVWE 
0112 006C CLRF 
0113 0c03 MOVLW 
0114 0030 MOVWE 
0115 0078 CLRF 
0116 0079 CLRE 
0117 0077 CLRF 
0118 0A01 GOTO 


B’00001111! 
PORT A 
B’00000000! 
PORT _A 


B’11111111' 
PORT B 
B’00000000' 
PORT B 


B’00000000! 
PORT _C 
B‘00000000! 
PORT _C 


B‘Q0000100! 


MSEC5 

RTCC 
MSTMR © 
STMR 

MTMR 

12H 

HTMR 
HALARM 
MALARM 
B’00000011' 
FLAG 
ALFLAG 
AAFLAG 
ENTFLG 
TEST HARDWARE 


*>MAKE ACTIVE HIGH 
: / 
;SET PORT A AS OUTPUTS 


*SET LEVELS HIGH 
: a 
:SET PORT B AS OUTPUTS 


*SET LEVELS LOW 

/ 

‘SET PORT C AS OUTPUTS 
: jf 


*SET UP PRESCALER 
Fi f 


;RTCC = 5 mSEC 

; / 

;CLEAR MSTMR 

; & SEC TMR 

7& MINUTES 

;MAKE HRS = 12 

: / 

;MAKE HRS = 12 
/ 

SET TO TEST MODE 
/ 

CLEAR ALL FLAG 
‘a 
/ 


“ses *e e ses “e Oo 
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0200 0201 
0201 0743 
0202 OAO00 
0203 0C60 
0204 0021 
0205 02A8 
0206 06D0 
0207 OA7O 


0208 0210 
0209 0E03 
020A OFOL] 
020B 0743 
020C 0A14 
020D 0550 
O20E 0570 
O20F 0C64 
0210 0088 
0211 0703 
0212 0450 
0213 0OA19 


0214 0570 
0215 0C64 
0216 0088 
0217 0703 
0218 0470 


0219 0208 
O21A OFC? 
021B 0743 
021C 0800 


021D 0068 
O021E 0216 
O21F OEOF 
0220 0743 
0221 OOF6 
0222 0C09 
0223 0024 
0224 0955 
0225 0DO00 
0226 0743 
0227 0A38 


0228 03B6 
0229 0216 
022A OEOF 
022B 0743 
O22C OOF6 
022D 03B6 
O22E 0966 
022F OCOA 
0230 0024 
0231 0955 
0232 O0DO00 
0233 0743 
0234 0A38 


0235 OCOB 
0236 0024 
0237 0989 


e 
e 


7All routines related to timer updates are located at 
s;address 200 and above. 


ORG 0200 
UPDATE_TIMERS 
MOVE RTCC,W 
BTFSS STATUS,Z 
GOTO UPDATE TIMERS 
MOVLW MSECS5 
MOVWF  RTCC 
INCF MSTMR 
BTFSC FLAG,KEY HIT 
GOTO CHK DE BOUNCE 
UP_TMR 1 
MOVE FLAG, W 
ANDLW  B‘’00000011' 
XORLW  B’00000001' 
BTFSS  STATUS,Z 
GOTO UP_TMR 2 
BSF FLAG, ALRMLED 
BSF FLAG, COLON 
MOVLW D‘100! 
SUBWF § MSTMR, 0 
BTFSS STATUS,C 
BCF FLAG, ALRMLED 
GOTO UP_TMR 3 
UP_TMR 2 
BSF FLAG, COLON 
MOVLW D/‘100! 
SUBWF  MSTMR, 0 
BTFSS STATUS,C 
BCF FLAG, COLON 
UP_TMR 3 
MOVE MSTMR, 0 
XORLW D/’199! 
BTFSS STATUS,2Z 
RETLW 0 
; INC SECONDS COUNT 
CLRF MSTMR 
MOVE MIN _SEC,W 
ANDLW  B’00001111! 
BTFSS STATUS,Z 
DECF MIN SEC 
MOVLW  STMR 
MOVWF FSR 
CALL INC 60 
IORLW 0 
RTESS: “STATUS 2 
GOTO CHK_AL TIM 
;INC MINUTES COUNT 
SWAPF MIN SEC 
MOVE MIN SEC,W 
ANDLW B’00001111' 
BTFSS  STATUS,2 
DECF MIN SEC 
SWAPF MIN SEC 
CALL CHK SILNC_TIM 
MOVLW MTMR 
MOVWF FSR 
CALL INC 60 
IORLW 0 
BTFSS STATUS,2 
GOTO CHK AL TIM 
; INC HOUR COUNT 
MOVLW  HTMR 
MOVWF FSR 
CALL INC_HR 


7SEE IF RTCC = 0 
;IF OQ THEN SKIP 


s;ELSE LOOP 
sRTCC = 5 mSEC 
: / 


;INC 5 MILLI SEC 
7;NO KEY HIT THEN SKIP 
;ELSE DEBOUNCE 


ALARM MODE? 
/ 
/ 
SKIP IF YES 
DO NEXT 
LIGHT LED 
/ 
IF 1/2 SEC 
BLINK 
/ 
ALARM LED 
SKIP 


-e ~-e “es 78 Ss “se “8 “ee “8 “HF Me “EF 


;TURN ON 

7<100 BLINK COLON 
; Ve 

7;YES THEN SKIP 
;ELSE TURN OFF 


*GET MSTMR IN W 
*= 199 THEN SKIP 
; / 


;CLEAR MS _TMR 
;GET MIN SEC TIMER 
>MASK MINUTES 

7;ZERO THEN SKIP 
;REDUCE SECONDS 
;LOAD FSR WITH S_TMR 
; / 

; INC SECONDS 

7;DO AN OPERATION 

;IF RETURN = 0 SKIP 
;CHK ALRM 


;SWAP MIN SEC 
;GET MIN SEC IN W 
;MASK SECONDS 
>SKIP IF NOT SET 
;ELSE DEC 

;SWAP BACK 
>SILNCE ON? 

s; INC MINUTES 

; / 

; / 

;DO AN OPERATION 
IF O THEN SKIP 
;CHECK ALRAM TIME 


7;GET HTMR IN FSR 


; INC HOURS 
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0238 
0239 
023A 
023B 
023C 
023D 


023E 
023F 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 


0248 


0249 
024A 
024B 
024C 


024D 
024E 
024F 
0250 
0251 
0252 
0253 
0254 


0255 
0256 
0257 
0258 
0259 
O25A 
025B 
025C 
025D 
O25E 
O25F 
0260 
0261 
0262 
0263 
0264 
0265 


0266 
0267 
0268 
0269 
026A 
02 6B 
026C 
026D 
02 6E 
02 6F 


0718 
0800 
0658 
0800 
0638 
OA4D 


020D 
018B 
0743 
0800 
020C 
018A 
0743 
0800 
0209 
0743 
0800 
0538 
0c10 
0036 
0800 


0396 
OEOF 
0743 
0800 
0438 
0478 
0505 
0800 


02A0 
0200 
OEOF 
OF OA 
0743 
0801 
OCEO 
0160 
03A0 
O2A0 
0200 
03A0 
OF 06 
0743 
0801 
0060 
0800 


0758 
0800 
0396 
OEOF 
0743 
0800 
0458 
0C10 
0036 
0800 


CHK_AL_TIM 
BTFSS 
RETLW 
BTFSC 
RETLW 
BTFSC 
GOTO | 

; RETLW 
MOVE 
XORWE 
BTFSS 
RETLW 
MOVE 
XORWF 
BTFSS 
RETLW 
MOVE 
BTFSS 
RETLW 
BSF 
MOVLW 
MOVWE 
RETLW 


® 
‘ 


CHK_1_ MIN 


INC_60 

INCE 
MOVE 
ANDLW 
XORLW 
BTFSS 
RETLW 
MOVLW 
ANDWE 
SWAPF 
INCF 
MOVF 
SWAPF 
XORLW 
BTFSS 
RETLW 
CLRF 
RETLW 


CHK_SILNC_TIM 

BTFSS 
RETLW 
SWAPF 
ANDLW 
BTFSS 
RETLW 
BCF 

MOVLW 


MOVWE > 


RETLW 


ALF LAG, ALONOF 


0 

ALFLAG, SILNC 
0 

ALFLAG, INAL 
CHK_1 MIN 

0 

HALARM, W 
HTMR, W 
STATUS,Z 

0 

MALARM, W 
MTMR, W 
STATUS, Z 

0 

STMR, W 
STATUS, Z 

0 

ALFLAG, INAL 
10 

MIN SEC 

0 


MIN SEC, W 
B’00001111' 
STATUS, Z 

0 

ALFLAG, INAL 
ALFLAG, INAA 
PORT _A,BEP 
0 


FO 

FO,0 
B’00001111' 
B‘00001010! 
STATUS,Z 

i 
B’11110000! 
FO 

FO 

FO 

F0,0 

FO 

D’6! 
STATUS,Z 


4 
he 


FO 
0 


ALFLAG, SILNC 
0 
MIN SEC,W 


MBTOOO0LIIL" 


STATUS, 2 

0 

ALFLAG, SILNC 
10 

MIN SEC 

0 


,IF OFF QUIT 
: / 
sRET IF IN SILENCE 


r;ALREADY DONE 
7;SEE IF 1 MIN UP 
;YES THEN QUIT 
7;CHK HRS 

7; EQUAL? 

7YES THEN SKIP 
7;ELSE: RET 

>CHK MIN 

7; EQUAL? 

7;YES THEN SKIP 
;ELSE RET 

;SEE IF SEC=0 
7;YES THEN SKIP 
;NO THEN RET 
;SET IN ALARM FLAG 
7;SET 1 MIN TIMER 
; / 


;SWAP IN W 
7CHK MINUTES 
70 THEN SKIP 
;ELSE RET 
7;CLR IN ALARM 
7CLR IN AA 
;STOP BEEPER 


;INC AND GET IN W 
/ 

MASK HI BITS 

= 10 THEN MAKE IT 0 
/ 

ELSE RETURN NON ZERO 

ZERO LSB 

/ 
WAP INDIRECT 


SWAP FO BACK 
6 THEN SKIP 
/ 
ELSE RETURN NZ 
, 


S 
I 
GET IN W 
S 


7RET 0 

;CHK IF IN SILENCE 
7NO THEN SKIP 

;GET MIN IN W 
*MASK SECS 

7 ZERO? 

7;NO THEN RET 
,RESET SILENCE 


*SET I MIN TIMER 
; / 
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0270 06B7 BTFSC ENTFLG,INKEYBEP ;IN KEY BEEP? 
0271 OA76 GOTO CHK DEB 1 ;YES THEN DEC TIMER 
0272 07B0 BTFSS FLAG,KEY BEEP ;KEY BEEP SET? 
0273 OATE GOTO CHK SERV ;NO, SEE IF SERVICED 
0274 0678 BTFSC  ALFLAG, INAA ;IN AA? 
0275 OA86 GOTO CHK BEP_ON ;YES THEN SEE IF ON 
CHK DEB 1 
0276 05B7 BSF ENTFLG, INKEYBEP ;SET FLAG 
0277 0215 MOVE DEBOUNCE, W ;GET IN W 
0278 0643 BIFSC STATUS,Z ;NZ THEN SKIP 
0279 0c14 MOVLW D‘20! ;ELSE DB 100 mSEC 
027A 0035 MOVWE = DEBOUNCE ; / 
027B 0405 BCF PORT _A,BEP ;TURN ON BEEPER 
027C 02F5 DECFSZ DEBOUNCE ;DEC AND CHK 
027D OA08 GOTO UP_TMR 1 ;GO BACK 
O27E 0505 BSF PORT_A,BEP ;TURN OFF BEEPER 
CHK SERV 
; CLRF DEBOUNCE 
; BSF PORT _A,BEP 
O27F O7FO BTFSS FLAG,SERVICED ;SERVICED THEN SKIP 
0280 OA08 GOTO UP_TMR_ 1 ;GO BACK 
0281 04F0 BCF FLAG,SERVICED  ;ELSE CLEAR FLAGS 
0282 04D0 BCF FLAG, KEY HIT ; / 
0283 04B0 BCF FLAG,KEY BEEP ;RESET FLAG 
0284 04B7 BCF ENTFLG, INKEYBEP ; f 
0285 OA08 GOTO UP_TMR 1 ;GO BACK 
CHK BEP ON 
0286 0705 BTFSS PORT _A,BEP ;IF OFF THEN SKIP 
0287 OA08 GOTC UP_TMR 1 ;ELSE WAIT 
0288 0A76 GOTO CHK DEB 1 ; RETURN 
INC_HR 
0289 02A0 INCE FO ;INC HOUR TIMER 
028A 0200 MOVE FO,W ;GET HR TMR IN W 
028B 0031 MOVWE = TEMP ;SAVE IN TEMP 
028C OEOF ANDLW  B’00001111' ;CHK LO BYTE = 10 
028D OFOA XORLW D/‘10! : / 
028 0743 BTFSS STATUS,Z ;YES THEN SKIP 
028F 0A93 GOTO INC_AM PM ;ELSE CHK 12 
0290 0c10 MOVLW B’00010000' ;LOAD 1 IN MSB 
0291 0020 MOVWE FO 
0292 OAA3 GOTO RESTORE AM PM  ;RESTORE AM/PM 
INC_AM PM 
0293 0450 BCF FO,AM_PM ;CLEAR AM/PM 
0294 0200 MOVE FO,W ;GET IN W 
0295 0OF12 XORLW 12H ;SEE IF 12 HEX 
0296 0743 BTFSS STATUS,Z ;YES THEN SKIP 
0297 OA9D GOTO CHK 13 ;ELSE CHK 13 
0298 O7F1 BTFSS TEMP,AM PM ;IF SET, SKIP 
0299 OA9C GOTO SET AM PM ;ELSE SET 
029A 0450 BCF FO,AM_PM ;CLEAR FLAG 
029B 0800 RETLW 0 ;RETURN 
SET _AM PM 
029C O5E0 BSF FO,AM_PM ;SET FLAG 
CHK 13 
029D 0200 MOVE FO,W ;GET IN W 
029E 0F13 XORLW 13H ;SEE IF 13 
029F 0743 BTFSS  STATUS,Z ;YES THEN SKIP 
02A0 OAA3 GOTO RESTORE AM PM 
SET 1_HR 
02A1 0COl1 MOVLW  B‘00000001' PORT TO: 1 
02A2 0020 MOVWE = FO 
RESTORE _AM_PM 
02A3 06F1 BTFSC TEMP,AM PM ;SKIP IF AM 
02A4 05E0 BSF FO,AM_PM ;ELSE SET TO PM 
02A5 0800 RETLW 0 


Fa a a a a 
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000A 
000B 
000C 
000D 
QOO0E 
OOO0F 


0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
040A 
040B 
040C 


040D 
040E 
040F 


0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
O41A 
041B 


041C 


041D 
0415 
O41F 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 


07D0 
0800 
06FO 
0800 
OSFO 
0210 
0E03 
0643 
0A10 
0031 
O2F1 
OAOD 
0OA1D 


O2F1 
0800 
QA2A 


O9BA 
0DO00 
0643 
0800 
OCOF 
0193 
0643 
OA91 
OCOA 
0193 
0643 
OAAB 


0800 


O9BA 
ODO00 
0643 
0800 
OCOF 
0193 
0643 
OA9C 
OCOA 
0193 
0643 
QAA2 
OA1C 


~e “se Ve 


ORG 400 


KEY DEFINITIONS 


ALARM_KEY EQU 
CE_KEY EQU 
SNOOZE KEY EQU 
AM PM KEY EQU 
CLR ALARM KEY  EQU 
SET KEY EQU 


SERVICE KEYS 
BTESS FLAG, KEY HIT 


RETLW 0 

BTFSC FLAG, SERVICED 
RETLW 0 

BSF FLAG, SERVICED 
MOVF FLAG, W 


ANDLW B’‘00000011'! 
BTFSC STATUS, Z 
GOTO RTMKS 
MOVWE TEMP 
DECFSZ TEMP 

GOTO SK1l 

GOTO ATMKS 


SK1 
DECFSZ TEMP 
RETLW 0 
GOTO DEMKS 


e 
¢ 


;REAL TIME MODE KEY SERVICE 
RTMKS 
> “RADE CHK_AL_KEYS 


IORLW 0 
BTFSC STATUS,2 
RETLW 0 


MOVLW SET KEY 
XORWF NEW KEY,W 
BTFSC STATUS,2Z 
GOTO SERV_SET_ RTM 
MOVLW ALARM KEY 
XORWF NEW KEY,W 
BTFSC  STATUS,Z 


GOTO SERV_ALARM_ RTM 
IGNORE KEY 
RE TLW 0 


. 
’ 


; ALARM TIME MODE KEY SERVICE 
ATMKS 


CALL CHK_AL_KEYS 
TORLW 0 

BTFSC  STATUS,2Z 
RETLW 0 


MOVLW  SET_KEY 

XORWF NEW KEY,W 
BTFSC STATUS,Z 

GOTO SERV_SET ATM 
MOVLW ALARM KEY 
XORWF NEW KEY,W 
BTFSC  STATUS,2Z 

GOTO SERV_ALARM ATM 
GOTO IGNORE KEY 


OA 
OB 
OC 
OD 
OF 
OF 


;NO KEY HIT THEN ... 
; RETURN 

;IF NOT SERVICED SKIP 
;ELSE RETURN 

7SET SERVICED FLAG 
;GET MODE OF OPERATION 
; / 

700 THEN RTM 

;RTM KEY SERVICE 
*SAVE IN TEMP 

;REDUCE TEMP 

;SKIP 

701, DO ALARM MODE 


;REDUCE TEMP 
711 THEN RETURN 
710, DATA ENTRY MODE 


7;CHK ALARM KEYS 
7SEE IF NZ RET 
s;NZ THEN SKIP 
s;ELSE RETURN 
;SEE IF SET KEY 
; / 

;NO THEN SKIP 
;SERVICE SET KEY 
;ALARM KEY? 

; / 

7;NO THEN SKIP 
7;ELSE SERVICE ALARM 


7ELSE RETURN 


s;CHECK ALRM KEYS 
;CHECK IF 0 

;NZ THEN SKIP 
;ELSE RETURN 
;SEE IF SET KEY 
; / 

;NO THEN SKIP 


;GET ALARM KEY 
;SEE IF HIT 
;NO THEN SKIP 
?ELSE SERVICE 


Ce eee eer rrEnernnnnrieneciabnanaaienmmme rementemenmunammmnananaetnneneantpaneneananmenegeanetemaedinaeaadennennate naeneaadianeentaemamemeentemaiaienaninaaaieennaninnenninmementae taneananaaineetemnanmmmmnemmtnenetenendmamtnnmennpmnemmemenseannememeaammenetemarcmes oncnammamonmemen aie necieneiee cameemammmn treme enmetmaneemmnnanen canara entmmmmem emencecetiererarron ieeemener racer ct recmmecaaseoneeeaemmneemeecaraeae 
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042A 
042B 
042C 
042D 
042E 
042F 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
043A 
043B 
043C 
043D 
043E 


043F 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 


0448 
0449 
044A 


044B 
044C 


044D 
044E 
044F 
0450 
0451 
0452 
0453 


0454 
0455 
0456 
0457 
0458 
0459 
045A 
045B 


045C 
045D 
045E 


09BA 
0D00 
0643 
0800 
OCOF 
0193 
0643 
OA3F 
OCOB 
0193 
0643 
0A48 
0737 
0A54 
0757 
OASF 
0777 
OA72 
0797 
OATE 
0A87 


0717 
OA4D 
O20E 
002C 
O20F 
002D 
0450 
0618 
0550 


0410 
0430 
0490 


O5B0 
0800 


O20E 
002A 
O20F 
002B 
0068 
0069 
0A48 


0213 
0643 
OASC 
02D3 
OA1C 
O58F 
0537 
OA4B 


048F 
0537 
OA4B 


c 


7;DATA ENTRY MODE KEY SERVICE 


DEMKS 
CALL 
IORLW 
BTFSC 
RETLW 
MOVLW 
XORWE 
BTFSC 
GOTO 
MOVLW 
XORWE 
BTFSC 
GOTO 
BTFSS 
GOTO 
BTFSS 
GOTO 
BTFSS 
GOTO 
BTFSS 
GOTO 
GOTO 
DEMKS END 
BTFSS 
GOTO 
MOVE 
MOVWE 
MOVE 
MOVWE 
BCF 
BTFSC 
BSF 
DEMKS END_1 
BCF 
BCF 
BCF 
SERV_COM RET 
BSF 
RETLW 


’ 


LD RTM 
MOVF 
MOVWE 
MOVF 
MOVWE 
CLRF 
CLRE 
GOTO 


2 
, 


ENT_HR_10 
MOVE 
BTFSC 
GOTO 


DECE SZ 


GOTO 
BSF 
BSF 
GOTO 

LD_HENTRY_0 
BCF 
BSF 
GOTO 


CHK AL KEYS 
0 

STATUS, Z 

0 

SET KEY 
NEW KEY,W 
STATUS, Z 
DEMKS END 
CE_KEY 

NEW KEY,W 
STATUS, 2 
DEMKS END 1 
ENTFLG,HR10 
ENT _HR_10 
ENTFLG,HR 
ENT HRS 
ENTFLG,MIN10 
ENT MIN 10 
ENTFLG,MIN 
ENT MIN 
ENT AM PM 


ENTFLG,RTATS 
LD RTM 
MENTRY, W 
MALARM 
HENTRY,W 
HALARM 

FLAG, ALRMLED 
ALF LAG, ALONOF 
FLAG, ALRMLED 


FLAG, 0 
BLAG, 1 
FLAG, FLASH 


ELAG,KEY BEEP 
0 


MENTRY, W 
MTMR 
HENTRY, W 
HTMR 

MSTMR 

STMR 

DEMKS END 1 


NEW KEY, W 
STATUS, Z 
LD_HENTRY_0 
NEW KEY, 0 
IGNORE KEY 
HENTRY, 4 
ENTFLG, HR10 
SERV_COM_RET 


HENTRY, 4 
ENTFLG, HR1O 
SERV_COM_RET 


;CHECK ALARM KEYS 
;CHK IF 0 

7NZ THEN SKIP 
;ELSE RETURN 

;IF SET KEY THEN END 
; / 

7;NO THEN SKIP 
7;GOTO END 

;IF CLEAR ENTRY 
; / 

7;SKIP IF NO 

; ABANDON ENTRY 
710°S HRS DONE? 
;NO THEN GET 
7HRS DONE? 

>NO THEN GET 
710°S MIN. DONE? 
;NO THEN GET 
7MIN DONE? 

;NO THEN GET 

s;NO THEN GET 


7;GET OLD STATUS 
s;LOAD IN TIME 
>LD IN ALARM 

; / 

; / 

; / 

;CLEAR FLAG 
*SEE IF ON-OFF 
,ELSE SET 


*RTM MODE 
f / 
>STOP FLASH 


7RETURN 


;LD IN RTM 
; / 

; / 

; / 

;CLR TIME 
of 

7GO BACK 


;SEE IF Q 

*;NZ THEN SKIP 
7;LOAD 0 

rl. THE SKIP 
;ELSE IGNORE KEY 
*SET TO 1 

;SET FLAG 

7;GO GET NEXT 


Pee? “FO: 0 
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ENT _HRS 
045F OCOF MOVLW 
0460 0024 MOVWE 
0461 068F BTFSC 
0462 OA6D GOTO 
0463 OCOA MOVLW 
0464 0093 SUBWF 
0465 0603 BTFSC 
0466 OAIC GOTO 
ENT_LO COM1 
0467 0557 BSF 
ENT_LO COM 
0468 0200 MOVE 
0469 OEFO ANDLW 
046A 0113 IORWF 
046B 0020 MOVWE 
046C OA4B GOTO 
ALLOWO 2 
046D 0C03 MOVLW 
046E 0093 SUBWE 
046F 0603 BTFSC 
0470 OA1C GOTO 
0471 0A67 GOTO 
ENT MIN 10 
0472 0COE MOVLW 
0473 0024 MOVWE 
0474 0C06 MOVLW 
0475 0093 SUBWF 
0476 0603 BTFSC 
0477 OA1C GOTO 
0478 0380 SWAPF 
0479 OEFO ANDLW 
047A 0113 TORWF 
047B 0020 MOVWE 
047C 03A0 SWAPF 
047D 0577 BSF 
047E OA4B GOTO 
ENT MIN 
047F OCOE MOVLW 
0480 0024 MOVWE 
0481 OCOA MOVLW 
0482 0093 SUBWE 
0483 0603 BTFSC 
0484 OAC GOTO 
0485 0597 BSF 
0486 0A68 GOTO 
ENT AM PM 
0487 OCOD MOVLW 
0488 0193 XORWF 
0489 0743 BTFSS 
048A OAIC GOTO 
048B O7EF BTFSS 
048C OA8F GOTO 
048D 04EF BCF 
048E OA4B GOTO 
SETAMPM 
048F OSEF BSF 
0490 OA4B GOTO 
SERV_SET_ RTM 
0491 020A MOVE 
0492 002E MOVWE 
0493 020B MOVE 
0494 002F MOVWE 


HENTRY 
FSR 
HENTRY, 4 
ALLOWO 2 
p’10' 
NEW_KEY, W 
STATUS, C 
IGNORE KEY 


ENTE LG, HR 


FO,W 
B’11110000! 
NEW_KEY,W 

FO 

SERV_COM RET 


D°3! 

NEW KEY, W 
STATUS, C 
IGNORE_KEY 
ENT LO COM1 


MENTRY 
FSR 

D’6! 
NEW_KEY, W 
STATUS, C 
IGNORE_KEY 
FO,W 
B’11110000! 
NEW KEY, W 

FO 

FO 
ENTFLG,MIN10 
SERV_COM_RET 


MENTRY 
FSR 

p10! 
NEW_KEY,W 
STATUS, C 
IGNORE _KEY 
ENTFLG, MIN 
ENT LO COM 


AM PM KEY 
NEW_KEY,W 
STATUS, Z 
IGNORE _KEY 
HENTRY,AM PM 
SETAMPM 
HENTRY, AM_PM 
SERV_COM RET 


HENTRY,AM PM 
SERV_COM_RET 


MTMR, W 
MENTRY 
HTMR, W 
HENTRY 


Multiplexing LEDs/Keypad _ | 


;USE INDIRECT ADDR. 
; / 

;SEE IF 0 

;YES THEN 0,182 


7SEE IF 0 - 9 


/ 
7IF C THEN SKIP 
sELSE IGNORE 


7;SET FLAG 


7LD HRS 

;MASK LO NIBL 
7OR NEW KEY 
;SAVE BACK 
;GET NEXT 


*SEE IF 0 - 2 
jf 
*<3 THEN SKIP 


™s 
~ 


DO INDIRECT ADDR. 
/ 
ALLOW 0 - 5 
i 
;IF C THEN SKIP 
7;ELSE IGNORE 
;SWAP AND GET 
*;MASK LO NIBL 
7OR NEW KEY 
*;SAVE BACK 
; SWAP BACK 


ee 7s “8s “se “8 


?GET NEXT 


7;DO INDIRECT 
; / 
7;ALLOW 0 - 9 
*SEE IF > 

;NO THEN SKIP 
;ELSE IGNORE 
;SET FLAG 

; / 


sAM/PM KEY? 
; / 
7YES THEN SKIP 


PIES. BF 
7;ELSE SET 
*;CLEAR FLAG 
;GOTO END 


;SET FLAG 


*TRANSFER TIME 
;TO DATA ENTRY 
; ij 
; / 


marr eT SA SPR EPPO SEER RPP RPE TPIT SY PRP PESTS RSE ASEM OTP PO SP EE NE STEEP AA ST tS Pa PIP APR NE FARES 
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0495 
0496 
0497 
0498 
0499 
049A 
04 9B 


049C 
04 9D 
049E 
04 9F 
04A0 
04Al 


04A2 
04A3 
04A4 
04A5 


04A6 


O4A7 
04A8 
04A9 
O4AA 


04AB 
O4AC 
O4AD 
O4AE 
O4AF 
04B0 


04B1l 
04B2 
04B3 


04B4 
04B5 
04B6 
04B7 
04B8 
04B9 


04BA 
04BB 
04BC 
04BD 
04BE 
04BFE 
04C0 
04cl 
04C2 
043 
04¢c4 
04C5 
04C6 


0210 
OE01 
0037 
OCF2 
0130 
0410 
0800 


020C 
002E 
020D 
002F 
0518 
0A95 


0718 
OAA6 
0418 
OAA7 


0518 


05B0 
OCFO 
0176 
0800 


05B0 
0510 
0430 
0C05 
0036 
0800 


OCAO 
0036 
0558 


05B0 
OO7A 
0079 
0478 
0505 
0800 


0718 
0801 
0738 
0801 
OCOE 
0193 
0643 
OAC? 
0Cc0C 
0193 
0743 
0801 
OABL 


SERV_COM 

MOVE 
ANDLW 
MOVWE 
MOVLW 
IORWF 
BCF 
RETLW 


e 
‘ 


SERV_SET_ATM 
MOVE 
MOVWE 
MOVE 
MOVWE 
BSF 
GOTO 


SERV_ALARM ATM 
BTFSS 
GOTO 
BCF 
GOTO 
SET ALONOF 
BSF 
SERV_ATM_COM 
BSF 
MOVLW 
ANDWE 
RETLW 
SERV_ALARM RTM 
BSF 
BSF 
BCF 
MOVLW 
MOVWE 
RETLW 
SERV_ SNOOZE 
MOVLW 
MOVWE 
BSF 
CLR_AL_COM 
BSF 
CLRF 
CLRF 
BCF 
BSF 
RETLW 


’ 


CHK_AL KEYS 
BTFSS 
RETLW 
BTFSS 
RETLW 
MOVLW 
XORWE 
BTFSC 
GOTO 
MOVLW 
XORWF 
BTFSS 
RETLW 
GOTO 


FLAG, W 
B’00000001' 
ENTE LG 
B’11110010! 
FLAG 

FLAG, 0 

0 


MALARM, W 
MENTRY 
HALARM, W 
HENTRY 

ALF LAG, ALONOF 
SERV_COM 


ALF LAG, ALONOF 
SET _ALONOF 

ALF LAG, ALONOF 
SERV_ATM COM 


ALF LAG, ALONOF 


FLAG, KEY BEEP 
B‘11110000' 
MIN SEC 

0 


FLAG, KEY BEEP 
FLAG, 0 

FLAG, 1 

Dos 

MIN SEC 

0 


OAO 
MIN SEC 
ALF LAG, SILNC 


FLAG, KEY BEEP 
AATMR 

AAF LAG 
ALFLAG, INAA 
PORT_A,BEP 

0 


ALF LAG, ALONOF 
i 

ALFLAG, INAL 

1 
CLR_ALARM_ KEY 
NEW KEY,W 
STATUS, Z 
CLR_ALARM 
SNOOZE KEY 
NEW KEY, W 
STATUS, 2 

1 

SERV_ SNOOZE 


7;SAVE IN W 

7;ATM OR RTM MODE? 
7;SAVE IN ENTFLG 
;FORCE 1S 

; i 
; / 


7; TRANSFER ALARM 
7TO DATA ENTRY 
; i 

: / 

7;SET FLAG 
7;GOTO COMMON 
7;TEST ON/OFF 
>SET ON/OF FLG 
;CLEAR FLAG 
7;RET THRO COM 


7SET FLAG 


> BEEP 

;CLEAR SEC COUNT 
: / 

; RETURN 


;SET BEEP FLAG 
7;SET TO ALARM TIME 
/ 

7;SAVE 5 IN MIN SEC 
; Y. 


SNOOZE FOR 10 MINS 
; F 
;SET FLAG 


;SET BEEP FLAG 
*;RESET AA TIMER 
7CLEAR AA FLAGS 
7;RESET INAA FLAG 
;TURN OFF BEEPER 
;RET 


7 ALARM ON? 

7;NO THEN RET 

7; IN ALARM? 

7;NO THEN SKIP 
:CHECK IF CLR ALARM 
; a 

;NO THEN SKIP 
7;ELSE CLEAR ALARM 
;SEE IF SNOOZE HIT 
; / 

7;YES THEN SKIP 
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04C7 
04C8 
04C9 
O4CA 
04CB 


0600 
0601 
0602 
0603 
0604 
0605 


0606 


0607 
0608 
0609 
O60A 
060B 
060C 
060D 
O60E 
Q60F 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 


0619 
061A 
061B 


061C 
061D 
O61E 
O61F 
0620 


0621 
0622 
0623 
0624 


0625 
0626 
0627 
0628 


0438 
0458 
OCOF 
0176 
OAB4 


0738 
0800 
0658 
0800 
06B7 
0AS5 


0778 


0919 
0719 
0A21 
0739 
0A29 
0759 
0A31 
0779 
0A39 
0799 
OA3E 
07B9 
0A43 
07D9 
0A48 
O7E9 
0A50 
0A07 


0079 
0578 
OA2D 


OOFA 
021A 
0743 
0801 
0800 


091C 
0743 
0800 
0519 


0505 
0014 
003A 
0800 


CLR_ALARM 


ALFLAG, INAL 
ALF LAG, SILNC 
B‘00001111' 
MIN SEC 
CLR_AL_COM 


600 


;CLEAR ALARM 
sCLEAR SILENCE 
;CLEAR MINS 

: / 


;If the AA alarm is set, then this routine takes care of 
rthe timing in sounding the alarm. 


SOUND_AA 
BTFSS 
RETLW 
BTFSC 
RETLW 
BTFSC 
GOTO 

SND_AA_0 
BTFSS 

SND_AA_1 
CALL 
BTFSS 
GOTO 
BTFSS 
GOTO 
BTFSS 
GOTO 
BTFSS 
GOTO 
BTFSS 
GOTO 
BTFSS 
GOTO 
BTFSS 
GOTO 
BTFSS 
GOTO 
GOTO 


e 
‘ 


INIT AA 
CLRE 
BSF 
GOTO 

DEC_AA_TMR 
DECF 
MOVE 
BTFSS 
RETLW 
RETLW 


’ 


DO_CYCLO 
CALL 
BTFSS 
RETLW 
BSF 

PUT _OFF_100 
BSF 
MOVLW 
MOVWE 
RETLW 


ALFLAG, INAL 
0 
ALFLAG, SILNC 
0 


;SKIP IF IN ALRM 
7ELSE RETURN 

7SKIP IF NOT IN SIL 
7;ELSE RET 


ENTFLG, INKEYBEP ;SKIP IF NOT IN KEY BEP 


CHK_COLSN 
ALFLAG, INAA 


INIT AA 
AAFLAG, 0 
DO_CYCLO 
AAFLAG, 1 
DO. cYCL1 
AAFLAG, 2 
DO_CYCL2 
AAFLAG, 3 
DO_CYCL3 
AAFLAG, 4 
DO_CYCL4 
AAFLAG, 5 
DO_CYCLS5 
AAFLAG, 6 
DO_CYCL6 
AAFLAG, 7 
DO_CYCL7. 
SND AA_1 


AAFLAG 
ALF LAG, INAA 
PUT_ON_ 100 


AATMR 
AATMR, W 
STATUS, Z 
1 

0 


DEC_AA_TMR 
STATUS, Z 

0 

AAFLAG, 0 


PORT_A, BEP 
D’20' 
AATMR © 

0 


;CHK COLLISION 
;SKIP IF IN AA 


;INIT ALL 

;SKIP IF DONE 
;DO FIRST CYCL 
;SKIP IF DONE 
7ELSE 2ND CYCLE 
7SKIP IF DONE 
7ELSE DO 3RD CYCLE 
;SKIP IF DONE 
7DO CYCLE 4 
7;SKIP IF DONE 
7;DO CYCLE 5 
;SKIP IE DONE 
7DO CYCLE 6 
;SKIP IF DONE 
7DO CYCLE 6 
?SKIP IF DONE 
7DO- CYCLE. 7 

7;GO BACK 


;CLEAR ALL FLAGS 
7;SET IN AA FLAG 
7ON 100 MSECS 


;REDUCE TIMER 
;GET IN W 
*;CHECK IF 2 
7;NO THEN NZ 
;ELSE 0 


;REDUCE TIMER 
7IF NZ THEN RET 
;SET DONE FLAG 
7TURN OFF BEEPER 


7FOR 100 MSECS 
A / 
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0629 
062A 
062B 
062C 


062D 
062E 
062F 
0630 


0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 


0639 
063A 
063B 
063C 
063D 


063E 
063F 
0640 
0641 
0642 


0643 
0644 
0645 
0646 
0647 


0648 
0649 
064A 
064B 
064C 
064D 
064E 
064F 


0650 
0651 
0652 
0653 
0654 


091C 
0743 
0800 
0539 


0405 
0C14 
003A 
0800 


091C 
0743 
0800 
0559 
0505 
0C64 
003A 
0800 


091C 
0743 
0800 
0579 
OA2D 


091C 
0743 
0800 
0599 
OA25 


091C 
0743 
0800 
05B9 
OA2D 


091C 
0743 
0800 
05D9 
0505 
0cC8 
003A 
0800 


091C 
0743 
0800 
OSF9 
OA2D 


DO_CYCL1 
CALL 
BTFSS 
RETLW 
BSF 

PUT_ON 100 
BCF 
MOVLW 
MOVWE 
RETLW 

DO _CYCL2 
CALL 
BTFSS 
RETLW 
BSF 
BSF 
MOVLW 
MOVWE 
RETLW 


° 
‘ 


DO_CYCL3 
CALL 
BTFSS 
RETLW 
BSF 
GOTO 

DO_CYCL4 
CALL 
BTFSS 
RETLW 
BSF 
GOTO 


e 
e 


DO_CYCL5 
CALL 
BTFSS 
RETLW 
BSF 
GOTO 


. 
, 


DO_CYCL6 
CALL 
BTFSS 
RETLW 
BSF 
BSF 
MOVLW 
MOVWE 
RETLW 

DO_CYCL7 
CALL 
BTFSS 
RETLW 
BSF 
GOTO 


DEC_AA_TMR 
STATUS, Z 

0 

AAFLAG, 1 


PORT _A,BEP 
p20! 
AATMR 

0 


DEC_AA_TMR 
STATUS, Z 

0 

AAFLAG, 2 
PORT _A, BEP 
D’100! 
AATMR 

0 


DEC_AA_TMR 
STATUS, Z 

0 

AAFLAG, 3 
PUT_ON 100 


DEC_AA_TMR 
STATUS, Z 

0 

AAFLAG, 4 
PUT_OFF_100 


DEC_AA_TMR 
STATUS, Z 

0 

AAFLAG, 5 
PUT_ON 100 


DEC_AA_TMR 
STATUS, Z 

0 

AAFLAG, 6 
PORT_A, BEP 
D200! 
AATMR 

0 


DEC_AA_TMR 
STATUS, Z 

0 

AAFLAG, 7 
PUT _ON_100 


7;REDUCE TIMER 
7; IF NZ THEN RET 


7;SET DONE FLAG 


:TURN ON BEEPER 
*FOR 100 MSECS 
: / 


;REDUCE TIMER 

7; IF NZ THEN RET 
; / 

7SET DONE FLAG 
;TURN OFF BEEPER 
7;FOR 500 MSECS 

; / 


;REDUCE TIMER 
;IF NZ THEN RET 
; Ys 

7;SET DONE FLAG 
;DO NEXT CYCLE 


;REDUCE TIMER 
;IF NZ THEN RET 
; / 

;SET DONE FLAG 
;DO NEXT CYCLE 


;REDUCE TIMER 
;IF NZ THEN RET 
; / 

;SET DONE FLAG 
7DO NEXT CYCLE 


;REDUCE TIMER 
;IF NZ THEN RET 
; / 

7;SET DONE FLAG 
7;TURN OFF BEEPER 
7;FOR 1000 MSECS 
; / 


;REDUCE TIMER 
:IF NZ THEN RET 
; / 

;SET DONE FLAG 
7DO NEXT CYCLE 


a 
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CHK_COLSN 
0655 0605 BTFSC PORT_A,BEP _ ;IF ON THEN SKIP 
0656 0A06 GOTO SND_AA_0 ;ELSE RET 
0657 021A MOVF — AATMR, W ;GET TIMER 
0658 0643 BTFSC STATUS,Z ;NZ THEN SKIP 
0659 OASC GOTO. LD AAT 1 ;LOAD A 1 IN TMR 
O65A 00FA DECF §AATMR ;REDUCE TIMER 
065B 0800 RETLW 0 ; RETURN 
LD_AAT 1 : 
065C 02BA INCF § AATMR ;INC TIMER 
065D 0800 RETLW 0 ;RET 
ORG PIC57 
SYS RESET 
O7FF 0A00 GOTO = START 
END 


Errors : 0 
Warnings : 
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Implementing a Simple Serial Mouse Controller 





INTRODUCTION 


The mouse is becoming increasingly popular as a stan- 
dard pointing data entry device. It is no doubt that the 
demand of the mouse is increasing. Various kinds of 
mice can be found in the market, including optical 
mouse, opto-mechanical mouse, and its close relative, 
trackball. The mouse interfaces to the host via an 
RS232 port or a dedicated interface card. Their mecha- 
nisms are very similar. The major electrical components 
of a mouse are: 


¢ Microcontroller 

¢ Photo-transistors 

¢ Infrared emitting diode 

¢ Voltage conversion circuit 


The intelligence of the mouse is provided by the 
microcontroller, hence the features and performance of 
a mouse is greatly related to the microcontroller used. 


This application note describes the implementation of a 
serial mouse using the PIC16C54. The PIC16C54 is a 
high speed 8-bit CMOS microcontroller offered by Mi- 
crochip Technology, Inc. It is an ideal candidate for a 
mouse controller. 


THEORY OF OPERATION 


A mouse can be divided into several functional blocks: 
¢ Microcontroller 
¢ Button detection 
« Motion detection 
¢ RS232 signal generation 
¢ 5V DC power supply unit 
A typical functional block diagram is shown in Figure 1. 


In Figure 2, three push buttons are connected to the 
input ports of the PIC16C54. When a switch opening or 
closure is detected, a message is formatted and sent to 
the host. The X and Y movements are measured by 
counting the pulses generated by the photo-couplers. In 
the case of an opto-mechanical mouse, the infrared light 
emitted by the infrared diode is blocked by the rotating 
wheel, so that the pulses are generated on the photo- 
transistor side. In case of an optical mouse, the infrared 
light emitted by the infrared diode is reflected off the 
reflective pad patterned with vertical and horizontal grid 
lines. It is then received by the photo-transistor in the 
mouse. When any X or Y movement is detected, a 
message is formatted and sent to the host. 


FIGURE 1 - FUNCTIONAL BLOCKS OF A SERIAL MOUSE 


POWER 
CONVERSION 
CIRCUITRY 





MICRO- 
CONTROLLER 


PUSH BUTTONS 
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The Microsoft® Mouse System and the Mouse Systems® 


device both use serial input techniques. The Mouse 
System protocol format contains five bytes of data. One 
byte describes the status of three push buttons, two 
bytes for the relative X movements and two bytes for the 
relative Y movements. The Microsoft protocol format 
contains three bytes of data describing the status of two 
push buttons and the relative X and Y movements. The 
details of these protocols are given in Table 1. 


Three lines are connected to the host via the RS232 port: 
¢ Signal Ground 
* Received Data 
¢ Request to Send 


FIGURE 2 - PIC16C54 PIN ASSIGNMENT 


OSC1 OSC2 
RBO RAO 


RA1 


RA2 
RA3 


FIGURE 3 - VOLTAGE CONVERSION CIRCUITRY 


“Received Data’ carries the message sent by the mouse. 
While “Request to Send” provides a—10V DC for voltage 
conversion circuitry. A voltage of +5V DC is required for 
electronic components inside the mouse, however, +5V 
DC is not part of an RS232 port, so voltage conversion 


_ Circuitry is required. This circuit is typically composed of 


a 555 timer, Zener diodes, and capacitors. An example 


-circuit is shown in Figure 3. Since the current supplied 


through the RS232 port is limited to 10 mA, the mouse 
cannot be designed to consume more than 10 mA 
current unless an external power supply is provided. 
The PIC16C54, running at 4 MHz (1 us instruction cycle) 
can provide a very high tracking speed. An 8 MHz 
version of PIC16C54 is also available if higher perfor- 
mance is desired. , 


YCLOCK SIGNALS FROM Y-COORD. 
PHOTO-TRANSISTOR 
YDATA 


XCLOCK SIGNALS FROM X-COORD. 
PHOTO-TRANSISTOR 


XDATA 


RECEIVED DATA PIN OF HOST RS232 PORT 





SIGNAL RESET Vcc ~ 
GND | OUTPUT 


DISCHARGE 


RS232 
PORT | 555 


THRESHOLD 


TRIGGER 


TL 
OV to +10V 


+5V DC 
OUTPUT 


F FR 0.015 pF 


DS00519B-page 2 





© 1993 Microchip Technology inc. 


Mouse Controller 





ABOUT THE SOFTWARE 


The major tasks performed by the software are button 
scanning, X and Y motion scanning, formatting and 
sending serial data to the host. These tasks need to be 
performed in parallel in order to gain better tracking 
speed. The pulses generated by the photo-couplers are 
counted while transmitting the serial signals to the 
RS232 port. The number of pulses reflects the speed of 
the movement. The more number of pulses, the faster 
the movement is. 


The directions of the movement are determined by the 
last states and the present states of the outputs of the 
photo-transistors. In Figure 4, XCLOCK and XDATA are 
outputs from the photo-transistors corresponding to the 


FIGURE 4 - VOLTAGE CONVERSION CIRCUITRY 


(XC) 


XDATA | | 


(XD) 


(YC) 


YDATA 
(YD) 


*—— MOVE RIGHT —>* 


YCLOCK | ee ee ee ee 


'<—— MOVE UP ——> 





X-axis movement. XDATA is read when a rising or a 
falling edge of XCLOCK is detected. For right move- 
ment, XDATA is either LOW at the rising edge of 
XCLOCK or HIGH at the falling edge of XCLOCK. The 
up and down movement detections follow the same 
logic. In Table 1, X7:X0 are data for relative movement. 
If X is positive, it implies that the mouse is moving to the 
right. If X is negative, it implies a movement to the left. 
Similarly, if Y is positive, it indicates that the mouse is 
moving down and if Y is negative, it indicates that the 
mouse is moving up. The pulses generated by the 
photo-couplers are checked before every bit is sent. A 
bit takes 1/1200 second to send, if the distance between 
the grid lines is 1 mm, the tracking speed will be up to 
1200 mm/second. 


“——— MOVE LEFT —>* 


<—— MOVE DOWN —> 


TABLE 1 - MOUSE SYSTEM AND MICROSOFT PROTOCOLS 


Mouse System Format* Microsoft Format* 


Bit 
Position 
Byte 1 
Byte 2 
Byte 3 
Byte 4 


Byte 5 


* L = Left Key Status 
M = Middle Key Status 
R = Right Key Status 


1 = Pressed 
0 = Released 


X7-X0 = X-Axis Movement Data 
Y7-Y0 = Y-Axis Movement Data 





rr TE 
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The buttons are scanned after a message is sent and the 
time used to send the message is used as the debouncing 
time. The message is in an RS232 format with 1200 
baud, eight data bits, no parity, and two stop bits. 


The flow charts of the main program, subroutine BYTE 
and subroutine BIT are shown in Figures 5, 6, and 7. 
Figure 5 shows the Trigger Flag is set when any change 
of button status or X/Y movement is detected. Subrou- 
tine BYTE is called in the main program five times to 
send five bytes of information. Subroutine BYTE con- 
trols the status of the “Received Data” (RD) pin. If 
Trigger Flag is clear, RD will always be HIGH. Hence, 
no message will be sent even when subroutine BYTE is 
called. Figure 7 shows that subroutine BIT counts the 
number of pulses from outputs of the photo-transistors, 
determines the directions, and generates 1/1200 sec- 
ond delay to get 1200 baud timing. 


The mouse has been tested in Mouse System Mode and 
is functioning properly. Acompleted listing of the source 
program is given in Appendix A. 


SUMMARY 


The PIC16C54 from Microchip Technology, Inc. pro- 
vides a very cost-effective, high performance mouse 
implementation. Its low power (typically < 2 mA at 1 us 
instruction cycle), small package (18-pin) and high reli- 
ability (on-chip watchdog timer to prevent software hang- 
ups) are among several reasons why the PIC16C54 is 
uniquely suitable for mouse applications. 


This application note provides the user with a simple, 
fully functional serial mouse implementation. The 
user may use this as a starting point for a more 


comprehensive design. For fully implemented and 
compliant mouse products see Microchip's ASSP 
device family (MTA41 XXX). 





FIGURE 5 - FLOW CHART OF THE MAIN 
PROGRAM 
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FIGURE 6 - FLOW CHART OF ROUTINE BYTE 





Trigger 
Flag 


Q 


oe ‘0° —> RDPin 
NG, | (Start Bit) 
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'0' —» RD Pin 


Call Routine Bit 
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2 
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ee 
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FIGURE 7 - FLOW CHART OF ROUTINE BIT 


Y Y 


X Count ~— X Count + 1 X Count “— X Count + 1 
Reset Right Flag Reset Right Flag 


Y ’ 


1 0 


Set Right Flag Set Right Flag 


Y a 4 


Y Count <4— Y Count + 1 Y Count <¢— Y Count +1 
Reset Up Flag Reset Up Flag 


1 


| Set Up Flag Set Trigger Flag 


Delay 0.833 ms 
Return to Caller 
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APPENDIX A: 


MPASM B0.54 
MOUSE 


0003 
0005 
0006 
0008 
000C 
000D 
OO00E 
OO0OF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0018 
0019 


0000 
0001 
0001 
0002 
0003 
0003 
0000 
0002 
0000 
0007 
0002 
0002 


TITLE “ MOUSE “ 

LIST  P=16C54,R=0 

Pee ee ee ee y eer Tee Terre eT ee rere rere 
.* * 
ear MOUSE CONTROLLER x 
7% * 
;* VERSION : 25 APRIL, 1990 * 
o* * 
7* MODE = PIC16C54XT  CLK=4.0MHZ * 
6 III II III IO III I I IO ae 
; FILES ASSIGNMENT 

STATUS EQU 3 ;STATUS REGISTER 

RA EQU 5 7;I/O PORT A 

RB EQU 6 ;I/O PORT B 

TIMER1 EQU 10 ;COUNTER FOR DELAY 
CSTAT EQU 14 7CO-ORDINATE STATUS 
BSTAT EQU 15 ;BUTTON STATUS 

DATAO EQU 16 H 

DATA] EQU 17 ; 

DATA2 EQU 20 75 BYTE RS232 DATA 
DATA3 EQU 21 ; 

DATA4 EQU 22 ; 

FLAGA EQU 23 7;GENERAL PURPOSE FLAG 
XCOUNT EQU 24 7;X-MOVEMENT COUNTER 
YCOUNT EQU 25 7Y-MOVEMENT COUNTER 
FLAGB EQU 26 7;GENERAL PURPOSE FLAG 
COUNT EQU 30 7;GENERAL PURPOSE COUNTER 
DATA_AREA BQU 31 7FOR TEMP. STORAGE 

; BIT ASSIGNMENT 

YC EQU 0 7Y-CLOCK PIN 

YD EQU 1 7;Y-DATA PIN 

UP EQU 1 ;MOVING UP FLAG 

XC EQU 2 7X-CLOCK PIN 

XD EQU 3 7;X-DATA PIN 
RI -EOU 3 7MOVING RIGHT FLAG 
BU1 EQU 0 ;BUTTON #1 PIN 

BU2 EQU 2 ;BUTTON #2 PIN 

CA EQU 0 7CARRY FLAG 

RD EQU 7 ;RECEIVED DATA PIN TO RS232 
ZERO_AREA EQU 2 7ZERO FLAG 

TR EQU-2 7; TIGGER FLAG 

; SUBROUTINES 


PRK KKK KKK KK KKK KKK KK KK KK KKK KK KK KK KEK 


ORG 0 


KKK KKK KK KKK KKK KKK KKK KK KKK KK KKK KKKKK KK KKK KE 


PAGE 
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002A 
002B 
002C 
002D 


002E 


002E 
0030 
0031 
0032 
0033 


0745 
OAOA 
064C 
0A11 
02B4 
0476 
0765 
0Al11 
0576 
0A11 


074C 
0OA11 
02B4 
0476 
0665 
OA11 
0576 


0705 
OA1B 
060C 
0A22 
02B5 
0436 
0725 
OA22 
0536 
OA22 


070C 
OA22 
Q2B5 
0436 
0625 
OA22 
0536 


0205 
002C 
0ccl 
0028 


0000 
02E8 
0A26 
0800 


0078 
0753 
OA2E 
04E6 


0900 


0753 
0A37 
0339 
0703 
0A36 


BIT 
BTFSS RA, XC 7>xC = 1 ? 
GOTO BITO 
BTFSC CSTAT,XC 2 (XC=1) 
GOTO BITY ; (XC ALWAYS = 1) 
INCF XCOUNT r(XC -1_) 
BCF FLAGB,RI ;REFAULT LEFT 
BTFSS RA, XD :LEFT / RIGHT ? 
GOTO BITY 
BSF FLAGB, RI 
GOTO BITY 
BITO 
BTFSS CSTAT, XC 7 (XC=0) 
GOTO BITY : (XC ALWAYS = 0) 
INCE XCOUNT 7(XC __{-) 
BCF FLAGB, RI ;DEFAULT LEFT 
BTFSC RA, XD ;LEFT / RIGHT ? 
GOTO BITY 
BSF FLAGB, RI 
BITY 
BTFSS RA,YC ‘YC = 4-9 
GOTO BITYO 
BTEFSC CSTAT, YC : (YC=1) 
GOTO BITDY > (YC ALWAYS = 1) 
INCF YCOUNT PAYS S279 
BCF FLAGB, UP ;DEFAULT DOWN 
BTFSS RA, YD ;DOWN / UP ? 
GOTO BITDY 
BSF FLAGB, UP 
GOTO BITDY 
BITYO 
BTESS CSTAT,YC 7 (YC=0) 
GOTO BITDY 7 (YC ALWAYS = 0) 
INCF Y COUNT s(yc t=) 
BCF FLAGB, UP >DEFAULT DOWN 
BTFSC RA, YD ;DOWN / UP ? 
GOTO BITDY 
BSF FLAGB, UP 
BITDY: 
MOVE RA,W :SAVE COOR. STATUS 
MOVWE CSTAT 
MOVLW 193D 70.833 MS DELAY 
MOVWE TIMER1 
BITDO 
NOP 
DECF SZ TIMER1 
GOTO BITDO 
RETLW 0 
Pee ee eT ee Te Cee eter ee Tere eT ee Tee eT 
:* SUBROUTINE TO SEND A BYTE * 
7* AS RS232C FORMAT 8,N,1 * 
Rai TT I I I I ee kK eK 
BYTE 
CLRE COUNT ;RESET 8 BIT COUNT 
BTFSS FLAGA,TR ;ANY TRIGGER 
GOTO BYTEO 
BCF RB, RD ;LOW RD FOR START BIT 
BYTEO 
CALL BIT 
BYTE1 
BTFSS FLAGA, TR © ;ANY TRIGGER ? 
GOTO BYTE3 
RRE DATA_AREA ;SHIFT DATA TO CARRY 
BTESS STATUS, CA 70 / 1? 
GOTO BYTE2 





AS aS LT a I TALS ER ST TS EN SENN ESTE LE AE Ne SO BE NE EL EE aE EN a a TY 
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0034 0556 BSE RB, RD ;SEND A 1 
0035 0A37 GOTO BYTE3 
BYTE2 
0036 04E6 BCF RB, RD ;SEND A 0 
BYTE3 
0037 0900 CALL BIT 
0038 02B8 INCF COUNT 
0039 0778 BTFSS COUNT,3 ;COUNT = 8 ? 
003A OA2F GOTO BYTE1 
003B 0753 BTFSS FLAGA,TR ;ANY TRIGGER ? 
003C 0A42 GOTO BYTE4 
003D 04E6 BCF RB, RD ;SEND SENT BIT 
003E 0900 CALL BIT 
003F 05E6 BSF RB, RD 
0040 0900 CALL BIT 
0041 0A44 GOTO BYTES 
BYTE4 
0042 0900 CALL BIT 
0043 0900 CALL BIT 
BYTES 
0044 0800 RETLW 0 


INIT 
0045 O0CCl MOVLW B’11000001' *;DISABLE WATCH DOG 
0046 0002 OPTION 
0047 OCOF MOVLW B’‘00001111' ; INIT RBO~3 BE INPUTS 
0048 0006 TRIS RB ;RB4~7 BE OUTPUTS 
0049 OCFF MOVLEW (Beitatilia 7INIT RAQ~3 BE INPUTS 
004A 0005 TRIS RA 
004B O5E6 BSF RB, RD 7HIGH RD PIN 
004C 0246 COME RB, W 7GET INIT BUTTON INPUTS 
004D OE05 ANDLW  B’00000101' 
004E OD80 IORLW = B’10000000' 
OO4F 002D MOVWF BSTAT 
0050 002E MOVWE DATAO 
0051 0205 MOVE RA, W 
0052 002C MOVWEF CSTAT 
0053 0073 CLRF FLAGA 7;CLEAR TR FLAG 
0054 0074 CLRE XCOUNT ;RESET XCOUNT & YCOUNT 
0055 0075 CLRF YCOUNT 
SCAN 
0056 O06F CLRE DATA1 ;UPDATE X,Y MOVEMENT DATA 
0057 0070 CLRFE DATA2 
0058 0071 CLRF DATA3 
0059 0072 CLRF DATA4 
OOSA 0214 MOVE XCOUNT, W ;XCOUNT = 0 ? 
005B 0743 BTFSS STATUS, ZERO AREA 
005C O0A80 GOTO WRITX 
SCANA 
0O05D 0215 MOVF Y COUNT,W ;YCOUNT = 0 ? 
OOSE 0743 BTFSS STATUS, ZERO_AREA 
OOSF O0A92 GOTO WRITY 
SCANB 
0060 0246 COME RB, W ;BUTTON STATUS CHANGE ? 
0061 OE05 ANDLW B’00000101' 
0062 O0D80 IORLW B’10000000' 
0063 OOAD SUBWF BSTAT 
0064 0643 BTFSC STATUS, ZERO _AREA 7; IF CHANGE THEN TRIGGER 
0065 OA6B GOTO SCANC ; (NO CHANGE) 
0066 0553 BSF FLAGA, TR 7; (CHANGE) SET TRIGGER FLAG 
0067 0246 COMF RB, W ;FORMAT BUTTON STATUS DATA 
0068 OEOS5 ANDLW- B’00000101' 
0069 OD80 IORLW B’10000000' 
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006A 


006B 
006C 
006D 
006E 
OO6F 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 


_OO7A 


007B 
007C 
007D 
OO7E 
OO7EF 


0080 
0081 
0082 
0083 
0084 


0085 
0086 
0087 
0088 


0089 
008A 
008B 
008C 


008D 
008E 
OO8F 


0090 
0091 


0092 
0093 
0094 
0095 
0096 


0097 
0098 
0099 
009A 


009B 
009C 
009D 
009E 


002E 


0246 
OE05 
OD80 
002D 
020E 
0039 
092A 
020F 
0039 
092A 
0210 
0039 
092A 
0211 
0039 
092A 
0212 
0039 
092A 
0453 
0A56 


Ofoys e | 
0C40 
0094 
0603 
OA8D 


0776 

0A90 

0274 
0294 


002F 
0031 
0074 
OA5D 


0C40 
0034 
OA85 


0214 
0A89 


0593 
0C40 
0095 
0603 
OA9F 


0736 

QAA2 

0275 
0295 


0030 
0032 
0075 
OA60 


MOVWE 
SCANC 

COME’ 
ANDLW 
IORLW 
MOVWF 
MOVE 
MOVWF 
CALL 
MOVE 
MOVWFE 
CALL 
MOVE 
MOVWE 
CALL 
MOVE 
MOVWF 
CALL 
MOVF 
MOVWF 
CALL 
BCF 
GOTO 


WRITX 
BSF 
MOVLW 
SUBWF 
BTFSC 
GOTO 
WRITS 
BTFSS 
GOTO 
COMF 
a NCF 
WRITA 
MOVWE 
MOVWE 
CLRF 
GOTO 


WRITR 
MOVLW 
MOVWE 
GOTO 


WRITL 
MOVF 
GOTO 


WRITY 
BSF 
MOVLW 
SUBWF 
BIFSC 
GOTO 
WRITW 
BIESS 
GOTO 
COME 
I NCF 
WRITB 
MOVWF 
MOVWF 
CURE: 
GOTO 


DATAO 


RB, W 
B’00000101' 
B’10000000' 
BSTAT 
DATAO,W 
DATA AREA 
BYTE 
DATA1,W 
DATA AREA 
BYTE 
DATA2,W 
DATA AREA 
BYTE 
DATA3,W 
DATA AREA 
BYTE 
DATA4,W 
DATA AREA 
BYTE 
FLAGA, TR 
SCAN 


FLAGA, TR 
40H 
XCOUNT, W 
STATUS,CA 
WRITR 


FLAGB, RI 
WRITL 
XCOUNT 
XCOUNT, W 


DATA] 
DATA3 
XCOUNT 
SCANA 


40H 
XCOUNT 
WRITS 


XCOUNT, W 
WRITA 


FLAGA, TR 
40H 
YCOUNT, W 
STATUS,CA 
WRITV 


FLAGB, UP 
WRITD 
YCOUNT 
YCOUNT, W 


DATA2 
DATA4 
YCOUNT 


_SCANB 


;SEND DATAO,1,2,3,4 TO HOST 


;CLEAR TRIGGER FLAG 


;SET TRIGGER FLAG 
;IF XCOUNT > 64 THEN XCOUNT <-64 


;LEFT / RIGHT ? 


; (RIGHT) NEG XCOUNT 


;RESET XCOUNT 


;XCOUNT <- 64 


; (LEFT) 


7;SET TRIGGER FLAG 


;IF YCOUNT > 64 THEN YCOUNT <-64 


;DOWN / UP ? 


7 (UP) NEG YCOUNT 


7;RESET YCOUNT 
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WRITV 
OO9F 0C40 MOVLW 40H ;YCOUNT <- 64 
OOAO 0035 MOVWEF YCOUNT 
O0Al OA97 GOTO WRITW 
WRITD 
OOA2 0215 MOVF YCOUNT, W 7; (DOWN) 
00A3 OA9B GOTO WRITB 
: RESET ENTRY 
ORG 777 
O1FF OA45 GOTO I NIT ;JUMP TO PROGRAM STARTING 
END 





. 
‘ 


pK KKK KKK KKK KKK KK KKK EK KKK KK KKK KK KKK KK KKK KKK 


Errors : 0 
Warnings : 
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Intelligent Remote Positioner (Motor Control) 





INTRODUCTION 


The excellent cost/performance ratio of the PIC16C5X 
are well suited for a low-cost proportional d.c. actuator 
controller. This application note depicts a design of a 
remote intelligent positioning system using a d.c. motor 
(up to 1/3 hp) run from 12 to 24 V. The position accuracy 
is 1 in 8 bits or 0.4%. The PIC16C5X receives its 
command and control information via a MICROWIRE™ 
serialbus. However, any serial communication method 
is applicable. 


IMPLEMENTATION 


The PIC16C5X based controller receives commands 
from a host, compares them to the actual position, 
calculates the desired motor drive level and then pulses 
a full H-bridge (Figure 2). In this way it serves as a 
remote intelligent positioner, driving the load until it has 
reached the commanded position. It can be used to 
control any proportional d.c. actuator i.e. d.c. motor or 
proportional valve. 


This system is ideally suited to remotely position valves 
and machinery. !tcan be used with d.c. motors to easily 
automate manual equipment. Because of the 5 wire 
serial interface, the positioner can be installed near its 
power supply and load. The remote intelligent positioner 
can then be linked to the central control processor by a 
small diameter easily routed cable. Since the positioner 
is running its own closed-loop PID algorithm (Fig. 3), the 
host central processor need only send position com- 
mands and is therefore free to service the user interface, 
main application software and command many remote 
positioners. 


The limit switch inputs provide a safety net to keep a 
system from destroying itself in the event that the feed- 
back device is lost. The optional current sense input can 
be used to determine if the load has jammed and prevent 
overheating of the actuator and drive electronics. 


The commanded positions are presented to the 
PIC16C5X via a microwire type protocol at bit-rates of up 
to 50kb/s for the 4 MHz part. As currently implemented 
in this application note, the position request is the only 
communication. There are several variable locations 
available and they could be utilized to allow down- 
loading of the loop gain parameters, reading positioner 
information, or for setting a current limit. The host that 
is sending the position request must set the chip select 
low, and wait for the PIC16C5X to raise the "busy" (DO) 
line high. At this point 8 data bits can be clocked into the 
PIC16C5X. The requested position is sent most signifi- 
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cant bit first and can be any 8 bitvalue. Values 1 through 
255 represent valid positions with 0 being reserved for 
drive disable. 


The PIC16C5X acquires data by way of a microwire A/ 
D converter. This part was chosen for low cost yet it 
provides adequate performance. The second channel 
of the A/D is shown hooked up toa peak current detector. 
lf the user desired, the PIC16C5X could monitor and 
protect the motor from overcurrent by monitoring this 
information. 


The H-bridge power amplifier will deliver 10 or more 
amps at up to 24 volts when properly heat-sinked. It is 
wired for a modified 4-quadrant mode of operation. One 
leg of the bridge is used to control direction and the other 
leg pulses the low FET and the high FET alternately to 
generate the desired duty-cycle. In this way the system 
will operate well to produce a desired "speed" without 
the use of aseparate speed control loop. This allows use 
of the PIC16C5X to control the PID algorithm for position 
directly while having reasonable speed control. The 
capacitance at the gates of the FETs combined with the 
impedance of the drive circuits provides for turn-off of the 
upper FET before the lower FET turns on... an important 
criteria. 


FIGURE 1 - BLOCK DIAGRAM 


Test Set-Up 


A/D 
Converter 
+5 


PIC16CXX 


Power Fet 


Peak Current 
through Motor 





MICROWIRE™ is a trademark of National 
Semiconductor Corporation. 
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Remote Positioner 


The PID algorithm itself is where most of the meat of this 
application note is located so let's look at it more closely. 
The Algorithm is formed by summing the contribution of 
three basic components. The first calculation is the error 
for that is what the other terms are based on. 


The error is the requested position minus the actual 
position. It is a signed number whose magnitude can be 
255. In order not to loose resolution, the error is stored 
as an 8 bit magnitude with the sign stored separately in 
the FLAGS register under ER_SGN. This allows us to 
resolve a full signed 8 bit error with 8 bit math. 


The proportional term is merely the algebraic difference 
of the requested position minus the actual position. Itis 
scaled by a gain term (Kp) called the "proportional gain". 
The sign of this term is important for it tells the system 
which direction it must drive to correct the error. The 
proportional term is limited to +/- 100. Increasing the 
proportional gain term will improve the dynamic and 
static accuracy of the system. Increasing it too much will 
cause oscillations. 


The next term that gets calculated is the Integral term. 
This term is traditionally formed by integrating the error 
over time. In this application it is done by integrating the 
Ki term over time. When the error is zero, no integration 
is performed. This is a more practical way to handle a 
potentially large number in 8 bit math. By increasing the 
Ki term the d.c. or static gain of the system is improved. 
Increasing the integral gain too much can lead to low 
frequency oscillations. 


The differential term (Kd) is a stabilizing term that helps 
keep the integral and proportional terms from overdriving 
the system through the desired position and thus creat- 
ing oscillations. As you use more proportional and 
integral gain you will need more differential gain as well. 
The differential gain is calculated by looking at the rate 
of change of the positional error with respect to time. It 
is actually formed as "delta error/delta time" with the 
delta time being a program cycle. 


The three terms are summed algebraically and scaled to 
produce a percentage speed request between 0 and 
100%. The sign of the sum is used to control the 
H-bridge direction. The loop calculations run approxi- 
mately 20 times per second on a 4 MHz part. This yields 
sufficient gain-bandwidth for most positioning applica- 
tions. If higher system performance is desired, the 
number of pulses can be reduced to 20 and a 16 MHz 
PIC16C5X can be used. Your Loop gains (Kp, Ki, Kd) 
will have to be recalculated, but the system sample rate 
will be increased to 400 Hz. This should be sufficient to 
control a system that has a response time of 20 millisec- 
onds or more. 


The key to using the PIC16C5X series parts for PID 
control and PWM generation is to separate the two into 
separate tasks. There is simply not the hardware 
support or the processing speed to accurately do both 
concurrently. It is fortunate therefore that it is not 
necessary todo both concurrently. The systems that are 
generally controlled can be stabilized with a much lower 
information update rate than the PWM frequency. This 
supports the approach of calculating the desired per- 
centage, outputting the PWM for a period of time and 
then recalculating the new desired percentage. Utilizing 
this technique the inexpensive PIC16C5X can imple- 
ment PID control, PWM generation and still have pro- 
cessing time left over for monitor or communication 
functions. 


About the Author: 


Steven Frank has been designing analog and digital 
control systems for 10 years. His background is in 
medical and consumer electronics. He has received 
numerous patents in control systems and instrumenta- 
tion. At Vesta Technology Inc. Mr. Frank works with a 
number of engineers on custom embedded control 
systems designs. Vesta Technology Inc. is a provider of 
embedded control systems from an array of standard 
products and designs. Vesta offers custom design 
services and handles projects from concept to manufac- 
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FIGURE 2 - PROGRAM FLOW CHART FIGURE 3 - P.I.D. ALGORITHM FLOW CHART 






Limit switches set? 


ue New position NN 


requested? 






Kperr <— Min. of 


[Kp*ERR or 100] 





ss +i ACCM = ACCM + KI 
om eee : Direction = C.W. 


= 


ACCM = ACCN - kl 
Direction = C.C.W. 





Determine P.I.D. term 8 
= PENT and direction 
Set CNT = 100 


N 
PCH <— PCNT; is 
PCL <— 100 - PCNT 


Drive Motor hi; 
PCH < PCH - 1 














de/dt = ERR-OLD_ ERR & 
Kpoerr = KD * de/dt . 








Set Bridge 
for C.W. 
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_ FIGURE 4 - SCHEMATIC 





Microwire 
Port 


al 


C2 
rs 
oy, 


Position 
ADC0832 Feedback 


+5 


10K 10K Input 
Switches 


OO 
ed | eye! 
aa 


Notes: 


1. All pnp transistors are 2N3906 

2. All npn transistors are 2N3904 

3. All diodes 1N914 unless otherwise specified 
4. All zeners are 1N4742 


aera eae arene! 
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MPASM BO.54 PAGE 1 


: mw8pos.asm 


LIST P=16C56 


KEKKKEKKEKEK KKK KK KKK KK KK kkk kkk KKK KKK Ka KK KKK KK KKK KKK KK Kk KKK 


7 

> REV. A Original release 1/10/92 srf 

; 

KERR KKK KKK RK RK KR KK KKK KKK KK KE KKK KKK KKK KKK KEK KKK KK KKK KKK 


REGISTER EQUATES 


ae “ae ve «a 


0000 W EQU 0 
0000 PNTR EQU QOH ; CONTENTS OF POINTER 
0019 FLAGS EQU 19H ; USE THIS VARIABLE LOCATION AS FLAGS 
; O BIT IS SIGN OF ERROR 1 IS NEGATIVE 
; 1 BIT IS SIGN OF ERROR ACCUMULATOR 
; 2 BIT IS SIGN OF THE DE/DE TERM 
; 3 BIT IS DIRECTION 0 IS CW 
; 4 BIT IS SIGN OF THE OLD ERROR 
0003 STATUS EQU 03H 
0003 SWR EQU 03H ; STATUS WORD REGISTER 
; O = CARRY 
; 1 = DC 
; 2 = Z, SET IF RESULT IS ZERO 
0004 FSR EQU 04H ; FILE SELECT REGISTER 
0005 PORTA EQU O5H ; I/O REG (AO-A3), (A4-A? DEF=0) 
0006 PORTB EQU 06H ; I/O REGISTER (BO-B7) 
0007 HI EQU 07H ; NUMBER OF HIGH MICROSECONDS 
0008 LO EQU 08H ; NUMBER OF LOW MICROSECONDS 
0009 PCNT EQU 09H ; PERCENT DUTYCYCLE REQUEST 
OO0A HI T EQU OAH ; COUNTER FOR USECONDS LEFT/PULSE HI 
000B LO_T EQU OBH ; COUNTER FOR USECONDS LEFT/PULSE LO 
000C ERROR EQU OCH ; HOLDER FOR THE POSITIONAL ERROR 
; THIS IS AN 8 BIT MAGNITUDE WITH THE SIGN 
; KEPT IN THE FLAG REGISTER (9BIT SIGNED) 
000D SUMLO EQU ODH 7 PROGRESSIVE SUM OF THE PID TERMS 
OO0E ACCUM EQU OEH ; ERROR ACCUMULATOR 
OOOF ERR_O EQU OFH ; ERROR HISTORY USED FOR de/dt 
; THIS IS AN 8 BIT MAGNITUDE WITH THE SIGN 
; KEPT IN THE FLAG REGISTER (9BIT SIGNED) 
0010 POSR EQU 10H ; POSITIONAL REQUEST 
0011 POSA EQU 11H ; ACTUAL POSITION 
0012 CYCLES EQU 12H ; COUNTER FOR CYCLES OUT 
0013 mulcnd equ 13H ; 8 bit multiplicand 
0013 ACCaLO EQU 13H ; same location used for the add routine 
0014 mulplr equ 14H ; 8 bit multiplier 
0014 ACCbLO EQU 14H ; same location used for the add routine 
0015 H_byte equ 15H ; High byte of the 16 bit result 
0015 ACCaHI EQU 15H ¢ same location used for the add routine 
0016 L byte equ 16H ; Low byte of the 16 bit result 
0016 ACCbHI EQU 16H 7 same location used for the add routine 
0017 count equ 17H ; loop counter 
0018 SUMHI EQU 18H ; HIGH BYTE OF THE LOOP SUM 


; PORT ASSIGNMENTS AND CONSTANTS 


0000 PWMCW EQU 0 ; CLOCKWISE PWM OUTPUT BIT 

0001 PWMCCW EQU 1 ; COUNTERCLOCKWISE PWM OUTPUT BIT 
0000 CARRY EQU 0 ; CARRY BIT IN THE STATUS REGISTER 
0002 Z EQU 2 ; THE ZERO BIT OF THE STATUS REGISTER 
0001 Same equ Bs : 





© 1993 Microchip Technology Incorporated DS00531B-page 5 
2-137 





Remote Positioner 








0000 ER SGN EQU 0 ; SIGN BIT FOR THE ERROR IN FLAG REGISTER 
0001 AC SGN EQU 1 ; SIGN BIT FOR THE ERROR ACCUMULATOR 
0002 DE_ SGN EQU 2 ; SIGN BIT FOR DE/DT 
0004 OER_SGN EQU 4 ; SIGN BIT FOR THE OLD ERROR 
0030 KP EQU 30 ; PROPORTIONAL GAIN 
0002 KI EQU 2 ; INTEGRAL GAIN 
0020 KD EQU 20 ; DIFFERENTIAL GAIN 
0003 DIR EQU 3 ; THE DIRECTION FLAG 
0007 CSN EQU 7 ; CHIP SELECT NOT ON A/D 
0006 BV EQU 6 ; DATA LINE FOR THE A/D 
0005 CK EQU o ; CLOCK LINE FOR THE A/D 
0002 MWDO EQU 2 ; MICROWIRE DATA OUT FROM POSITIONER 
0001 MWDI EQU a ; MICROWIRE DATA IN TO POSITIONER 
0000 MWCS EQU 0 ; MICROWIRE CHIP SELECT TO POSITIONER 
0003 MWCK EQU 3 ; MICROWIRE CLOCK IN TO POSITIONER 
puke MACROS KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKKKKKKKKKEK 
CLKUP MACRO > clock up macro for the microwire 
BSF PORTB, CK ; data acquisition from the a/d 
NOP 
ENDM 
CLKDN MACRO ; clock down macro for the microwire 
BCF PORTB, CK ; data acquisition from the a/d 
NOP 
ENDM 
GET BIT MACRO > ** FOR RECEIVING A/D DATA ** 
BCF SWR, CARRY 
BSF PORTB, CK ; SET CLOCK BIT HIGH 
BTFSC PORTB, BV ; LOOK AT DATA COMMING IN 
BSF SWR, CARRY ; SET THE CARRY FOR A 1 
RLF POSA ; ROTATE THE W REG LEFT 
BCF PORTB, CK ; SET THE CLOCK LOW 
NOP ; DELAY 
ENDM 
0000 0B88 GOTO CLRREG 
pak kkk MATH ROUTINES kkk kk kk kkk kk kkk kk kkk kok ok ke ek kk kk kkk kk 
: keke 8 BIT MULTIPLY KKEKKEKKKEK 
° BK KK TI IK IR I IO IO IO I Begin Multiplier Routine 
0001 0075 mpy_$ ode ie af H_ byte 
0002 0076 clrf L_ byte 
0003 0C08 moviw 8 
0004 0037 movwf count 
0005 0213 movt mulcnd,w 
0006 0403 bcf STATUS, CARRY ; Clear the carry bit in the status Reg. 
0007 0334 loop bre mulpir 
0008 0603 btfsc STATUS, CARRY 
0009 01F5 addwf H_byte,Same 
QOO00A 0335 eet H byte,Same 
000B 0336 ert L_byte,Same 
000C 02F7 decfsz count 
000D 0A07 goto loop 
OO0E 0800 retlw 0 
. KKK KKK IK KK KKK KK KKK KK KKK KKK KKK 
; DOUBLE PRECISION ADD AND SUBTRACT ( ACCb-ACCa->ACCb } 
OOOF 03917 D_sub call neg A > At first negate ACCa, then add 
PRK KKK RK KKK RK KKK 
; Double Precision Addition ( ACCb+ACCa->ACCb ) 
0010 0213 D_add movf ACCaLO,W 
0011 O1F4 addwf ACCbLO ; add lsb 
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0012 0603 btfsc STATUS, CARRY ; add in carry 
0013 02B6 INCE ACCbHI 

0014 0215 movf ACCaHI,W 

0015 O1F6 addwf ACCHDHE 7; add msb 
0016 0800 retlw 00 

0017 0273 neg A comf ACCaLO ; negate ACCa 
0018 02B3 incf ACCaLO 

0019 0643 btfsc STATUS, 2 

OO1A OOFS decf ACCaHI 

001B 0275 comf ACCaHI 

001C 0800 retlw 00 


KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK 


; divide by 16 and limit to 100 Decimal 


SHIFT MACRO 


BCF SWR, CARRY 
RRF L_ byte 
BCF SWR, CARRY 
RRE H_ byte 
BTFSC SWR, CARRY 
BSF L_byte,7 
ENDM 
DIV_LMT 
SHIFT 
001D 0403 BCE SWR, CARRY 
OO1E 0336 RRF L_ byte 
OO1F 0403 BCE SWR, CARRY 
0020 0335 RRE H_ byte 
0021 0603 BTESC SWR, CARRY 
0022 OSF6 BSF L_byte,7 
SHIFT 
0023 0403 BCF SWR, CARRY 
0024 0336 RRF L_byte 
0025 0403 BCF SWR, CARRY 
0026 0335 RRF H byte 
0027 0603 BTESC SWR, CARRY 
0028 OSF6 BSF L byte,?7 
SHIFT 
0029 0403 BCF SWR, CARRY 
002A 0336 RRF L byte 
002B 0403 BCE SWR, CARRY 
002C 0335 RRF H_ byte 
002D 0603 BTFSC SWR, CARRY 
0O02E OSF6 BSF L_ byte,7 
SHIFT 
002F 0403 BCF SWR, CARRY 
0030 0336 RRF L_ byte 
0031 0403 BCE SWR, CARRY 
0032 0335 RRF H_ byte 
0033 0603 BTFSC SWR, CARRY 
0034 OSF6 BSF L_ byte,7 
LMT100 
0035 0CO01 MOVLW 1H ? SUBTRACT 1 FROM THE HIGH BYTE TO SEE 
0036 0095 SUBWF H_ byte,0 7 IF THERE IS ANYTHING THERE, IF NOT, 
0037 0703 BTESS SWR, CARRY ; THEN LEAVE THE LOW BYTE ALONE 
0038 OA3C GOTO L8 E ; OTHERWISE GIVE THE LOW BYTE A FULL 
0039 0C64 MOVLW 64H ; COUNT AND IT WILL HAVE BEEN LIMITED 
003A 0036 MOVWE L byte ; TO 100 
003B 0A42 GOTO LMT EXIT 
L8 E 
003C 0C64 MOVLW 64H ; LIMIT THE MAGNITUDE OF THE VALUE TO 





SS CL TNE aE STS SEP DT ES 
© 1993 Microchip Technology Incorporated DS00531B-page 7 
2-139 





Remote Positioner 








003D 0096 
003E 0703 
O03F 0A42 
0040 0C64 
0041 0036 


0042 0800 


0043 0209 
0044 0027 
(0045 0c64 
0046 0028 
0047 0209 
0048 00A8 
0049 0207 
004A 0643 
004B 02A7 
004C 0208 
004D 0643 
004E 02A8 
0O4F 0800 


0050 0000 


0051 0004 
0052 0746 
0053 0AS1 
0054 0766 
0055 0A51 
0056 0786 
0057 OAS1 


0058 OCOB 


ey en? er? YY eT eT a) en) oT 


SUBWFE L_byte,0 ; 100 DECIMAL 
BTFSS SWR, CARRY 
GOTO LMT_EXIT 
MOVLW 64H 
.MOVWE L_ byte 
LMT EXIT 
RETLW 00 


7THE ROUTINE CALCTIMES DOES THE FOLLOWING: PCNT = DUTY CYCLE IN % 
7; 100 - PCNT —> LO AND PCNT —-> HI. ZERO VALUES IN EITHER LO OR HI 
;ARE FORCED TO 1. 


CALCTIMES 
MOVE PCNT,W ; PUT REQUESTED % INTO W REGISTER 
MOVWE HI ; COPY ON MICROSECONDS IN TO HI TIME 
MOVLW 64H . 
MOVWE LO 


MOVE PCNT, 0 


SUBWF LO, 1 LEAVE 100-HI TIME IN LO TIME 


MOVE HI,0 ; INSPECT THE HIGH TIME 
BTFSC  SWR,2 ; IF ITS IS ZERO 
INCF HI,1 : INCREMENT IT 


INSPECT THE LO TIME 
IF ITS ZERO 
INCREMENT IT 


MOVE LO, 0 
BTFSC  SWR,2 
INCE LO, 1 
RETLW 00 


~s Ts Te 


RR IK RK KE KKK KKK KK KK KK EK KKK KKK KKK KK KK KKK KER KK KKK KK KKK KEK KEK 


BEGIN 
NOP ; STUBBED BEGINNING 


****XCHECKING THE LIMIT SWITCHES AND CHECKING FOR MW*tk* ke kkk kk kk kk 

This will check the switch inputs for closure and will terminate 
pulsing is one is closed. It doesn’t distinguish between the switches 
so they are not dedicated to cw end and ccw end. 


~e ts Yo ~s 


SW_TRAP 
CLRWDT 
BTFSS PORTB, 2 ; THIS WILL TEST ALL THREE OF THE 
GOTO SW_TRAP ; SWITCH INPUTS, IF ANY ONE IS 
BTFSS  PORTB,3 ; SET THEN EXECUTION OF THE CODE 
GOTO SW_TRAP ; WILL BE LIMITED TO LOOKING FOR 


BTFSS  PORTB, 4 
GOTO SW_TRAP 


IT TO BE CLEARED 


****kRECRIVING THE POSITIONAL REQUEST * # & & % XR ee ke ee eR RK KK KKK 

The host system that wishes to send positional requests to the positioner 
servo makes its desire known by setting the chip select to the positioner 
low. It then monitors the busy (Data Out) line from the positioner. When 
the positioner sets the busy line high, the host may begin sending its 8 
request. The data bits should be valid on the rising edge of the clock. 
After 8 bits have been received by the positioner it will begin operation 
to send the system to the received position. It can be interrupted at any 
point during the positioning process by the host sending a new command. 
opportunity to update the command is issued every 100 pwm pulses (every 50 
milliseconds). 

If the host sends a zero positional command the positioner will stop the 
system and remain inactive. 

If the host does not successfully complete a microwire transmission of 8 
data bits the watchdog timer will trip and reset the system to an inactive 
“stopped” state. 


REC_MW | | 
MOVLW  OBH ; RESET THE PORT FOR THREE INPUTS 
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0059 
005A 
005B 
005C 


005D 
005E 
005F 
0060 
0061 


0062 
0063 
0064 


0065 
0066 
0067 
0068 
0069 
006A 
00 6B 
006C 
006D 


006E 
006F 
0070 


0071 


0072 
0073 
0074 


0075 
0076 
0077 
0078 
0079 
OO7A 


007B 
0O7C 


007D 
OO7E 


OO7E 
0080 


0005 
0445 
0C20 
0037 


0705 
OA62 
O2F7 
OA5SD 
OA7T1 


0545 
0C08 
0037 


0765 
OA65 
0403 
0625 
0503 
0370 
O2F7 
OA6E 
OA7T1 


0665 
OA6E 
OA65 


0445 


0210 
0643 
0A50 


0071 
04E6 
oc1c 
0006 
05C6 
0000 


O5A6 
0000 


O4A6 
0000 


O5A6 
0000 


WATCH CS 


REC_CMD 


WAIT UP 


WAIT DN 


REC EXIT 


TRIS 
BCE 
MOVLW 
MOVWE 


BTFSS 
GOTO 
DECF SZ 
GOTO 
GOTO 


BSF 
MOVLW 
MOVWE 


BTFSS 
GOTO 
BCF 
BTFSC 
BSF 
RLF 
DECF SZ 
GOTO 
GOTO 


BTESC 


GOTO 
GOTO 


BCF 


PORTA 
PORTA, MWDO 
20H 

count 


PORTA, MWCS 
REC CMD 
count... 
WATCH CS 
REC EXIT 


PORTA, MWDO 
8H 
count 


PORTA, MWCK 
WAIT UP 
SWR, CARRY 
PORTA, MWDT 
SWR, CARRY 
POSR, 1 
County 
WAIT DN 
REC EXIT 


PORTA, MWCK 


WAIT DN 
WAIT _UP 


PORTA, MWDO 


~e =e 


~s se 


7s =e 


~s “ee “e “8s es we 


AND ONE OUTPUT 
SET THE DATA OUT LOW FOR BUSY 


CHECK FOR INCOMMING REQUESTS 
RECEIVE A NEW POSITION REQUEST 


NO REQUEST WAS MADE IN THE TIME ALLOTED 


SET THE DATA OUT HIGH FOR “OK TO SEND” 
SET TO RECEIVE 8 BITS 


WAIT FOR A RISING EDGE 


RESET THE CARRY TO A DEFAULT ZERO 
READ THE DATA IN 

SET THE CARRY FOR A ONE 

ROTATE THE BIT INTO THE POSITION REQ. 
DECREMENT THE BIT COUNTER 

WAIT FOR THE FALLING EDGE 

LAST BIT RECEIVED 


CHECK THE INCOMMING CLOCK 


TF IT IS STILL HIGH WAIT FOR IT TO GO LOW 
IF IT GOES LOW GO BACK TO RECEIVE NEXT BIT 


SET THE BUSY FLAG 


peek kek CHECK FOR THE DISABLE REQUEST #80 RRR kk ik i ik Re RK 


Position 0 is considered a request to not drive the system. 


In this way 


; the positioner will come up from a reset in a safe state and will not 
; try to move the system to some arbitrary location. 


MOVE ? 


. 
e 
e 
, 
* 
’ 
° 
e 


MOVE 
BTESC 
GOTO 


POSR,W 
SWR, Z 
BEGIN 


Read the positional a/d channel 
position variable (POSA). 


CHECK THE REQUESTED POSTION 
IF IT IS ZERO THEN WAIT FOR A NON-ZERO 
REQUEST BY BRANCHING BACK TO THE BEGINNING 


*¥KKXKREADING THE A/D VALUES & RK RK KKK KK KKK KK KK KK KKK KK KK KK KKK KKK 


(1) and store the value in the actual 


> This is written in line to minimize the use of variables 


READ POS 


CLKUP 


CLKDN 


CLKUP 


CLKDN 


CLRE 
BCE 
MOVLW 
TRIS 


NOP 


BSF 
NOP 


POSA 
PORTB, CSN 
1CH 

PORTB 
PORTB, BV 


PORTB, CK 


PORTB, CK 


PORTB, CK 


ae 2 te fe Oe 


“se %e 


CLEAN THE POSITION ACTUAL HOLDER 
SET THE CHIP SELECT LOW TO A/D 
SET THE DATA LINE TO OUTPUT 

FOR SENDING SET-UP BITS 

SET FOR “START” BIT 


CLOCK IN THE START BIT 
data acquisition from the a/d 


ws 


data acquisition from the a/d 


CLOCK IN SINGLE-ENDED 
data acquisition from the a/d 


“ 
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OOA9 
OOAA 
OOAB 
OOAC 
OOAD 
OOAE 
OO AF 


0O0BO 
00B1 
00B2 


04A6 
0000 


O5A6 
0000 


04A6 
0000 


ocsc 
0006 


O5A6 
0000 


04A6 
0000 


0403 
O5A6 
06C6 
0503 
0371 
04A6 
0000 


0403 
O5A6 
06C6 
0503 
0371 
04A6 
0000 


0403 
O5A6 
06C6 
0503 
0371 
O4A6 
0000 


0403 
OSA6 
06C6 
0503 
0371 
04A6 
0000 


0403 
OSA6 
06C6 
0503 
0371 
04A6 
0000 


0403 
OSA6 
06C6 


CLKUP 


CLKDN 


CLKUP 


CLKDN 


GET BIT 
BCF 
BSF 


BTFSC 


BSF 
RLF 
BGF 
NOP 


GET BIT 
BCE 
BSE 


BTESC 


BSF 
RLF 
BCF 
NOP 

GET BIT 
BCF 
BSF 


BTFSC 


BSF 


GET BIT 
BCF 
BSF 


BTFSC 


BSF 


GET BIT 
BCE 
BSF 


BTFSC 


BSF 
RLF 
BCE 
NOP 


GET BIT 
BCF 
BSF 


BTFSC 


PORTB, CK 


PORTB, CK 


PORTB, CK 


5CH 
PORTB 


PORTB, CK 


PORTB, CK 


SWR, CARRY 
PORTB, CK 
PORTB, BV 
SWR, CARRY 
POSA 
PORTB, CK 


SWR, CARRY 
PORTB, CK 
PORTB, BV 
SWR, CARRY 
POSA 
PORTB, CK 


SWR, CARRY 
PORTB, CK 
PORTB, BV 
SWR, CARRY 
POSA 
PORTB, CK 


SWR, CARRY 
PORTB, CK 
PORTB, BV 
SWR, CARRY 
POSA 
PORTB, CK 


SWR, CARRY 
PORTB, CK 
PORTB, BV 
SWR, CARRY 
POSA 
PORTB, CK 


SWR, CARRY 
PORTB, CK 
PORTB, BV 


~s “6s 


=e es 


va ~s 8 “Ss “ss “6s “e =e ve 7a -s “a 38 


we 


=e “=e “ea ~s “se “se ~e 


ve “se a =e “e “6s ~s “es ~e “Ss “¢ =e ~s “6 


~ses se “se Ss Se 88 


“a 


“e “e 


data acquisition from the a/d 


CLOCK IN CHANNEL 1 
data acquisition from the a/d 


TO THE MUX 
data acquisition from the a/d 


SET THE DATA LINE TO INPUT 
TO RECEIVE DATA BITS FROM A/D 
CLOCK UP TO LET MUX SETTLE 
data acquisition from the a/d 


CLOCK DN TO LET MUX SETTLE 
data acquisition from the a/d 


GET BIT 7 


SET CLOCK BIT HIGH 

LOOK AT DATA COMMING IN 
SET THE CARRY FOR A 1 
ROTATE THE W REG LEFT 
SET THE CLOCK LOW 

DELAY 


BIT 6 


SET CLOCK BIT HIGH 

LOOK AT DATA COMMING IN 
SET THE CARRY FOR A 1 
ROTATE THE W REG LEFT 
SET THE CLOCK LOW 

DELAY 

BIT 5 


SET CLOCK BIT HIGH 

LOOK AT DATA COMMING IN 
SET THE CARRY FOR A 1 
ROTATE THE W REG LEFT 
SET THE CLOCK LOW 

DELAY 


BIT 4 


SET CLOCK BIT HIGH 

LOOK AT DATA COMMING IN 
SET THE CARRY FOR A 1 
ROTATE THE W REG LEFT 
SET THE CLOCK LOW 

DELAY 


BLY s 


SET CLOCK BIT HIGH 

LOOK AT DATA COMMING IN 
SET THE CARRY FOR A 1 
ROTATE THE W REG LEFT 
SET THE CLOCK LOW 

DELAY 


BIT 2 


SET CLOCK BIT HIGH 
LOOK AT DATA COMMING IN 
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00B3 
00B4 
00B5 
00B6 


00B7 
00B8 
00B9 
0OBA 
00BB 
0OBC 
0OBD 


OOBE 
OOBF 
00Cc0 
00C1 
00C2 
00C3 
00C4 


00C5 


00C6 
00C7 
00c8 
00Cc9 
OOCA 


00CB 
00CcC 
0O0CD 


0OCE 
OOCF 
00D0 
00D1 


00D2 
00D3 


0503 
0371 
04A6 
0000 


0403 
O5A6 
06C6 
0503 
0371 
04A6 
0000 


0403 
O5SA6 
06C6 
0503 
0371 
O4A6 
0000 


OSE6 


0211 
0090 
0603 
OACB 
OACE 


002C 
0419 
OAD2 


0210 
0091 
002C 
0519 


006D 
0078 


BSF 
RLF 
BCF 
NOP 


GET BIT 
BCF 
BSF 
BTFSC 
BSF 
RLF 
BCF 
NOP 


GET_ BIT 
BCF 
BSF 
BTFSC 


SWR, CARRY 
POSA 
PORTB, CK 


SWR, CARRY 
PORTB, CK 
PORTB, BV 
SWR, CARRY 
POSA 

PORTB, CK 


SWR, CARRY 
PORTB, CK 
PORTB, BV 
SWR, CARRY 
POSA 
PORTB, CK 


PORTB, CSN 


-e “ss Ta MS 


ve “Se 7S SUR CU 


7=s “ee Se Se “8 Me 


SET THE CARRY FOR A 1 
ROTATE THE W REG LEFT 
SET THE CLOCK LOW 
DELAY 


BIT 1 


SET CLOCK BIT HIGH 

LOOK AT DATA COMMING IN 
SET THE CARRY FOR A 1 
ROTATE THE W REG LEFT 
SET THE CLOCK LOW 

DELAY 


BIT 0 


SET CLOCK BIT HIGH 

LOOK AT DATA COMMING IN 
SET THE CARRY FOR A 1 
ROTATE THE W REG LEFT 
SET THE CLOCK LOW 

DELAY 


DESELECT THE CHIP 


PR ek kee KKKK KKK ERK CALCULATING THE PID TERMS KEKE KK HKK KKK KKK KKK 


e 
a 
. 
, 
. 
a 
. 
¢ 
e 
‘ 
e 
‘ 
e 
’ 


C 


****xCALCULATE THE ERROR******* 


The error is very simply the signed difference between where the 
system is and where it is supposed to be at a particular instant 


in time. 


requested position 


It is formed by subtracting the actual position from the 
(Position requested - Position actual). 


This 


difference is then used to determine the proportional, integral and 
differential term contributions to the output. 


ERR 
MOVE 
SUBWE 
BTFSC 
GOTO 
GOTO 


PLS ER 


MOVWE 
BCF 
GOTO 


MNS ER 


MOVE 
SUBWF 
MOVWF 


CE_EXIT 


s 
, 
e 
e 
e 
, 
° 
Ul 
e 
’ 
e 
, 
e 
, 
e 
’ 
e 
‘, 


C_ 


CLRF 
CLRE 


POSA, 0 
POSR, 0 
SWR, CARRY 
PLS ER 
MNS ER 


ERROR 
FLAGS, ER_SGN 
CE EXIT 


POSR, 0 
POSA,0 
ERROR 
FLAGS, ER_SGN 


SUMLO 
SUMHI 


~e “se 


72a =e M8 Ue 


LOAD THE ACTUAL POSITION INTO W 

SUBTRACT IT FROM THE REQUESTED POSITION 
CHECK THE CARRY BIT TO DETERMINE THE SIGN 
ITS POSATIVE (POSR>POSA) 

ITS NEGATIVE (POSA>POSR) 


SAVE THE DIFFERENCE IN “ERROR” 
SET THE SIGN FLAG TO INDICATE POSATIVE 


RE-DO THE SUBTRACTION 

ACTUAL ~ REQUESTED 

STORE THE DIFFERENCE IN “ERROR” 
SET THE SIGN FLAG FOR NEGATIVE 


CLEAN OLD VALUES OUT TO PREPARE 
FOR THIS CYCLES SUMMATION 


**x**CALCULATE THE PROPORTIONAL TERM****** 
The proportional term is the error times the proportional gain term. 
This term simply gives you more output drive the farther away you are 


from where you want to be 


(error) *Kp,. 


The proportional gain term is a signed term between -100 and 100 The 
more proportional gain you have the lower your system following error 


will be. 


The higher your proportional gain, the more integral and 


differential term gains you will have to add to make the system stable. 
The sum is being carried as a 16 bit signed value. 


PROP 
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Rem 








00D4 
00D5 
00D6 
00D7 
00D8 
00D9 


OODA 
0ODB 
0O0DC 
0ODD 


OODE 
OODF 
0OEO 
OOE1 
00E2 
O0E3 
O04 
OOES 


OOE6 
OOE7 
OOE8 
00E9 
OORA 


0OEB 
0OEC 
QOED 


OORE 
OOEF 


OOFO 
OOF1 


00F2 
00F3 
OOF4 
0OFS 
OOF 6 
OOF7 
OO0OF8 


OOF9 
OOFA 


020C 
0033 
0C30 
0034 
0901 
091D 


0719 
OADE 
0276 
02B6 


0216 
01ED 
0603 
02B8 
0c00 
06ED 
OCFFE 
01F8 


020C 
0643 
OAFF 
0619 
OAEE 


0C02 
O1EE 
OAFO 


0C02 
QOOAE 


O6EE 


OAF9 


ocg9c 
01CE 
0703 
OAFF 
0C64 
002E 
OAFF 


0cgc 
008E 


ote Positioner 


' MOVE ERROR, 0 
MOVWE mulcnd 

/ MOVLW KP 
MOVWE mulplr 
CALL mpy_$ 
CALL DIV_LMT 


LOAD THE ERROR TERM INTO W 

MULTIPLY IT BY THE PROPORTIONAL GAIN 
KP AND THEN SCALE IT DOWN BY DIVIVING 
IT DOWN BY 16. IF IT IS STILL OVER 
255 THEN LIMIT IT TO 255 


~e “se ~“e “ese ~e 


RESTORE_SGN 


IF THE ERROR SIGN IS NEGATIVE THEN 
PUT THE SIGN INTO THE LOW BYTE 


BTFSS  FLAGS,ER_SGN 
GOTO ADDPROP 
COMF L_byte,1 
INCF L_byte,1 


"es ze 


ADDPROP 


we -e =e "es =e 7a Fe =e “se =e. “ese “oe “=e ‘ee bad) 


SAVE THE PROPORTIONAL PART 

IN THE SUM 

IF THE ADDITION CARRIED OUT THEN 
INCREMENT THE HIGH BYTE 


MOVE L_byte,wWw 
ADDWF SUMLO, 1 
BTFSC SWR, CARRY 
INCF SUMHI,1 


=e -e 7. se =e =e 7e 


MOVLW 0 THEN 
BTESC SUMLO, 7 SIGN EXTEND TO THE UPPER 
MOVLW OFF BYTE 


ADDWF SUMHT,1 


*¥***XCALCULATE THE INTEGRAL TERM****** 


The integral term is an accumulation of the error thus far. Its purpose 
is to allow even a small error to effect a large change. It does this 

by adding a small number into an accumulator each cycle through the pro 
Thusly even a small error that exist for a while will build up to a large 
enough number to effect an output sufficient to move the system. The 

that this integral accumulator has is modulated by the integral gain term 
The integral of the error over time is multiplied be KI and the result is 
contribution to the final summation for determining the output value. This 
term helps to insure the long-term accuracy of the system is good. A 
amount is necessary for this purpose but too much will cause oscillations. 
The integral is bounded in magnitude for two purposes. The first is so 

it never rolls over and changes sign. The second is that it may saturate 
long moves forcing an excessively large overshoot to “de-integrate” the 
accumulated during the first of the move 


Cc INT 
MOVE ERROR, W ; MOVE THE ERROR INTO THE W REG 
BTFSC SWR,Z ; AND CHECK TO SEE IF IT IS ZERO 
GOTO ADDINT ; IF SO THEN DONT CHANGE THE ACCUMULATOR 
BTFSC FLAGS,ER_ SGN ; TEST THE FLAGS TO FIND THE POLARITY 
GOTO MNS 1 » OF THE ERROR .. 0 POSATIVE 1 NEGATIVE 
PLS 1 
MOVLW KI -; IF POSATIVE ADD ONE TO 
ADDWF  ACCUM,1 ; THE ERROR ACCUMULATOR 
GOTO:  LMTACM ; THEN LIMIT IT TO +/-100 
MNS 1 
MOVLW KI ; IF NEGATIVE THEN SUBTRACT ONE 
SUBWE ACCUM,1 ; FROM THE ERROR ACCUMULATOR 
LMTACM 
BTFSC ACCUM, 7 ; CHECK THE SIGN BIT OF THE ERROR ACCUMULA- 
GOTO M LMT ; AND DO A POSATIVE OR NEGATIVE LIMIT 
P_LMT 
MOVLW 9CH ; FOR THE POSATIVE LIMIT ADD 156 TO THE 
ADDWF ACCUM, 0 ; NUMBER AND SEE IF YOU GENERATE A CARRY 
BTFSS  SWR,CARRY ; BY CHECKING THE CARRY FLAG 
GOTO ADDINT ; IF NOT THEN ITS O.K,. 
MOVLW 64H ; IF SO THEN FORCE THE ACCUMULATOR TO 
MOVWE ACCUM ; 100 DECIMAL 
GOTO ADDINT 
M_LMT 
MOVLW = 9CH ; FOR THE NEGATIVE LIMIT SUBTRACT 156 FROM 
SUBWF ACCUM, 0 ; THE NUMBER AND SEE IF YOU GENERATE A 
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OOFB 0603 
OOFC OAFF 
OOFD 0C9C 
OOFE 002E 


OOFF O20E 
0100 O1ED 
0101 0603 
0102 02B8 
0103 0C00 
0104 O6EE 
0105 0240 
0106 O1F8 


0107 020C 
0108 0719 
0109 OBOD 
010A 026C 
010B 028C 
010C 026C 


010D 0034 
O10E 0C00 
O10F 0619 
0110 OCFEF 
0111 0036 
0112 020F 
0113 0799 
0114 0B17 
0115 026F 
0116 028F 


0117 0033 
0118 0C00 
0119 0699 
O11A OCFF 
011B 0035 
O11¢C O90F 


011D O6F6 
O11E 0B20 
Q11F OB25 


0120 0559 
0121 0274 
0122 0294 
0123 002F 
0124 OB28 


0125 0459 


BTESC 
GOTO 

MOVLW 
MOVWE 


‘“ADDINT 


MOVF 
ADDWF 
BTFSC 
INCE 
MOVLW 
BTFSC 
COMP 
ADDWE’ 


U_DEXIT 


ys “2 78 *6 Fe Se FS 


“se Me 


C_DIFF 
MOVE 
BTFSS 
GOTO 
COMF 
INCF 
COMF 


LO_BYTE 
MOVWE 
MOVLW 
BTFSC 
MOVLW 
MOVWE 
MOVE 
BTFSS 
GOTO 
COMF 
INCF 

LO_BYTEO 
MOVWE 
MOVLW 
BTFSC 
MOVLW 
MOVWE 
CALL 


STRIP_SGN 
BTFSC 
GOTO 
GOTO 
NEG ABS 
BSF 
COMF 
INCF 
MOVWE 
GOTO 
POS ABS 
BCF 


SWR, CARRY 
ADDINT 
9CH 

ACCUM 


ACCUM, W 
SUMLO, 1 
SWR, CARRY 
SUMHI, 1 

0 

ACCUM, 7 
W,W 
SUMHI, 1 


7-e “se Te 28 


-s 7s Te =e =e "ses we =s 


e 
, 


NON-CARRY CONDITION INDICATING A ROLL-OVER 
IF NOT THEN LEAVE THE ACCUMULATOR ALONE 

IF SO THEN LIMIT IT TO -100 BY 

FORCING THAT VALUE IN THE ACCUMULATOR 


ADD THE INTEGRAL ACCUMULATOR TO 

THE LOW BYTE OF THE SUM 

TEST FOR OVERFLOW, IF SO THEN 

INCREMENT THE HI BYTE 

LOAD 0 INTO THE W REGISTER 

IF THE INTEGRAL ACCUMULATOR WAS NEGATIVE 
COMPLEMENT THE 0 TO GET SIGN FOR HIGH BYTE 
ADD INTO THE HIGH BYTE OF THE SUM 


EXIT POINT FOR THE UP/DOWN CONTROL OF ACCUM 


kKkEX*XCALCULATING THE DIFFERENTIAL TERM AE KKKR KKK KKK KKKKKKKK KKK KKK 

The differential term examines the error and determines how much 

it has changed since the last cycle. It does this by subtracting the 
old error from the new error, 


Since the cycle time is relatively fixed 


we can use it as the “dt” of the desired “de/dt”. 
error is then multiplied by the differential gain term KD and becomes the 
differential term contribution for the final summation. 


This derivative of the 


First, create the “de” term by doing a signed subtaction of new error 
minus the old error. 


(new_error - old error) 
ERROR, W ; LOAD THE NEW ERROR INTO REGISTER 
FLAGS, ER_SGN 
LO BYTE 
ERROR, 1 ; CORRECT THE VALUE TO BE 16 BIT 
ERROR, W 
ERROR, 1 ; RESTORE IT FOR FUTURE USE TO 8 BIT MAGNI- 
ACCbLO ; FOR SUBTRACTION 
00 


FLAGS, ER_SGN 
OFF 

ACCbHI 
ERR_O,W 
FLAGS, OER_SGN 
LO_BYTEO 

ERR _O,1 
ERR_O,W 


ACCaLO 

00 

FLAGS, OER_SGN 
OFF 

ACCaHI 

D_ sub 


ACCbHI,7 
NEG_ABS 
POS ABS 


FLAGS, DE_SGN 
ACCbLO, 1 
ACCbLO, W 
ERR_O 

MULT _KD 


FLAGS,DE SGN 


~s vs 


’ 


SIGN EXTEND THE UPPER BYTE 


LOAD THE OLD ERROR INTO OTHER REGISTER 


CORRECT THE VALUE TO BE 16 BIT 


FOR SUBTRACTION 


SIGN EXTEND THE UPPER BYTE 


PERFORM THE SUBTRACTION 


TEST THE SIGN OF THE RESULT 


ITS NEGATIVE SO SET THE FLAG AND 
COMPLEMENT THE VALUE 


ITS POSATIVE SO SET RESET THE FLAG 
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0126 
0127 


0128 
0129 
012A 
012B 
012C 
012D 


012E 
012F 
0130 
0131 


0132 
0133 
0134 
0135 


0136 
0137 
0138 
0139 
013A 
013B 
013¢ 
013D 
013E 
013F 
0140 
0141 
0142 
0143 
0144 


0145 
0146 
0147 
0148 
0149 


O14A 
014B 
014C 


Remote Positioner 


0214 
002F 


020F 
0033 
0c20 
0034 
0901 
091D 


0759 
0B32 
0276 
02B6 


0216 
0643 
0B45 
002F 


0Cc00 
0659 
OCEF 
0036 
020F 
0034 
020D 
0033 
0218 
0035 
0910 
0214 
002D 
0216 
0038 


020C 
002F 
0499 
0619 
0599 


0479 
O6F8 
0579 


- MOVE 
MOVWE 


ACCbLO,W 
ERR_O 


; Then multiply by Kd 


MULT_KD 
MOVE 
MOVWF 
MOVLW 
MOVWE 
CALL 
CALL 


RE_.SGN 
BTFSS 
GOTO 
COMF 
INCF 
SAVE_DIFF 
MOVE 
BIFSC 
GOTO 
MOVWE 


; ADD THE DIFF 
ADDDIF 


MOVLW 


BTESC 
MOVLW 
MOVWE 
MOVE 
MOVWE 
MOVE 
MOVWE 
MOVE 
MOVWE 
CALL 
MOVE 
MOVWE 
MOVE 
MOVWE 


ROLL_ER 
MOVE 
MOVWE 
BCF 
BTFSC 
BSF 


ERR_O,W 
mulend 
KD 
mulplr 
mpy_$ 
DIV_LMT 


FLAGS, DE_SGN 
SAVE DIFF 
L_byte,1 
L_byte,1 


L_byte,W 
SWR, Z 
ROLL _ER 
ERR_O 


TERM INTO THE SUMM 


00 
FLAGS,DE_SGN 
OFF 
ACCbHI 
ERR_O,W 
ACCbLO 
SUMLO, W 
ACCaLO 
SUMHI,W 
ACCaHI 
D_add 
ACCbLO, W 
SUMLO 
ACCbHI,W 
SUMHI 


ERROR, W 


ERR_O 


FLAGS, OER_SGN 
FLAGS, ER_SGN 
FLAGS, OER_SGN 


-e *s se Me MS 


7a 3a Ne 


~“e “se 


“e ve fe 


“se “e “se “ee 0 





AND SAVE THE VALUE 


MOVE THE DE/DT TERM INTO THE MULCND REG, 
MOVE THE DIFFERENTIAL GAIN TERM INTO 
MULPLR TO MULTIPLY THE DE/DT 

DO THE MULTIPLICATION 

SCALE AND LIMIT TO 100 


IF THE DE SIGN IS NEGATIVE THEN 
PUT THE SIGN INTO THE LOW BYTE 


Kak KKK KKK KKKKKEK 


PUT THE KD*(DE/DT) TERM INTO THE 
REGISTERS TO ADD. AND 
SIGN EXTEND THE UPPER BYTE 


LOAD THE CURRENT SUM INTO THE 
REGISTERS TO ADD 


ADD IN THE DIFFERENTIAL TERM 
SAVE THE RESULTS BACK 
INTO SUMLO AND HI 


TAKE THE CURRENT ERROR 

AND PUT IT IN THE ERROR HISTORY 
SAVE THE CURRENT ERROR SIGN 

IN THE OLD ERROR SIGN FOR 

NEXT TIME THROUGH 


**k**eSET UP THE DIRECTION FOR THE BRIDGE ***kE Re RE REREE ERE KES 


After the sum of all the components has been made, the sign of the 
sum will determine which way the bridge should be powered. 


sum is posative then the bridge needs to be set to drive cw. 


This 


is purely a convention and depends upon the polarity the motor and feedback 
element are hooked up in. 


; If the sum is negative the bridge needs to be set to drive ccw; if the 


SET DIR 
BCF 
BTFSC 
BSF 


FLAGS, DIR 
SUMHI, 7 
FLAGS, DIR 


e 
? 
° 
, 
. 
Uy 


SET FOR DEFAULT CLOCKWISE 
LOOK AT THE SIGN BIT, IF IT IS SET 
THEN SET FOR CCW BRIDGE DRIVE 


;**** SCALE THE NUMBER TO BETWEEN 0 AND 100% A kRKRRKRKKE RRR KKK ER 


e 
‘ 
e 
’ 


and 100 percent inclusive. 


After the direction is set the request for duty cycle is limited to between 
0 This value is passed to the dutycycle setting 
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014D O7F8 
014E OBS2 
014F 0278 
0150 026D 
0151 O2AD 


0152 0CO1 
0153 0098 
0154 0703 
0155 OB59 
0156 0C64 
0157 002D 
0158 OBSF 


0159 0C64 
015A 008D 
015B 0703 
015C OBSF 
O015D 0C64 
O15E 002D 


O15F 020D 
0160 0029 


0161 0679 
0162 0B76 
0163 0B64 


0164 0426 
0165 0C64 
0166 0032 
0167 0943 


0168 0207 
0169 002A 
016A 0208 
016B 002B 
016C 0004 


016D 0506 
O16E O2EA 
O16F OB6D 


0170 0406 
0171 O2EB 
0172 OB70 
0173 O2F2 
0174 OB68 
0175 OASO 


; routine by loading it in the variable “PCNT”. 


L_SUMM 
BTFSS 
GOTO 
COMF 
COMF 
INCF 


POS _LM 
MOVLW 
SUBWF 
BTFSS 
GOTO 
MOVLW 
MOVWE 
GOTO 


MOVLW 
SUBWF 
BTESS 
GOTO 

MOVLW 
MOVWF 


LP_ EXIT 
MOVE 
MOVWE 


we Me te Me Me Ne 


WHICH DIR 
BTFSC 
GOTO 
GOTO 


GOCW 


MOVLW 
MOVWE 
CALL 


RLDCW 
MOVF 
MOVWE 
MOVE 
MOVWE 
CLRWDT 


CWHI 
BSF 
DECFE SZ 
GOTO 
CWLO 
BCF 
DECFSZ 
GOTO 
DECESZ 
GOTO 
GOTO 


SUMHI, 7 
POS LM 
SUMHI, 1 
SUMLO, 1 
SUMLO, 1 


1H 
SUMHT, 0 
SWR, CARRY 
LB_L 

64H 

SUMLO 

LP EXIT 


64H 
SUMLO, 0 
SWR, CARRY 
LP EXIT 
64H 

SUMLO 


SUMLO, W 
PCNT 


FLAGS,DIR 
GOCCW 
GOCW 


PORTB, PWMCCW 
64H 

CYCLES 
CALCTIMES 


HI,0 
HIT 
LO, 0 
LO 7 


PORTB, PWMCW 
HI_T,1 
CWHI 


PORTB, PWMCW 
LOT 

CWLO 
CYCLES, 1 
RLDCW 

BEGIN 


~a 


-™e 7s =s =e =e se “es 


“ses “a 


“es Se 


=e “a ove 


“es 


we 


 ~s se Fe -e se Ye Ms Of 


ak i a el ed id) 


CHECK TO SEE IF IT IS NEGATIVE 


SUBTRACT 1 FROM THE HIGH BYTE TO SEE 
IF THERE IS ANYTHING THERE, IF NOT, 
THEN LEAVE THE LOW BYTE ALONE 
OTHERWISE GIVE THE LOW BYTE A FULL 
COUNT AND IT WILL HAVE BEEN LIMITED 
TO 100 

GOTO LIMIT PERCENT EXIT 


LIMIT THE MAGNITUDE OF THE VALUE TO 
100 DECIMAL 


STORE THE LIMITED VALUE IN 
THE PERCENT DUTYCYCLE REQUEST 


KKK KKK KKK KK KKK KEKE KK KKK KK KKH KEK KKK KEK KKK KEK KE KKEKKKKEKKKKK KK KKK 


PWM GENERATING ROUTINE 


The important thing here is not to have to do too many decisions or 
calculations while you are generating the 100 or so pulses. 
take time and limit the minimum or maximum duty cycle. 


These will 


CHECK THE DIRECTION FLAG 
DO CCW PULSES FOR 1 
DO CW PULSES FOR 0 


SET THE BRIDGE FOR CW MOVE 


SET UP CYCLES COUNTER FOR 100 PULSES 
CALCULATE THE HI AND LO TIMES 


RE LOAD THE HI TIMER 
WITH THE CALCULATED TIME 
RE LOAD THE LO TIMER 
WITH THE CALCULATED TIME 
TAG THE WATCHDOG TIMER 


SET THE CLOCKWISE PWMBIT HIGH 
DECREMENT THE HI USEC. COUNTER 
DO ANOTHER LOOP 


SET THE CLOCKWISE PWM BIT LOW 
DECREMENT THE LO USEC. COUNTER 

DO ANOTHER LOOP 

DECREMENT THE NUMBER OF CYCLES LEFT 
DO ANOTHER PULSE 

DO ANOTHER MAIN SYSTEM CYCLE 
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GOCCW 
0176 0406 BCE PORTB, PWMCW ; SET THE BRIDGE FOR CCW MOVE 
0177 0C64 MOVLW 64H ; 
0178 0032 MOVWE CYCLES ; SET UP CYCLE COUNTER FOR 100 PULSES 
0179 0943 CALL CALCTIMES ; CALCULATE THE HI AND LO TIMES 
RLDCCW 
O1L7A 0207 MOVE HI,0 ; RE LOAD THE HI TIMER 
017B 002A MOVWE HiT ; WITH THE CALCULATED TIME 
017C 0208 MOVE LO, 0 ; RE LOAD THE LO TIMER 
017D 002B MOVWE LO_T ; WITH THE CALCULATED TIME 
O17E 0004 CLRWDT ; TAG THE WATCHDOG 
CCWHI 
O17F 0526 BSF ‘PORTB, PWMCCW ; SET THE COUNTERCLOCKWISE PWM BIT HIGH 
0180 O2EA DECFSZ HI_T,1 ; DECREMENT THE HI USEC. COUNTER 
0181 OB7F GOTO CCWHI ; DO ANOTHER LOOP 
CCWLO 
0182 0426 BCF PORTB, PWMCCW ; SET THE COUNTERCLOCKWISE PWM BIT LOW 
0183 02EB DECFSZ LO T,1 ; DECREMENT THE LO USEC. COUNTER 
0184 0B82 GOTO CCWLO ; DO ANOTHER LOOP 
0185 02F2 DECFSZ CYCLES,1 ; DECREMENT THE NUMBER OF CYCLES LEFT 
0186 OBT7A GOTO. RLDCCW ; DO ANOTHER PULSE 
0187 0A50 GOTO BEGIN ; DO ANOTHER MAIN SYSTEM CYCLE 


Pacis late eh S iBall START VECTOR *k KKK KKKKKKKKKKKKEKK 


CLRREG ; INITIALIZE REGISTERS 


0188 0COB MOVLW 0BH SET PORT A FOR 3 INPUTS AND 


0189 0005 TRIS PORTA ; AN OUTPUT 
018A OC1C MOVLW 1CH ; SET PORT B FOR INPUTS AND OUTPUTS 
018B 0006 TRIS PORTB ; THIS SETTING FOR SENDING TO A/D 
018C 0040 CLRW ; CLEAR THE W REGISTER 
018D 0002 OPTION ; STORE THE W REG IN THE OPTION REG 
O18E 0C08 MOVLW 08H ; STARTING REGISTER TO ZERO 
O18F 0024 MOVWE FSR ; 
GCLR 

0190 0060 CLRF 00 ; 
0191 03E4 INCFSZ FSR >; SKIP AFTER ALL REGISTERS 
0192 0B90 GOTO GCLR ; HAVE BEEN INITIALIZED 
0193 O0AS0 GOTO BEGIN ; START AT THE BEGINING OF THE PROGRAM 

ORG O1FF ; 
O1LFF OB88 GOTO CLRREG ; START VECTOR 

END 

Errors : 0 
Warnings : 0 
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Programming PIC16C5X Devices on Data I/O's Unisite™ Universal Programmer 





INTRODUCTION 


UNISITE, from Data !/O Corporation, is a universal 
programming system that supports a wide variety of 
programmable IC on the market, including Microchip’s 
PIC16C5X series of EPROM-based single-chip micro- 
controllers. 


The UNISITE is available in various versions and op- 
tions for: ; 


e single unit programming 

¢ gang/set programming 

¢ IC-handler interfacing 

¢ support for devices in surface mountable packages 


This application note describes three ways of program- 
ming PIC16C5X devices on this programmer for 
prototyping during development and production pro- 
gramming inmedium and high volumes. Only PIC16C5X 
specific topics will be covered. For more information on 
using the UNISITE in general, please refer to Data I/O’s 
literature. 


REQUIRED EQUIPMENT OPTIONS 


The basic version of the UNISITE with 28-pin support 
(SITE 48™) and software/firmware release V3.0 is the 
base requirement to program PIC16C5X devices (see 
Note 1). In addition, a “dumb” terminal with RS232 
interface, or a personal computer with Data I/O’s propri- 
etary “PROMLINk’” software, any standard communica- 
tion software package (e.g., PROCOMM"”) is required to 
contro! UNISITE and/or to download object files. 


Note 1: Software release V2.8 supports the PIC16C5X 
series except for the code protect function. Do 
not use this function with V2.8 as the devices 
may not be functional in the application after- 


wards. 

Note 2: The “SETSITE™” option does not support mi- 
crocontrollers. 

Note 3: The “CHIPSITE™” option is not supported by 


the software release V3.0 regarding PIC16C5X 
programming. To program PIC16C5Xs in sur- 
face mount packages (such as PLCC and 
SOIC) use adapter sockets that piug into a DIP 
socket. 
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THREE WAYS TO PROGRAM 
PIC16C5X DEVICES ON THE UNISITE 


Duplication of a “Master” Device 


This is the easiest way to program PIC16C5Xs on the 
UNISITE. Only a “dumb” terminal is required and an 
already programmed “Master” PIC16C5X. The “Master” 
can be generated by either using Microchip’s PICPRO 
programmer or by using the method as described in the 
section titled “Prototype Programming” of this applica- 
tion note. 


Step 1: Select the appropriate PIC16C5X device from 
UNISITE software menu. 


Load the “Master” PIC16C5X into the UNISITE’s 
RAM using the corresponding menu function. 
All program memory locations of the PIC16C5x, 
including the configuration EPROM (watchdog 
timer disable fuse and oscillator selection) and 
the customer ID bits will be loaded and stored. 
Note that the “Master” PIC16C5X must not be 
code protected. 


Remove the “Master” PIC16C5X and insert a 
blank PIC into the programming socket. 


Step 2: 


Step 3: 


When programming OTP devices, make sure 
that the oscillator type of the OTP part matches 
the oscillator selection of your “Master” 
PIC16C5X as the oscillator type of an OTP part 
cannot be changed by the programmer. 


When programming windowed devices, the 
oscillator selection of the “Master” PIC16C5X 
will be duplicated as well. 


Step 4: Activate the “Program” menu function of the 


UNISITE. 
A. If no code protection is desired: 
Hit the <CR> key. 


The UNISITE will produce a 1:1 copy of the 
“Master”, including customer ID code and 
configuration EPROM. After successful pro- 
gramming a checksum is being displayed in 
the message line. Note that this checksum 
is different from the one generated by 
Microchip’s PICPRO due to. different ways 
of computation. 


B. If code protection is desired: 


Select “security fuse data” to be “1” and 
enable “security fuse option” (“Y”). 


Then hit <CR>. 
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The “Master” unit will be copied 1:1 into the 
blank device, will be verified, and then the code 
protection fuse will be blown. After successful 
programming achecksum is being displayed in 
the message line. 


Note that this checksum is generated before 


the code protection has been activated. Thus, 
it is the same as in Option A. 


Steps 3 and 4 can be executed as often as required to 
produce any amount of “duplicates”. 


As the programming time for PIC16C54 or PIC16C55, 
respectively, is less than five seconds, this method is 
very effective and fast for any kind of production pro- 
gramming of PIC16C5X devices. 


An alternative way to duplicate a PIC16C5X device, if no 
code protection is desired, is given with the “Quick Copy” 
command of the UNISITE. . 


PROTOTYPE PROGRAMMING 


This method allows the generation of a prototype or 
“Master” PIC16C5X during the product development 
cycle. A personal computer is required to: 


A. generate a formatted PIC16C5X object file using 
MPALC and, . 


B. download the contents of this file to the UNISITE. 


Besides the normal object code, the configuration 
EPROM of the PIC16C5X device and, optionally, the 
customer ID bits have to be specified before program- 
ming a PIC16C5X device on the UNISITE. 


Step 1: Write the application source code with the pro- 
cessor selection of your choice specified in the 
LIST assembler directive. 


Example: LIST P=16C55 


Step 2: Assemble your source code and debug with 
PICMASTER or MPSIM as required. 


Step 3: Modify your debugged source file: 


A. Change the processor selection in the LIST 
directive to: 


P=16C62 


This enables MPALC to accept addresses 
above the normal program memory space. 


B. Define customer ID code by adding before 
the END statement: 


ORG N ‘see Table 1 for value of N 


DATA 1D3,ID2,1D1,IDO ;four hex digits representing 
‘the ID code 


DATA  B’CONFIQG’ ‘three bits - see Table 2 





TABLE 1 - PIC16C5X ID CODE 
START ADDRESS 
[Device | "N" | _BlockSize _ 











40A (hex) | 


PIC16C55 200 (hex) 40A (hex) 
PIC16C56 400 (hex) 80A (hex) 
PIC16C57 800 (hex) 100A (hex) 


Note: The block size in UNISITE is the total number of 
bytes. For PIC16C54, for example, total number 
of words = 1FFh + 4 (ID locations) + 1 (configu- 
ration word) = 205h. The total number of bytes, 
is therefore, 40Ah. | 





TABLE 2 - PIC16C5X 
CONFIGURATION 
EPROM FUSES 


Configuration 
Function 
WDT Enabled (Default) 
WDT Disabled 


LP Oscillator 
XT Oscillator 
HS Oscillator 
RC Oscillator 


Example: 

ORG = 200H ;PIC16C54 or PIC16C55 
DATA 0,0A,3,0F — ;ID code = OASF (hex) 
DATA  B’001' jWDT disabled, XT oscillator 


Step 4: Re-assemble the modified source code with 
MPALC, specifying the “merged hex” output 
file format (INHX8M) in the command line. 


Example: MPALC —F INHX8M <filename> 
or 
Example: LIST P=16C54, F=INHX8M 


Step 5: Establish communication with UNISITE and 
select the desired PIC16C5X device from the 
UNISITE menu. 


Step 6: Select the file transfer menu of the UNISITE 
software. Specify data translation format as 
“83”. (Note that the file size and addresses 
relate to byte counts - not 12-bit words; one 
PiIC16C5X location corresponds to two bytes.) 
You may want to “fill” the memory with “FFh” 
before downloading. 
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Step 7: Download the object file into the UNISITE 
RAM using the ASCII file transfer option of the 
serial communication software or the corre- 
sponding PROMLINK function. 

Step 8: Select “program” menu. Handle the code 


protect option the same as in Step 4 of the 
section titled Duplication of a “Master” Device. 


Aiternative to Define Customer ID code and 
Configuration EPROM 


lf your are familiar with the UNISITE, you may skip Step 
3 and edit the customer ID code and configuration 
EPROM directly in the UNISITE RAM in Step 6. 


When doing so, you have to reduce the file size and 
address limits of the UNISITE default values (Step 6) by 
ten before downloading the object file (Step 7). 


After downloading, edit the data of the customer ID 
location (See Table 1) one hex digit per location and the 


location immediately after ID locations per Table 2 (Step 


7A). Note that you have to convert the binary CONFIG 
value to a hex value first. The most significant bits are 
“don’t cares” in both cases. 


Then continue with Step 8. 


High Volume Programming with IC-Handler 


For the fastest and most efficient programming of 
PiIC16C5X devices in high volumes, an |C-handler should 
be employed. The UNISITE provides with its 
“HANDLERSITE™” option, support for this application. 


Data I/O and the manufacturer of the IC-handler should 
be contacted for further setup information. 


This is the only recommended way for high volume 
programming the PIC16C5X devices in surface mount- 
able packages (e.g., SOIC packages) at the customer’s 
facilities. 


The object data can be loaded into the UNISITE’s RAM 
with any of the methods described above. 


Author: Sumit Mitra 


Logic Products Division 





i 
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INTRODUCTION 


The ALLPRO, from Logical Devices, is a universal 
programming system supporting a wide range of pro- 
grammable devices, including Microchip’s PIC16C5X 
series of EPROM based single-chip microcontrollers. 


This application note describes two ways of program- 
ming PIC16C5X devices on this programmer for 
prototyping during development and production pro- 
gramming. Only PIC16C5X specific topics will be cov- 
ered. For more information on using the ALLPRO in 
general, please refer to Logical Devices’ literature. 


REQUIRED EQUIPMENT OPTIONS 


The basic version of the ALLPRO with 40-pin support 
and software/firmware release V1.49C is sufficient to 
program PIC16C5X devices. In addition, a personal 
computer with ALLPRO’s proprietary software and inter- 
face card is required to control the ALLPRO and to 
download object files. 


TWO WAYS TO PROGRAM PIC16C5X 
DEVICES ON THE ALLPRO 


Duplication of a “Master” Device 


This is the easiest way to program PICs onthe ALLPRO. 
Only an already programmed “Master” PIC16C5X is 
required. The “Master” can be generated by either using 
Microchip’s PICPRO programmer or by using the method 
as described in the section titled “Prototype Program- 
ming” of this application note. 


Step 1: Run the ALLPRO program on the PC and 
select the “DEVICE SELECT” menu. Type 
“MICMIC” where the first MIC is for microcon- 
trollers and the second MIC is for Microchip. 
Then select the appropriate device.. 


Step 2: Place the “Master” device into the ALLPRO 
socket and select “LOAD DEVICE” from the 
menu to load the “Master” PIC16C5X into the 
ALLPRO’s RAM. All program memory loca- 
tions of the PIC, including the configuration 
EPROM (watchdog timer disable fuse and 
oscillator selection) and the customer ID bits 
will be loaded and stored. Note that the “Mas- 
ter” PIC16C5X must not be code protected. 


Step 3: Remove the “Master” PIC16C5X and insert a 
blank PIC16C5X into the programming socket. 


When programming OTP devices, make sure 
that the oscillator type of the OTP part matches 
the oscillator selection of your “Master” 
PIC16C5X as the oscillator type of an OTP part 
cannot be changed by the programmer. 


When programming windowed devices, the 
oscillator selection of the “Master” PIC16C5X 
will be duplicated as well. 


Step 4: Select the “PROGRAM DEVICE” menu func- 
tion of the ALLPRO and hit enter. 


The ALLPRO will produce a 1:1 copy of the 
“Master”, including customer ID code and con- 
figuration EPROM. After successful program- 
ming a checksum will be displayed in the 
message line. Note that this checksum is 
different from the one generated by Microchip's 
PICPRO due to different ways of computation. 


If code protection is desired, select “SECURE 
DEVICE” on the menu, then hit enter. This will 
blow the code protection fuse. 


Steps 3 and 4 can be executed as often as required to 
produce any amount of “duplicates”. The “Master” 
device only needs to be downloaded the first time. 


As the programming time for a PIC16C54 or PIC16C55 
is less than ten seconds, this method is very effective 
and fast for any kind of production programming of 
PIC16C5X devices. 


Prototype Programming 


This method allows the generation of a prototype or 
“Master” PIC16C5X during the product development 
cycle. A personal computer is required to: 


A. generate a formatted PIC16C5X object file using 
MPALC and, 


B. download the contents of this file to the ALLPRO. 


Besides the normal object code, the configuration 
EPROM of the PIC16C5xX device and, optionally, the 
customer ID bits have to be specified before program- 
ming a PIC16C5X device on the ALLPRO. 


Step 1: Write the application source code with the pro- 
cessor selection of your choice specified in the 
LIST assembler directive. 
Example: LIST P=16C55 


Step 2: Assemble your source code and debug with 
PICMASTER or MPSIM as required. 
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Step 3: Modify your debugged source file: 


A. Change the processor selection in the LIST 
directive to: 


P=16C62 — 


This enables MPALC to accept addresses 
above the normal program memory space. 


B. Define customer ID code by adding before 
the END statement: 


ORG N -see Table 1 for value of N 


DATA _1D3,ID2,ID1,|DO four hex digits representing 
the ID code 


ORG N+40 


DATA CONFIG slast three bits = config - see 


;Table 2 


TABLE 1 - PIC16C5X ID CODE 
START ADDRESS 


“N° 


TABLE 2 - PIC16C5X 
CONFIGURATION 
EPROM FUSES 


Configuration* 












Function 
WDT Enabled (Default) ~ 
WDT Disabled | 


LP Oscillator 
XT Oscillator 
HS Oscillator 
RC Oscillator (Default) 


* Bits 3-7 must always be 1. 





Example: 

ORG 200(HEX) 
DATA  0,0A,3,0F 
ORG 240 
DATA OF9 ;WDT disabled, XT oscillator 


Step 4: Re-assemble the modified source code with 
MPALC, specifying the “merged hex” output 
file format (INHX8M) in the command line 


Example: MPALC—F INHX8M <filename> 
or the LIST directive of your source file. 
Example: LIST P=16C62, F=INHX8M 


Step 5: Upload the data file into the ALLPRO RAM 
using the “READ DATA FILE” menu com- 
mand.. 


Step 6: Select“PROGRAM DEVICE” menu and handle 
code protection option as described in Step 4 
from the section titled “Duplication of Master 
Device”. 


-PIC16C54 or PIC16C55 
;ID code = OA3F (hex) 


Alternative Method to Load ID Code and 
Configuration EPROM 


You may skip Step 3 and edit the customer ID code and 
configuration EPROM directly in the ALLPRO RAM. 


After downloading the file (without ID and configuration 
data) to the ALLPRO’s RAM, use the “EDIT DATA” 
menu command to view the ALLPRO RAM. Push F8 to 
see and edit the ID locations. The ID can be entered 
directly on line 0. For example, the ID code ABCD would 
be entered as: 


0 - 0a 00 Ob 00 Oc 00 Od 00... 


where the first zero is the line number. Note that the 
INHX8M format has LSB first and MSB second so the 
code 0a 00 is actually 000a (the first ID code). 

To edit the configuration EPROM push F8 again. Enter 
the configuration data into the data location per Table 2 


above. The example (WDT disabled, crystal oscillator) 
would be: 


0 - f9 OF 


Note that the MSB is a “don’t care” and will show a 
different value when data is loaded from the PC (00) than 
from a “master” device (Of). : 


Author: Sumit Mitra 


Logic Products Division 
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INTRODUCTION FIGURE 1 - FLOW CHART FOR UN 
SIGNED 8 X 8 MULTIPLY 





This application note provides some utility math routines 
for Microchip’s PIC16C5X series of 8-bit microcon- 
trollers. The following math routines are provided: 
* 8 x 8 unsigned multiply 
¢ 16 x 16 double precision multiply 
¢ 16 x 16 double precision divide 
° 16 x 16 double precision addition 
* 16 x 16 double precision subtraction 
* floating point multiplication 
¢ floating point addition 
° floating point subtraction 
¢ BCD to binary conversion routines 
¢ binary to BCD conversion routines 
¢ BCD addition 
¢ BCD subtraction : sot 
* square root noe pee 
These are written in native assembly language and the 
listing files are provided. They are also available on a 
disk (MS-DOS*°). All the routines provided can be called 
as subroutines. Most of the routines have two different 
versions: one optimized for speed and the other opti- 
mized for code size. The calling sequence of each 
routine is explained at the beginning of each listing file. 
SINGLE PRECISION UNSIGNED 
MULTIPLICATION (8 X 8) 
This routine computes the product of two unsigned 8-bit 
numbers and produces a 16-bit result. Two routines are 
provided: one routine is optimized for speed (by writing 
a Straight line code) and the other routine has been 
written to reduce the code size (a looped code). The 
listing of these routines are given in Appendices A and 
B. The performance specs for the routines are shown in 
Table 1. 


TABLE 1 - PERFORMANCE SPECS 


| Spec__| Program Memory | Instruction Cycles 
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DOUBLE PRECISION 
MULTIPLICATION 


This routine computes the product of two 16-bit numbers 
and produces a 32-bit result. Both signed and unsigned 
arithmetic are supported. Two routines are provided: 
one routine is optimized for speed (by writing a straight 
line code) and the other routine has been written to 
reduce the code size (a looped code). The listing of 
these routines are given in Appendices C and D. The 
performance specs for the routines are shown in 
Table 2. | 


TABLE 2 - PERFORMANCE SPECS 


Program Memory | Instruction Cycles 





Code Efficient 


The code in Appendices C and D has been setup for 
unsigned arithmetic and the performance specs in the 
table above is for unsigned arithmetic. If signed arith- 
metic is desired, edit the line with “Signed equ FALSE” 
to “Signed equ TRUE” then re-assemble the code. 


In case of signed multiply, both operands are assumed 
to be 16-bit 2’s complement numbers. 


Conditional assembly is supported by MPALC 
(PIC16C5X cross assembler) V2.1 orhigher. If you have 
an older version, please contact the Microchip Technol- 
ogy sales office nearest you. 


DOUBLE PRECISION DIVISION 


This routine divides two 16-bit numbers and produces a 
16-bit quotient with a 16-bit remainder. Both signed and 
unsigned arithmetic are supported. Two routines are 
provided. One routine is optimized for speed (by writing 
a straight line code) and the other routine has been 
written to reduce the code size (a looped code). The 
listing of these routines are given in Appendices E and 
F. The performance specs for the routines are shown in 
Table 3. 


TABLE 3 - PERFORMANCE SPECS 


As can be seen from the above table, writing a speed 
efficient (straight line code) for this routine does not 
produce an efficient code. In this case, the looped code 
has a better overall performance (code size versus the 
speed). The code in Appendices E and F has been 
setup for unsigned arithmetic and the performance 
specs in the table above is for unsigned arithmetic. If 
signed arithmetic is desired, edit the line with “Signed 
equ FALSE” to “ Signed equ TRUE” and then re- 
assemble the code. Signed division assumes two 16-bit 
2's complement numbers. 














DOUBLE PRECISION ADDITION & 
SUBTRACTION ~ 


This routine adds or subtracts two 16-bit numbers and 
produces a 16-bit result. This routine is used by other 
double precision routines. The listing of these routines 
is given in Appendix G. The performance specs for the 
routines are shown below: 


TABLE 4 - PERFORMANCE SPECS 


|_ Spec __| Program Memory | Instruction Cycles | 
7 


FLOATING POINT ROUTINES 


Four routines are implemented: addition, subtraction, 
multiplication and division. A floating point number is 
implemented as a number with 16-bit signed Mantissa 
and an 8-bit signed binary exponent, i.e , a number 
“Num” is represented as: 


Num = <+16-bit Mantissa> * (2**<+8-bit Exponent>) 


Also, a general purpose normalization routine is pro- 
vided and it is recommended that the user call this 
routine as often as possible to avoid loss of precision. 
The normalization routine is written to normalize the 
value in locations “ACCbHI and ACCbLO”. With minor 
modifications, the user may change this routine to nor- 
malize any two consecutive File registers (16 bits) by 
using indirect addressing scheme. 









In case of multiplication, if a 32-bit result (with 8-bit 
exponent) is desired, then the user should edit the line 
“Mode16 equ TRUE” and change to “Mode16 equ 
FALSE”. 


No attempt has been made to optimize the code for 
speed. Only a looped version of the code is provided 
(see Appendix H). Also, only the code size (memory 
requirement) is shown in the table below and not the 
execution time because, the execution time varies sig- 
nificantly depending upon the value of the operands(and 
how they are normalized). 


TABLE 5 - PERFORMANCE SPECS 


Spec Program Memory | Instruction Cycles 


Subtraction 





Multiplication 


The flow charts of the algorithm for addition/subtraction 
and multiplication are shown in Figures 2, 3 and 4, 
respectively. 


Please contact Microchip office for any code update. 
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FIGURE 2 - FLOW CHART FOR FLOATING FIGURE 3 - FLOW CHART FOR FLOATING 
POINT ADDITION AND POINT MULTIPLICATION 
SUBTRACTION 


Multiplication 
Routine 








Subtraction 
Routine 


ACCb—ACCa—® ACCb 


Obtain 2's Complement of ACCA 
(Call Nega) 


Addition 
a Routine 
Subtract Exponent A 
from Exponent B 





Determine Sign of Final Answer, 
Obtains 2's Complement of —-VE #s 







Move ACCB to ACCD, 
Clear ACCB, Initiate Temp to 16 











Add Multiplicand 
to the Partial 
Product (Call MADD) 
in ACCB 








Rotate ACCB Right (One Bit) 







Decrement Temp Register 





Swap Them 
(Call FSWAP) 


—_______> 


Shift ACCB Right 
Preserving the Sign, 
Increment B 


Obtains 2's Complement 
of ACCB 


Normalize ACCB to 
Maintain Precision 






eR APS IP SO TE I I EA EE ET LE SEITE 
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FIGURE 4 - FLOW CHART FOR FLOATING 
- POINT DIVISION 


Division 
Routine 


Determine Sign of Final Answer, 
Obtain 2's Complement of -VE #s 


Move ACCB to ACCD, Clear 
ACCB, ACCC Initiate Temp to 16 


Shift ACCD Left (One Bit) into ACCC, 
Check if ACCA is >, =, or < ACCC 


Subtract ACCA 
from ACCC 


Subtract ACCA 
Clear Carry from ACCC 


Shift ACCB (One Bit) Left 
to Shift in Carry 


Decrement Temp Reg 


Adjust ACCB if Final 
Answer was to be -VE 


BCD TO BINARY CONVERSION 


This routine converts a five digit BCD number to a 16-bit 
binary number. The listing of this routine is given in 
Appendix I. The performance spec for the routine is 
shown below: 





TABLE 6 - PERFORMANCE SPECS 


| Spec | Program Memory | Instruction Cycles | 





BINARY TO BCD CONVERSION 


Two routines are provided: one routine converts a 16- 
bit binary number to a five digit BCD number and the 
other routine converts an 8-bit binary number to a two 
digit BCD number. The listing of these routines are given 
in Appendices J and K. The performance specs for the 
routines are shown below: 


TABLE 7 - PERFORMANCE SPECS 


| _Spee_—_—_Program Memory [instruction Cycles 
Binary (8-Bit) to BCD 81 (Worst Case) 


FIGURE 5 - FLOW CHART FOR BINARY 
TO BCD CONVERSION 






Bin to BCD Binary to BCD 
Conversion 


In: BCD #In RO, R1, R2 


Count = 16 Out: Binary #In SO, $1 


RO=0, R1 =0 
R2=0 


BCD 
MSD LSD MSD _ LSD 


RO, R1, R2}—»| SO, Si 
Shift SO, S1 Left 


into RO, R1, R2 
der th RO = MSD 
(One Bit) R2=LSD 
SO = High Order Byte 
$1 = Low Order Byte 


Adjust BCD 
Adjust R2 


Adjust BCD 
Adjust R1 


Adjust BCD 
Adjust RO 


Adjust BCD 


FSR = 2 Digit 
BCD # 
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BCD ADDITION & SUBTRACTION 


These two routines perform a two digit unsigned BCD 
addition and subtraction. The results are the sum (or 
difference) in one File register and with a overflow carry- 
bit in another File register. The performance specs for 
the routines are shown below: 


TABLE 8 - PERFORMANCE SPECS 


| Sree oe ————— 


BCD Addition 23 (Worst Case) 
BCD Subtraction 21 (Worst Case) 












The listing files for the above two routines are given in 
Appendices L and M. The flow charts for BCD addition 
and BCD subtraction are given in Figures 6 and 7, 
respectively. 


FIGURE 6 - FLOW CHART FOR BCD 
ADDITION 


U BCD AD 





Perform Binary Addition 





SQUARE ROOT 


Often in many applications one needs to find the square 
root of anumber. Of many numerical methods to find the 
square root of a number, the Newton-Raphson method 
is very attractive because of its fast convergence rate. In 
this method the square root of anumber, “N”, is obtained 
from the approximate solution of: 


f(Y) = Y2-N=0 


FIGURE 7 - FLOW CHART FOR BCD 
SUBTRACTION 


U BCD SUB 
Do 2's Complement Binary Addition 


aa 6 


from LSD 


Subtract 6 
from MSD 





The function “f(Y)” can be expanded about Y, using first 
order Taylor polynomial expansion as: 


Equation 1: f(Y) =f (Y,)+(Y-Y,) f (Y,) + (Y-Y,) 2” (Y,)/2!+.... 
If X is a root of f(Y), then f(X) = 0: 
f(X) = f(Y,) + (X—Y,) f (Y,) + (X- Y,) 2 (Y,) /2 14+... =0 
lf YO is an approximate root of f(Y), then higher order 
terms are negligible. Therefore: 
Equation 2: f(Y,) + (X—Y,) f (Y,) 

i.e., X= Y,—f(Y,)/f (Y,) 
Thus, X is a better approximation for YO. From this, the 
sequence {Xn} can be generated: 
Equation 3: X,=X__,—f(X,_,)/f (X 
From equation 1 and equation 3 we get, 
Equation 4: X,=0.5* {X__, + N/X__,} 
An assembly language subroutine implementing the 
above algorithm is given in Figure 1.8. The initial 
approximate root of N is taken to be N/2. If the approxi- 
mate range of N is known a priori then the total number 


of iterations may be cut down by starting with a better 
approximate root than N/2. 


)n21 


n-14 


This program, as listed in Appendix N, computes the 
square root of a 16-bit number. This routine uses a 
double precision math routine (division and addition) as 
described in the previous pages of this application note. 


nn tt 
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APPENDIX A 
MPASM BO.54 PAGE 1. 
gk KK a KKK KKK KKK KKK KEK KKK KK KKK KEE KKK KK KKK KK KEKE KEK KEKEKKE KK KKK KKKKKKKE 
: 8x8 Software Multiplier 
‘ ( Code Efficient : Looped Code ) 
g KKK a aK KKK KK KKK KK KKK KK KKK KK KKK KK KEK KK KER KKK EEK KEKE KEKE KEKKEKKKKKKE 
; The 16 bit result is stored in 2 bytes 
; Before calling the subroutine “ mpy “, the multiplier should 
; be loaded in location “ mulplr “, and the multiplicand in 
; “ mulend “ . The 16 bit result is stored in locations 
; H_byte & L byte. 
: Performance ; 
: Program Memory : 15 locations 
; # of cycles e: “ah 
: Scratch RAM : 0 locations 
; This routine is optimized for code efficiency ( looped code ) 
; For time efficiency code refer to “mult8x8F.asm” ( straight line code ) 
ek KK Ke KK RIK KKK KK KKK KK KKK KKK KK KKK KK KKK EKKKK KK KKK KK KKEKKKEK 
LIST P=16C54 
0009 mulend equ 09 ; 8 bit multiplicand 
0010 mulplr equ 10 ; 8 bit multiplier 
0012 H byte equ 12 ; High byte of the 16 bit result 
0013 L byte equ is ; Low byte of the 16 bit result 
0014 count equ 14 ; loop counter 
include “mpreg.h” 
PERK ARK KKK KEKE KK EK KEK KKK KKK PIC16C5X Header KKK KEKE KEKEKKKKEKKKEK KKK KKKK 
O1FF PIC54 equ 1FFH ; Define Reset Vectors 
O1FF PIC55 equ 1FFH 
O3FF PIC56 equ 3FFH 
O7EF | PIC57 equ 7EFH 
0001 RTCC equ lh 
0002 PC equ 2h 
0003 STATUS equ an ; F3 Reg is STATUS Reg. 
0004 FSR equ 4h 
0005 Port_A equ Sh 
0006 Port B equ 6h ; I/O Port Assignments 
0007 Port C equ 7h 
Rk eH IK KI KK KK IK KK KK IKK KK KK KKK KEK KK EK KKK KKK KK KEK KKK KK KK 
; ; STATUS REG. Bits 
0000 CARRY equ Oh ; Carry Bit is Bit.0 of F3 
0000 C equ Oh 
0001 DCARRY equ lh 
0001 DC equ lh 
0002 2 bit equ 2h ? Bite 2 OF FS 2s Zero Bit 
0002 Z equ 2h 
0003 P_DOWN equ 3h 
0003 PD equ 3h 
0004 T_OUT equ 4h 
0004 TO equ 4h 
0005 PAO equ Sh 
0006 PA1 equ 6h 
0007 PA2 equ Th 





IAA SI AR AIC RRO IRE LIED OC PELL ST NT INTE NOR LER A IO ET I ES IT REEL SI ELIS EDDIE PLAS TEINS LINE MDL IE PELE ETI LEN EDIE ES LAE ASAE ACE LD ALTE RODE SABA ILEE ETE, 
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0001 Same equ lh 
0000 LSB equ Oh 
0007 MSB equ Th 
0001 TRUE equ lh 
0001 YES equ lh 
0000 FALSE equ Oh 
0000 NO equ Oh 


pK KKK KKK KK KKKKKEKKK KKK KKK KKK RK KKK KKK kkk kk KK KK KKK KARR KKK KK 


RK I RO IK RK RK KKK EK Begin Multiplier Routine 
0000 0072 mpy S$ eLre H_ byte 
0001 0073 Clre L_ byte 
0002 0C08 mov lw 8 
0003 0034 movwf count 
0004 0209 movf mulcnd, w 
0005 0403 Bot STATUS, CARRY ; Clear the carry bit in the status Reg. 
0006 0330 loop cre mulplr 
0007 0603 btfsc STATUS, CARRY 
0008 O1F2 addwf H_ byte, Same 
0009 0332 rrf H_ byte, Same 
000A 0333 ere L_byte, Same 
000B O02F4 decfsz count 
000C OAD06 goto loop 
Q0O0O0D 0800 retlw 0 


KKK KKKE KKK KK KKK KKK KKK KKK KKK KKK KEKE KKK KKK EK KEKE KKK KKK KEK KKK KKK KKKKKKKK 


Test Program 
KKK KK KEK KK KKK KEK KKK KEKE KKK KEKE KKK KKK KKK KK KEKE KEK KEKE KKK EKKEKKKEKEKEKHKKEKEKK 


° 
‘ 
« 
’ 
° 
, 
s 


’ 


OOOE OCFF main movlw OFF 
OOO0F 0030 movwft mulplr ?; multiplier (in mulplr) = OFF 
0010 OCFF mov lw OFF > multiplicand(W Reg ) = OFF 
0011 0029 movwf mulcnd 
0012 0900 call mpy_S ; The result OFF*OFF = FEO1 is in locations 
; ; H_byte & L byte 
0013 0A13 self goto self 
org O1LFF 
O1FEF OAOE goto main 
END 
Errors : 0 
Warnings : 0 
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APPENDIX B 
MPASM BO.54 | PAGE 1 
pK KKK KEKE KK KEK EK HK K KK KKK KK KEK KK EK KK KEKE KKK KEK RE KKKKKEKKEKRKKKKKKKKKKEKEK 
; 8x8 Software Multiplier 
; ( Fast Version : Straight Line Code ) 
pK KKK KKK KK KK KK KKK KK KK IKK KKK KK KKH KK KKK IK KKK KK KEK KKK KK KKK KEKKKK KEKE 
; The 16 bit result is stored in 2 bytes 
; Before calling the subroutine “ mpy “, the multiplier should 
; be loaded in location “ mulplr “, and the multiplicand in 
; “ mulcnd “ . The 16 bit result is stored in locations 
; H_byte & L byte. 
; Performance ;: 
: Program Memory : 35 locations 
: # of cycles o; rad 
: Scratch RAM ‘ 0 locations 
; This routine is optimized for speed efficiency ( straight line code ) 
; For code efficiency, refer to “mult8x8S.asm” ( looped code } 
pk I KK IK KK KK KKK IK KK KKK KH KKK KKK KKK KKK KK KKK KEK KK KKK KKK KK KKK KEK 
LIST P=16C54 | 
0009 mulcnd equ 09 ; 8 bit multiplicand 
0010 mulplr equ 10 ; 8 bit multiplier 
0012 H byte equ LZ > High byte of the 16 bit result 
0013 L byte equ 13 ; Low byte of the 16 bit result 
include “picreg.h” 
pK KKK KK KKK KKK KK KK KKK KK PIC16C5xX Header KkkKe kK KKK Kh Keke KK KKK KKK KKK 
O1LFFE PIC54 equ LFFH ; Define Reset Vectors 
O1LFF PICS5 equ 1FFH 
O3FF PIC56 equ 3F FH 
O7FF PIC57 equ TEEH 
0001 RTCC equ Hala 
0002 PC equ 2h 
0003 STATUS equ 3h ; F3 Reg is STATUS Reg. 
0004 FSR equ 4h 
0005 Port_A equ oh 
0006 Port B equ 6h ; I/O Port Assignments 
0007 Port_C equ 7h 
RRR SEILER ETA ERA RE 
; ; STATUS REG. Bits 
0000 CARRY equ Oh > Carry Bit is Bit.0 of F3 
0000 c equ Oh 
0001 DCARRY equ lh 
0001 DC equ lh 
0002 obit equ 2h ; Bit 2 of F3 is Zero Bit 
0002 Z equ 2h 
0003 P DOWN equ 3h 
0003 PD equ 3h 
0004 T OUT equ 4h 
0004 TO equ 4h 
0005 PAO equ 5h 
0006 PA1 equ 6h 
0007 PA2 equ fia) 


0001 Same equ lh 
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0000 LSB equ Oh 
0007 MSB equ , th 
0001 TRUE equ lh 
0001 YES equ lh 
0000 FALSE equ On 
0000 NO equ Oh 


. 
, 


pe RK RR kK RO kkk tok kk kk kok kk kak kK KK KKK KK Rk kkk 


pean Define a macro for adding & right shifting ** 
mult MACRO bit ; Begin macro 

btfse mulplr,bit 

addwf H byte,Same 





prt H byte,Same 
ree L byte, Same 
ENDM ; End of macro 
; KKK KKK KKK KKK KKK KK KKK KKK Begin Multiplier Routine 
0000 0072 mpy_ F Cire H_ byte 
0001 0073 Clrt L_byte 
0002 0209 mov f mulcnd,w ; move the multiplicand to W reg. 
0003 0403 ocf STATUS, CARRY ; Clear the carry bit in the status Reg. 
mult 0 
0004 0610 btfsc mulplr, 0 
0005 O1F2 addwf H_ byte, Same 
0006 0332 Ere H_ byte, Same 
0007 0333 cre L_ byte, Same 
mult a 
0008 0630 btfsc mulplr,1 
0009 O1F2 addwf H_ byte, Same 
QOO0A 0332 jan ae H_ byte, Same 
000B 0333 a L_ byte, Same 
mult 2 
000C 0650 btfsc mulplr, 2 
O00D O1F2 addwf H_ byte, Same 
OO0OE 0332 rrf H_ byte, Same 
QOOOF 0333 Prt L_ byte, Same 
mult 3 
0010 0670 btisc malo lr; 3 
0011 O1F2 addwf H_ byte, Same 
0012 0332 rrf H_ byte, Same 
0013 0333 bo of L byte, Same 
mult 4 
0014 0690 btfsc mulplr,4 
0015 O1F2 addwf H_ byte, Same 
0016 0332 LEE H byte, Same 
0017 0333 ap a L byte, Same 
mult 5 
0018 O6BO0 btfsc muiplr, S 
0019 O1F2 addwf H byte, Same 
OO1A 0332 ret H_ byte, Same 
001B 0333 Err L_ byte, Same 
mult 6 
001C O06D0 btfsc mulplr, 6 
001D O1F2 addwf H_ byte, Same 
OO1E 0332 rrft H_ byte, Same 
001F 0333 EEE L_ byte, Same 
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0020 O06F0 
0021 O1F2 
0022 0332 
0023 0333 


0024 0800 


0025 OCFF 


0026 0030 


0027 OCFF 


0028 0029 


0029 0900 


002A OA2A 


O1FF OA25 


Krrors : 0 
Warnings : 


oO 


mult 7 
btfsc 
addwf 
rrf 
rrf 


=e 


retlw 


=e we Te 


mulplr,7 

H_ byte, Same 
H_byte, Same 
L_byte, Same 


0 


RKKKEKKKKKEKKKKKE KK KKK KK KK KEKE KEK KK EK KEK KKK KK KEKE KEK EKK KKK KKKKEKKKKKKEKEK 


Test Program 


RAK KK KKK EEK KK KKK KKK KK KEKE KKK KEK KEKE EK KKK KERR KEK EKEKEKKEKEKKKEKKKKK 


main movlw 
movwf 
moviw 
movwt 


“es 


call 


goto 


-e YF oe ss 
@e 
e 
rh 


org 
goto 


END 


OFF 

mulplr ; multiplier (in mulplr) = OFF 

OFF 

mulcnd ; multiplicand(in mulecnd ) = OFF 

mpy F ; The result OFF*OFF = FEO] is in locations 
; H byte & L_ byte 

self 

O1FF 

main 





LE ARS aE RN IT ET LIL A I I I EE TE aS Ea a ICE Ne A EE EE a a EE 
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APPENDIX C: DOUBLE PRECISION MULTIPLICATION LISTING (LOOPED) 


MPASM BO.54 PAGE 1 


KKK a KK KK KKK KK KKK KK KKK KKK KKK KKK KKK KEK KK KKK KKKKK KKK KEKE 


Double Precision Multiplication 


( Optimized for Code Size : Looped Code ) 


KR KKK KKK KEK KK KEK RIK KK KKK EK KEK EK KK KEK KK KK KKK KEK KEKE KKK KKK KK KEKE KEKEKKE 2 


Multiplication : ACCb(16 bits) * ACCa(16 bits) -> ACCb,ACCc ( 32 bits ) 
(a) Load the lst operand in location ACCaLO & ACCaHI ( 16 bits ) 
{b) Load the 2nd cperand in location ACChLO & ACCbHI ( 16 bits } 
(c) CALL D_mpy 
(dad) The 32 bit result is in location ( ACCbHI,ACCbDLO, ACCcHI,ACCCLO ) 





Performance ; 
Program Memory : 033 
Clock Cycles : 333 


Note : The above timing is the worst case timing, when the 
register ACCb = FFFF. The speed may be improved if 
the register ACCb contains a number ( out of the two 
numbers ) with less number of ls. 
The performance specs are for Unsigned arithmetic ( i.e, 
with “SIGNED equ FALSE “). 


-e ses 7s “e Ye “ses “es “ses ~s “es “Ss “8s eae ~“s “se Ss “Ss se Ys MSH “SH “SO we 


The performance specs are for Unsigned arithmetic ( i.e, 
with “SIGNED equ FALSE “). 


Te I RI I I I kk kk ek kkk kK KKK KK KKK KK » 


=e =~. *e @™s eae 


LIST P=16C54 


0010 ACCaLO- equ 10 
0011 ACCaHI equ ia 
0012 ACCbLO equ 12 
0013 ACCbHI equ 23 
0014 ACCcLO- equ 14 
0015 ACCcHI equ 15 
0016 ACCALO equ 16 
0017 ACCdHI equ 17 
0018 temp equ 18 
0019 sign equ 19 


° 
, 


include “picreg.h” 


PRK KKK KKK KK KKK KKK RK KK ee PIC16C5X Header KKK KK KKK KK KKH HKKKEKKK KEKE 

O1LFF PIC54 equ LPFH ; Define Reset Vectors 
O1FF PICS5 equ 1FFH 

O3FF PIC56 equ 3F FH 

O7FE PIC5? equ TEEH 

0001 RTC equ lh 

0002 Bo equ 2h 

0003 STATUS equ 3h ; F3 Reg is STATUS Reg. 
0004 FSR equ 4h 

0005 Port_A equ oh 

0006 Port B equ 6h ; I/O Port Assignments 


0007 Port C equ 7h 


e 
‘ 


KKK KK KKK KKK KKK KK KR KKK KKK KKK KKK KKK KKK KKK KKKKKEKK KK KK 


¢ 
s 
¢ 
s 
, 


; STATUS REG. Bits 
0000 CARRY equ Oh ’ Carry Bit is Bit.0 of F3 
0000 (e equ Oh 
0001 DCARRY equ lh 
0001 DC equ lh 
0002 Z bit equ 2h + Bak 2 Of FS: as -2ere: BY 
0002 Zz equ 2h 





ARE I WN EN IND BEC TE SE BI ES IE LIT DE I ET a WE TTA ES I TT TT Ia AI LE ATE a CD OO 
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0003 P_DOWN equ 3h 
0003 PD equ 3h 
0004 . T OUT equ 4h 
0004 TO equ 4h 
0005 PAO equ 5h 
0006 PA1 equ 6h 
0007 PA2 equ Th 
0001 Same equ lh 
0000 LSB equ Oh 
0007 MSB equ Th 
0001 TRUE equ lh 
0001 YES equ lh 
0000 FALSE equ Oh 
0000 NO equ Oh 


PR KKK RK ARK KKK KKKKKKKKKK KK KK KKK KKK KKK KKK KKK KKK KH KKK KKK KKK KKKKEK KK KKEKKEK 


or 0 

rilcudelun) -ieaee Meebo is Riawcays cel wile cabeeerennee teers 
0001 SIGNED equ TRUE Set This To ‘TRUE’ if the routines 
for Multiplication & Division needs 
to be assembled as Signed Integer 
Routines. If ‘FALSE’ the above two 
routines ( D_mpy & D div ) use 
unsigned arithmetic. 


KKK KK KEKE KKK KKK KK KH KK KKK KKK KKK KK KKK KK KKK KKK KKK KKH KKK KK KK KKK KK KKK KKK 


Double Precision Subtraction ( ACCb - ACCa -> ACCb ) 


-e se Se Se lume le 


UW se se se Se se te te te 





0000 0210 _add = movf ACCaLO,w ; Addition ( ACCbh + ACCa => ACCb ) 

0001 O1F2 addwf ACCbLO ;add lsb 

0002 0603 btfsc STATUS, CARRY ;add in carry 

0003 02B3 incf ACCbHI 

0004 0211 mov f ACCaHI,w 

0005 O01F3 addwf ACCbHI ;add msb 

0006 0800 retlw 0 
PR RRR EK KR KR KKK KK RK KR RIK HK KKK KE KK EK KK KKK KEK KEKE KKK KKK KK KKK KKK 
; Double Precision Multiply ( 16x16 -> 32 ) 
: { ACCb*ACCa -> ACCb,ACCc ) : 32 bit output with high word 
; in ACCb ( ACCHHI,ACCbLO ) and low word in ACCc ( ACCCcHI,ACCcLO ). 
D_mpySs sresults in ACCb(16 msb’s) and ACCc(16 

IF SIGNED 
0007 0930 CALL S_ SIGN 
ENDIF 

0008 0921 call setup 

0009 0337 mloop rrf ACCGHI ;rotate d right 

OOOA 0336 rrf ACCdLO 

000B 0603 btfsc STATUS, CARRY ;need to add? 

000C 0900 call D_add 

000D 0333 ELE ACCbHI 

OOO0E 0332 rrf ACCbLO 

OOOF 0335 rrt ACCcHI 

00190 0334 rrf ACCcLO 

0011 O2F8 decfsz temp ;loop until all bits checked 

0012 OA0D9 goto mloop 
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002A 
002B 
002C 
002D 
002E 
002F 


O7F9 
0800 
0274 
02B4 
0643 
OOFS 
0275 
0643 
0272 
02B2 
0643 
00F3 
0273 
0800 


0C10 
0038 
0213 
0037 
0212 
0036 
0073 
0072 
0800 


0270 
02B0 
0643 
OOF1 
0271 
0800 


0211 
0193 
0039 
O7F3 
OA3A 


0272 
02B2 
0643 
OOF3 
0273 


O7F1 
0800 
OA2A 


IF SIGNED 
btfss 
retlw 
comf 
incf 
btfsc 
decf 
comf 
btfsc 

neg B comf 
incf 
btfse 
decf 
comf 
retlw 

ELSE 
retlw 

ENDIF 


° 
‘, 


PRR KK ERK KK KKKKK KKK KK KKK KK KKK RK 


setup movliw 
movwf 
movt 
movwf 
movf 
movwt 
Clrt 
cilrt 
retlw 


“ee +e 


neg A comf 
inet 
btfsc 
decf 
comf 
retlw 


“a %e ~e we 


sign,MSB 

0 

ACCcLO 
ACCCLO 
STATUS, Z bit 
ACCcHI 
ACCcHI 
STATUS, Z bit 
ACCbLO 
ACCbLO 
STATUS, 2 bit 
ACCbHI 
ACCbHI 

0 


0 


«t6 

temp 
ACCbHI, w 
ACCdHI 
ACCbLO, w 
ACCALO 
ACCbHI 
ACCbDLO 

0 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 


ACCaLO 
ACCaLO 
STATUS,Z bit 
ACCaHI 
ACCaHI 

0 


IF SIGNED 


* 
’, 


S_ SIGN movf 
xorwf 
movwf 
btfss 
goto 


comf 
iNet 
btfsc 
decf 
comf 


chek A btfss 
retlw 
goto 


ENDIF 


ACCaHI,W 
ACCbHI, W 
sign 
ACCbHI,MSB 
chek A 


ACCbLO 
ACCbLO 
STATUS,Z bit 
ACCbHI 
ACCbHI 


ACCaHI,MSB 
0 
neg A 


7 negate ACCa ( -ACCa -> ACCa ) 


7; negate ACCb 


KEK KK KKK KKK KKK KKK KEK KKK KK KKK KKK KKEK 


> for 16 shifts 


smove ACCb to ACCd 


KKK KK KK KK KK KKK KKK KKK KKK KKK KK KKK KKK 


7; negate ACCa ( -ACCa -> ACCa ) 


KKK KKK KEK KKK KI KKK KKKKKKKKK KKK KKKK KKK KKK KKK KKK KKK KKK KK KK KKK KK KKK KKK 


Assemble this section only if Signed Arithmetic Needed 


; if MSB set go & negate ACCb 


7; negate ACCb 


; if MSB set go & negate ACCa 
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KKK KKK KK KK KKK KE KKK KK KKK KK KKK KK KKK KK KEK KK KEK KEKE KK KK KKK KK KKK KKKEKSE 


Test Program 
KEK KK KKK KE KKK KEK KKK KK KEK KK KKK KKK KK KKK KKK KKK KKK KKK KKE KK KKKKKKKKKEEEK 


Load constant values to ACCa & ACCb for testing 


2s te ~“e “ese we 


003D 0C01l main movlw ‘a 
003E 0031 movwf ACCaHI 
003F OCFF movlw OFF +: loads ACCa = O1FF 
0040 0030 movwf ACCaLO 
0041 OC7F movlw O7F 
0042 0033 movwf ACCbHI 
0043 OCFF moviw OFF > loads ACCb = JEFF 
0044 0032 movwf ACCbLO 
0045 0907 call D_mpyS >; Here (ACCb,ACCc) = OOFF 7E01 
0046 0A46 self goto self 
org PIC5S4 
O1FF OA3D goto main 
END 


g RRR KKK KKK RK EK KK KKK KK KEKE KK KH KK KKK KK KKK KK KK KKK KKK KKK KK KKK KKKEK 


Errors 
Warnings 


ee ee 
©o 
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APPENDIX D: DOUBLE PRECISION MULTIPLICATION LISTINGS (FAST) 


MPASM BO.54 PAGE 1 


wk Kk KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKKK KKK KKK KK KKK 


Double Precision Multiplication 


( Optimized for Speed : straight Line Code ) 


Te Hee Kee ee a KK KK IK KKK I I I TK TK KIT I IK IK IK KKK KK KKK KKK KEK KR KKK KEK» 


Multiplication : ACCb(16 bits) * ACCa(16 bits) -> ACCb,ACCce ( 32 bits ) 
(a) Load the lst operand in location ACCaLO & ACCaHI ( 16 bits ) 
(b) Load the 2nd operand in location ACCbLO & ACChHI ( 16 bits ) 
(c) CALL D_mpy 
(d) The 32 bit result is in location ( ACCbHI,ACCbLO, ACCcHI,ACCCLO ) 





Performance : 
Program Memory 
Clock Cycles 


240 
233 


Note : The above timing is the worst case timing, when the 
register ACCb = FFFF. The speed may be improved if 
the register ACCb contains a number ( out of the two 
numbers ) with less number of ls. 


~s ~s ~“e ~s “8 “28 “ses ~s “ea “s “se “ese ep 8 “8 “ea “a MWe 


The performance specs are for Unsigned arithmetic ( i.e, 
with “SIGNED equ FALSE “). 


=e *e *e Ts Me 


Ke Fe tI I I I ITOK FO II II IO IO It kk tok 


® 
c 


LIST p=16c54 


0010 ACCaLO equ 10 
0011 ACCaHI equ es 
0012 ACCbLO- equ 12 
0013 ACCbHI equ 13 
0014 ACCcLO- equ 14 
0015 ACCcHI equ 15 
0016 ACCALO- equ 16 
0017 ACCGHI equ eat 
0018 temp equ 18 
0019 sign equ 19 


. 
, 


include “mpreg.h” 


SRR KEKEKKKEK KK KKK KEKK KK KK KE PIC16C5X Header KKK KKKKEKKKKKKK KKK KK KKKK 

O1FF PIC54 equ 1FFH ; Define Reset Vectors 
O1FF PIC55 equ 1LFFH 

O3FF PIC56 equ 3FFH 

O7FF PIC57 equ TEFH 

0001 RTCC equ ih 

0002 PC equ 2h 

0003 STATUS equ 3h ; F3 Reg is STATUS Reg. 
0004 FSR equ 4h 

0005 Port_A equ Sh 

0006 Port B- equ 6h ; I/O Port Assignments 
0007 Port _C equ fal 


s 
c 


I II III I III TI I TI I III IOI ITI IIE TOI FIR II I IOI Ia I ik KK KK 
2 
’ 
Ad 
’ 


STATUS REG. Bits 


e 
e 
e 
’ 


0000 CARRY equ Oh Carry Bit is Bit.0 of F3 
0000 Cc equ Oh 
0001 DCARRY equ th 
0001 DC equ lh 
0002 Z bit equ 2n ; Bit 2 of F3 is Zero Bit 
0002 Z equ 2h 
0003 P_DOWN equ 3h 





(CS RAPT OC PT TE aD I IT OTE SE TE ISTE TE OE TNT TEED SRT EDIT TIT LE ELE LE OTE ILE LE ETE 
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0003 PD equ 3h 
0004 T OUT equ 4h 
0004 TO equ 4h 
0005 PAO equ Sh 
0006 PAl equ 6h 
0007 PA2 equ 7h 
0001 Same equ lh 
0000 LSB equ Oh 
0007 MSB equ Th 
0001 TRUE equ 1h 
0001 YES. equ lh 
0000 FALSE equ Oh 
0000 NO equ Oh 


° 
e 


eK KK EEK KK KEKEKKKKKKKK KKK KK KKKKK KKK KK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KK KK 


or 0 
wihibu ieee aRwaaiWaeel iin eel Ott eweeiuyta meet i hades ie teee tds 
0000 SIGNED equ FALSE Set This To ‘TRUE’ if the routines 
for Multiplication & Division needs 
to be assembled as Signed Integer 
Routines. If ‘FALSE’ the above two 
routines ( D_mpy & D_div ) use 


unsigned arithmetic. 
KKK KEK KKK KK KKK KK KKK KK KEK KK KKK KKK KKK KKK KKK KKK KKK KEK KK KK KKK KK KKK KKK 


“se “s =e -s “« =e 


multiplication macro " 


a ad eT id ed ed ed id | 


mulMac MACRO 
LOCAL NO_ADD 


“es 


Ere ACCdHI ;rotate d right 
ref ACCALO 
btfss STATUS, CARRY ;need to add? 
goto NO_ADD | > no addition necessary 
movf ACCaLO,w + Addition ( ACCbh + ACCa -> ACCb ) 
addwf ACCbLO zadd lsb 
btfsc STATUS, CARRY radd in-carry 
incf ACCbHI 
movf ACCaHI,w 
addwf ACCbHI ;add msb 
NO_ADD rrf ACCbHI 
EEE ACCbLO 
rret ACCcHI 
Pre ACCcLO 
ENDM 


KKK KKK KEKE KK EK KKK KEK KKK KKK KK KKK KK KKK KK KK KK IKK KK KEKE KEK KKK KK KKK KK KKK KKK 9 
Double Precision Multiply ( 16x16 -> 32 ) 
( ACCb*ACCa -> ACCb,ACCc ) : 32 bit output with high word 
in ACCb ( ACCbHI,ACCbLO ) and low word in ACCc ( ACCcHI,ACCcLO }. 


sresults in ACCb(16 msb’s) and ACCc(16 lsb’s) 


3 
ue) 
< 

rj 


we (J we se se Se se Ne 


IF SIGNED 
CALL S SIGN 
ENDIF 


“e 


0000 09E2 call setup 


bd 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OO0A 
000B 
000C 
000D 
OO0E 


OO0OF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
OO1A 
001B 
001C 


001D 
OO1E 
OO1F 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
002A 


03537 
0336 
0703 
OAOB 
0210 
O1F2 
0603 
02B3 
0211 
O1F3 
0333 
0332 
0335 
0334 


0337 
0336 
0703 
0A19 
0210 
O1F2 
0603 
02B3 
0211 
O1F3 
0333 
0332 
0335 
0334 


0337 
0336 
0703 
OA27 
0210 
O1F2 
0603 
02B3 
0211 
O1F3 
0333 
0332 
0335 
0334 


mulMac 
LOCAL 


cre 
rrf 
btfss 
goto 
mov f 
addwf 
btfsc 
incf 
mov f 
addwf 
NO_ADD rrf 
rr 
rrf 
rer 


mulMac 
LOCAL 


Ert 
ETE 
btfss 
goto 
movf 
addwf 
bET-Sse 
inet 
movt 
addawf 
NO_ADD rrf 
rrf 
ree 
16 a 


mulMac 
LOCAL 


Ere 
rrf 
btfss 
goto 
movf 
addwf 
btfisc 
incf 
movf 
addwf 


NO_ADD rrf 


rrf 
rer 
rrf 


use the mulMac macro 16 times 


NO_ADD 


ACCdHI 
ACCdLO 
STATUS, CARRY 
NO_ADD 
ACCaLO, w 
ACCbLO 
STATUS, CARRY 
ACCbHT 
ACCaHI,w 
ACCbHI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCcLO 


NO_ADD 


ACCdHI 
ACCdLO 
STATUS, CARRY 
NO_ADD 
ACCaLO,w 
ACCbLO 
STATUS, CARRY 
ACCbHI 
ACCaHI,w 
ACCbHI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCcLO 


NO_ADD 


ACCdHI 
ACCdALO 
STATUS, CARRY 
NO_ ADD 
ACCaLO, w 
ACCbLO 
STATUS, CARRY 
ACChbHI 
ACCaHI,w 
ACCbHI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCcLO 


;rotate d rig 
sneed to add? 
> no addition 


Addition ( 


;add in carry 


sadd msb 


ht 


necessary 
ACCb + ACCa -> ACCb ) 


protate d right 


;need to add? 
* no addition 
y Addition ( 
;add lsb 

s;add in carry 


add msb 


;rotate d rig 


;need to add? 
* no addition 
* KAGE ” f 
sadd lsb 

radd in carry 


sadd msb 


necessary 
ACCb + ACCa -> ACCb ) 


ht 


necessary 
ACCbk + ACCa -> ACCh ) 


s 

? 
renee een Are renee enn Nh Ne AT 
CELA SPIN TSS NE EE EAT OI I I I OE a Te IE I TE LT a LEE ELIT BE GTI ES EEE Sa EE ERE A IEP TS EE ED ST OEE AE EM 
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mulMac 
LOCAL 
002B 0337 rrf 
002C 0336 rrf 
002D 0703 btfss 
002E 0A35 goto 
002F 0210 movf 
0030 01F2 addwf 
0031 0603 btfsc 
0032 02B3 incf 
0033 0211 movf 
0034 01F3 addwf 
0035 0333 NO ADD rrf 
0036 0332 rrf 
0037 0335 rrf 
0038 0334 rrt 
mulMac 
LOCAL 
0039 0337 rrf 
003A 0336 rer 
003B 0703 btfss 
003C 0A43 goto 
003D 0210 movf 
OO3E O1F2 addwf 
OO3F 0603 bttse 
0040 02B3 incf 
0041 0211 movf 
0042 01F3 addwf 
0043 0333 NO_ADD rrf 
0044 0332 ak oo 
0045 0335 rrf 
0046 0334 rrf 
mulMac 
LOCAL 
0047 0337 rrf 
0048 0336 a8 
0049 0703 btfss 
004A Q0A51 goto 
004B 0210 movf 
004C O01F2 addwf 
004D 0603 btfsc 
004E 02B3 incf 
004F 0211 movf 
0050 O01F3 addwf 
0051 0333 NO_ADD rrf 
0052 0332 rrf 
0053 0335 rrr 
0054 0334 Cre 
mulMac 
LOCAL 
0055 0337 rrf 
0056 0336 ert 
0057 0703 btfss 
0058 OASF goto 
0059 0210 movf 
QOOSA 01F2 addwf 
0O05B 0603 btfsc 
005C 02B3 incf 
0O05D 0211 movf 
OOSE 01F3 addwf 


NO_ADD 


ACCdHI 
ACCdLO 
STATUS, CARRY 
NO_ADD 
ACCaLO, w 
ACCbLO 
STATUS, CARRY 
ACCbHI 
ACCaHI,w 
ACCbHI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCcLO 


NO_ADD 


ACCdHI 
ACCdLO 
STATUS, CARRY 
NO_ADD 
ACCaLO, w 
ACCbLO 
STATUS, CARRY 
ACCbHI 
ACCaHI,w 
ACCbHI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCCLO 


NO_ADD 


ACCdHI 
ACCdLO 
STATUS, CARRY 
NO_ADD 
ACCaLO, w 
ACCbLO 
STATUS, CARRY 
ACCbHI 
ACCaHI, Ww 
ACCbHI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCcLO 


NO_ADD 


ACCdHI 
ACCALO 
STATUS, CARRY 
NO_ADD 
ACCaLO, w 
ACCbLO 
STATUS, CARRY 
ACCbHI 
ACCaHI,w 
ACCbHI 


;rotate d right 
s;need to add? 
; no addition necessary 


Addition ( ACCb + ACCa -> ACCb ) 


yadd in carry 


sadd msb 


yrotate d right 
s;need to add? 
; no addition necessary 


Addition ( ACCb + ACCa -> ACCb ) 


vada in: carry 


sadd msb 


srotate d right 
;need to add? 
; no addition necessary 


Addition ( ACCb + ACCa -> ACCb ) 


sadd in carry 


sadd msb 


;rotate d right 


;mneed to add? 

; no addition necessary 

: Addition ( ACCb + ACCa -> ACCbh ) 
;add lsb 

;add in carry 


sadd msb 





TE ERSTE EE IE EET OE TERT STILE ATED I ELSE EE LE ITIL GEL EES EET ED ELSA ELE ELIT EEE LIEN SIL LEE ITT OD DEL LNT LAL LN ITED ATED EL NLL ATE ATE LTT 
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O00SF 0333 NO_ADD rrf 
0060 0332 bah ep 
0061 0335 rrf 
0062 0334 rrr 
mu lMac 
LOCAL 
0063 0337 rre 
0064 0336 rrt 
0065 0703 btfss 
0066 OA6D goto 
0067 0210 movf 
0068 O1F2 addwf 
0069 0603 btfsc 
006A 02B3 incf 
006B 0211 movf 
006C O1F3 addwf 
006D 0333 NO_ADD rrf 
O0O06E 0332 rrf 
OO6F 0335 1 5 
0070 0334 rrf 
mulMac 
LOCAL 
0071 0337 | oh g 
0072 0336 rrf 
0073 0703 btfss 
0074 OA7TB goto 
0075 0210 movf 
0076 O1F2 addwf 
0077 0603 btfsc 
0078 02B3 inet 
0079 0211 movf 
OO7A O1F3 addwf 
007B 0333 NO ADD rrf 
007C 0332 rre 
007D 0335 Ext 
OO7E 0334 rrf 
mulMac 
LOCAL 
OO7F 0337 rrf 
0080 0336 rrf 
0081 0703 btfss 
0082 OA83 goto 
0083 0210 move 
0084 O1F2 addwf 
0085 0603 btfsc 
0086 02B3 inet 
0087 0211 movt 
0088 O1F3 addwf 
0089 0333 NO_ADD rrf 
008A 0332 Yret 
008B 0335 rrf 
008C 0334 rrf 


ACCbHI 
ACCbLO 
ACCcHI 
ACCcLO 


NO_ADD 


ACCdHI 
ACCdLO 


STATUS, CARRY 


NO_ADD 
ACCaLO, w 
ACCbLO 


STATUS, CARRY 


ACCbHI 
ACCaHI,w 
ACCbHI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCcLO 


NO_ADD 


ACCdHI 
ACCdLO 


STATUS, CARRY 


NO_ADD 
ACCaLO, w 
ACCbLO 


STATUS, CARRY 


ACCbHI 
ACCaHI,w 
ACCbHI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCcLO 


NO_ADD 


ACCdHI 
ACCdLO 


STATUS, CARRY 


NO_ADD 
ACCaLO, w 
ACCbLO 


STATUS, CARRY 


ACCbHI 
ACCaHI,w 
ACCbHI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCCLO 


srotate d right 


need to add? 

no addition necessary 

Addition { ACCh + ACCa -> ACCh ) 
add lsb 

add in carry 


=e “se 7e =e -s 


sadd msb 


srotate d right 

s;need to add? 

; no addition necessary 

> Addition ( ACCb + ACCa -> ACCb ) 


add lsb 
add in carry 


;add msb 


srotate d right 
;need to add? 
; no addition necessary 


Addition ( ACCb + ACCa -> ACCb ) 


sadd in carry 


y;add msb 
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008D 0337 
OO8E 0336 
OO8F 0703 
0090 0A97 
0091 0210 
0092 01F2 
0093 0603 
0094 02B3 
0095 0211 
0096 01F3 
0097 0333 
0098 0332 
0039 0335 
009A 0334 


009B 0337 
009C 0336 
003D 0703 
0O09E OAAS 
OO9F 0210 
OOAO O01F2 
OOAl 0603 
O0A2 02B3 
0OA3 0211 
O0OA4 01F3 
00AS 0333 
O0A6 0332 
OOA7 0335 
OO0A8B 0334 


00A9 0337 
OOAA 0336 
-O0AB 0703 
OOAC 0AB3 
OOAD 0210 
OOAE 01F2 
OOAF 0603 
00BO 02B3 
0OB1 0211 
00B2 01F3 
00B3 0333 
00B4 0332 
00B5 0335 
00B6 0334 


0O0B? 0337 
00B8 0336 
00OB9 0703 
OOBA O0AC1 
0OBB 0210 
OOBC 01F2 
OOBD 0603 
OOBE 02B3 
OOBF 0211 
00CO O01F3 


mulMac 
LOCAL 


rrf 
rrf 
btfss 
goto 
movf 
addwf 
btfsc 
Incr 
movf 
addwf 
NO_ADD rrf 
ELE 
Ere 
rrf 


“ese 


mulMac 
LOCAL 


rret 
ree 
btfss 
goto 
movf 
addwf 
btfsc 
incf 
movf 
addwf 
NO_ADD rrf 
rrf 
Erte 
rrf 


=e 


mulMac 
LOCAL 


ert 
rrf 
btfss 
goto 
movft 
addawf 
btfsc 
incf 
movt 
addwf 
NO_ADD rrf 
Pre 
rrf 
rrf 


mulMac © 
LOCAL 


rrf 
rrf 
btfss 
goto 
movft 
addwf 
btfsc 
incf 
movf 
addwf 


NO_ADD 


ACCdHI 
ACCdLO 
STATUS, CARRY 
NO ADD 
ACCaLO, w 
ACCbLO 
STATUS, CARRY 
ACCbHI 
ACCaHI,w 
ACCbHI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCcLO 


NO_ADD 


ACCdHI 
ACCAdALO 
STATUS, CARRY 
NO_ADD 
ACCaLO, w 
ACCbLO 
STATUS, CARRY 
ACCbHI 
ACCaHI,w 
ACCbHI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCcCLO 


NO_ADD 


ACCdHI 
ACCdALO 
STATUS, CARRY 
NO_ADD 
ACCaLO, w 
ACCbLO 
STATUS, CARRY 
ACCbHI 
ACCaHI,w 
ACCbHTI 
ACCbHI 
ACCbLO 
ACCcHI 
ACCcLO 


NO_ADD 


ACCAHI 
ACCdLO 
STATUS, CARRY 
NO_ADD 
ACCaLO, w 
ACCbLO 
STATUS, CARRY 
ACCbHI 
ACCaHI,W 
ACCbHI 


yrotate d right 
;yneed to add? 
; no addition necessary 


Addition ( ACCb + ACCa -> ACCb ) 


sadd in carry 


sadd msb 


;rotate d right 


;need to add? 
; no addition necessary 
; Addition ( ACCb + ACCa -> ACCb ) 


sadd in carry 


sadd msb 


yrotate d right 


;need to add? 

; no addition necessary 

; Addition ( ACCb + ACCa -> ACCb ) 
;add lsb 

;add in carry 


sadd msb 


yrotate d right 


s;need to add? 

sno addition necessary 

sAddition ( ACCb + ACCa -> ACCb ) 
;add lsb 

yadda) In Carry 


z>add msb 
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00C1 0333 NO_ADD rrf ACCbHI 

00C2 0332 rrft ACCbLO 

00C3 0335 rrf ACCcHI 

00C4 0334 rrf ACCcLO 
mulMac 


LOCAL NO_ADD 





00C5 0337 rrf ACCdHI ;rotate d right 
00C6 0336 Pre ACCdLO 
00C7 0703 btfss STATUS, CARRY ;need to add? 
00C8 OACF goto NO_ADD ; no addition necessary 
O00ce O21¢ movft ACCaLO,w > Addition { ACCkh + ACCa -> ACCh ) 
OOCA O1F2 addwf ACCbLO ;add lsb 
OOCB 0603 btfsc STATUS, CARRY ;add in carry 
00CC 02B3 incf ACCbHI 
0O0CD 0211 movft ACCaHI,w 
OOCE O1F3 addwf ACCbHI ;add msb 
OOCF 0333 NO_ADD rrf ACCbHI 
O0ODO 0332 rrf ACCbLO 
OOD1 0335 KEL ACCcHI 
00D2 0334 rire ACCcLO 
mulMac 


LOCAL NO_ADD 


00D3 0337 aaa ACCdAHT ;rotate d right 

00D4 0336 Ere ACCdLO 

00D5 0703 btfss STATUS, CARRY ;need to add? 

00D6 OADD goto NO_ADD ; no addition necessary 
0OOD7 0210 mov f ACCaLO,w > Addition ( ACCb + ACCa -> ACCb ) 
0O0OD8 O1F2 addwf ACCbLO ;add lsb 

00ODS 0603 btfsc STATUS, CARRY ;add in carry 

OODA 02B3 incf ACCbHI 

OODB 0211 movf ACCaHI,w 

0O0DC O1F3 addwf ACCbHI ;add msb 

OODD 0333 NO ADD rrf ACCbHI 

OODE 0332 Por ACCbLO 

OODF 0335 rrt ACCcHI 

OOEO 0334 EVE ACCcLO 


IF SIGNED 
btfss sign,MSB 


retlw 0 
comf ACCcLO 7; negate ACCa ( -ACCa -> ACCa ) 
incf ACCcLO 
btfsc ©STATUS,;Z bit 
decf ACCcCHI 
comf ACCcHI 
btfsc STATUS,2Z bit 
neg B comf ACCbLO * negate ACCb 


ince ACCbLO 
botfsc STATUS,Z bit 


decf ACCbHI 
comf ACChbHI 
retlw 0 
ELSE 
OOE1 0800 retlw 0 
ENDIF 
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KKK KKK KKK KK KKK KK KKK KK KKK KKK KKK KKK KKKEKKKEKKKK KK KKK KKKKKEKKKKKKKK 


~e we 5 


OOE2 0C10 setup movlw 16 ; for 16 shifts 
00E3 0038 movwf temp 

OOE4 0213 movf ACCbHI,w smove ACCb to ACCd 
OOES 0037 movwt ACCdHI 

0OOE6 0212 movt ACCbLO, w 

O00E7 0036 movwf ACCdLO 

OOE8 0073 cirf ACCbHI 

00E9 0072 eLre ACCbLO 

OOEA 0800 retlw 0 


e 
’ 
oR Ke aK KR KK KKK KKK KKK KKK KRHA K KEK KKK KK KKK KK KKKE KHER KEKKKK KK KKK KKK 


e 
a 


Q0EB 0270 neg A comf ACCaLO ; negate ACCa ( -ACCa -> ACCa }) 
OOEC 02B0 incf ACCaLO 

OOED 0643 btfsc STATUS, Z bit 

QOOEE OOF1 decf ACCaHI 

OOEF 0271 comf ACCaHI 

OOFO 0800 retlw 0 


KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KEK KE KKK KKKKKEKE 


Assemble this section only if Signed Arithmetic Needed 


=e Tea sy We 


IF SIGNED 


e 
v 


S_ SIGN movf ACCaHI,W 
xorwf ACCbHI,W 
movwf sign 
btfss ACCbHI, MSB ; if MSB set go & negate ACCb 


goto chek_A 


comf ACCbLO 7 negate ACCb 
incf ACCbLO 

btfsc STATUS, Z bit 

decf ACCbHI 


comf ACCbHI 
chek A btfss ACCaHI,MSB ; if MSB set go & negate ACCa 
retlw 0 
goto neg A 
ENDIF 
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HK K K KK IK KKK KKK IK KIKI KKK KKK KKK KIKI KK KKK KKK KK KK KKK KK EKKKKKKK KK KKK KKK 


Test Program 
KKK KK KKK KK KKK KK KKK KKK KKK KKK KKK KKKKKKK KK KKK KKK KEK KK KKK KKK KK KKK KKK 


Load constant values to ACCa & ACCb for testing 


~e es ~e 8 we 





OOF1 OC0l loadAB movlw 1 
OOF2 0031 movwf ACCaHI 
OOF3 OCFF movilw OFF : loads ACCa = O1FF 
OOF4 0030 movwf ACCaLO 
OOFS OCT7F movlw O7F 
OOF6 0033 movwf ACCbHI 
OOF7 OCFF mov lw OFF >: loads ACCb = 7TFFF 
OOF8 0032 movwf ACCbLO 
OOF9 0800 retlw 0 
OOFA 0000 main nop 
OOFB O9F1 call loadAB > result of multiplying ACCb*ACCa- 
OOFC 0900 call D mpyF ; Here (ACCb,ACCc) = OOFF JEO1 
OOFD OAFD self goto self 
org PIC54 
O1lFF OAFA goto main 
END 


KKK KKK KK KKK KK KEK KK KKK RK RR kak ak RR RK RR KK RK EK RK EK 


Errors : 0 
Warnings : 





EAST eA I ITN A III NID I IT PITT TT EEE BUR IE II TE CIEE SL LE PIE LE SE ELE LN INE ETE EO MET TI LTD PE Ea ER Ee RD 
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APPENDIX E: DOUBLE PRECISION DIVISION LISTING (LOOPED) 


MPASM BO0.54 


~e se %e “8 Sea Ys Ss 8 “8S Ws Me WS THA VO Ce FH PH We weg Ve FH VS VO We 


0010 ACCaLoO 
0011 ACCaHI 
0012 ACCbLO 
0013 ACCbHI 
0014 ACCcLO 
0015 ACCcHI 
0016 ACCdaLO 
0017 ACCdHI 
0018 temp 

0019 sign 


e 
, 


(a) 
(b) 
(c) 
(da) 
(e) 


NO 


PAGE 1 


(eee eeeee ee eee ee eee ee eee eeeeese eee eeeeeekeeeeeeaeseeeeee eee kee ee oe ee 7 


Double Precision Division 


( Optimized for Code Size : Looped Code ) . 


KKKKKK KKK KEKE KK KK KKK KKK KK KKK KK KKK RAKE KK KK kek kK RK Ks 


Division : ACCb(16 bits) / ACCa(16 bits) -> ACCb(16 bits) with 


Remainder in ACCc (16 bits) 
Load the Denominator in location ACCaHI & ACCaLO ( 16 bits ) 
Load the Numerator in location ACCbHI & ACCbLO ( 16 bits }) 
CALL D_div 
The 16 bit result is in location ACCbHI & ACCbLO 
The 16 bit Remainder is in locations ACCcHI & ACCcLO 


Performance : 


037 
310 


Program Memory 
Clock Cycles 


TE : 
The performance specs are for Unsigned arithmetic ({ i.e, 
with “SIGNED equ FALSE “). 


HK KK KK eK Ok kkk ek Rk kk KK KK eK RK ke Ko 


LIST P=10C54 


10 
11 
12 
13 
14 
LS 
16 
17 
18 
19 


include “mpreg.h” 


PERK KK KKK KKK IK KK KK KK RK KKK PIC16C5X Header KEKKKKKKKKKKKKKKKKK KKK KKK 

O1FF PIc54 equ 1FFH ; Define Reset Vectors 
O1FF PIC55 equ 1FFH 

O3FF PIC56 equ 3FFH 

O7FF PIC5S7 equ TEFH 

0001 RTCC equ ih 

0002 PC equ 2h 

0003 STATUS equ 3h ; F3 Reg is STATUS Reg. 
0004 FSR equ 4h 

0005 Port _ A equ Sh 

0006 Port _B equ 6h ; I/O Port Assignments 
0007 Port_C equ Eee 


» 
’ 


Be I I IT I II I I III II III II FI II III IIIT TO I I I ek 
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MPASM BO0.54 PAGE 3 


7e 68 


; STATUS REG. Bits 





0000 CARRY equ Oh ; Carry Bit is Bit.0 of F3 
0000 C equ Oh 
0001 DCARRY equ lh 
0001 DC equ lh 
0002 Z bit equ 2h , Bit 2 of F3 is Zero Bit 
0002 2 equ 2h 
0003 P DOWN equ 3h 
0003 PD equ 3h 
0004 TOUT equ 4h 
0004 TO equ 4h 
0005 PAO equ 5h 
0006 PA1 equ 6h 
0007 PA2 equ feel 
0001 Same equ th 
0000 LSB equ Oh 
0007 MSB equ Th 
0001 TRUE equ ih 
0001 YES equ lh 
0000 FALSE equ Oh 
0000 NO equ Oh 


gk RK KR RK RK RI I IK KKK KK KK KKK KK KKK KK KKK KK KK 


org 0 
pI I I I IK II I III IOI FIO II TOK TOTTI IK KKK KK KKK KKK KK 
0000 SIGNED equ FALSE ; Set This To ‘TRUE’ if the routines 


; for Multiplication & Division needs 
; to be assembled as Signed Integer 

; Routines. If ‘FALSE’ the above two 
7; routines ( D_mpy & D_div ) use 

; unsigned arithmetic. 


KEK IKKE KKK KKK KKK KK KKK KKK Kh kkk KK KK KKK kK KKK KK KKK KKK KKK KKK KKK KKK KKK 


Double Precision Divide ( 16/16 -> 16 ) 


( ACCb/ACCa -> ACCb with remainder in ACCc ) : 16 bit output 
with Quotiont in ACCb (ACCbHI,ACCbLO) and Remainder in ACCc 


~e ee 8s a te “es “ses “8 “S8 VO 


(ACCCHI,ACCCLO) . 


NOTE : Before calling this routine, the user should make sure that 
the Numerator(ACCb) is greater than Denominator (ACCa). If 
the case is not true, the user should scale either Numerator 
or Denominator or both such that Numerator is greater than 
the Denominator. 


Q. 
bee 
< 

ive) 


=e 0 “se 7s “Me te te Me fe ON 


cE. SIGNED 


CALL S_ SIGN 
ENDIF 
0000 091C call setup 
0001 0075 cirt ACCcHI 
0002 0074 CLEE ACCcLO 
0003 0403 dloop bet STATUS, CARRY 
0004 0376 rift ACCdLO 
0005 0377 rit ACCdHI 
0006 0374 ap 8 8 ACCcLO 
0007 0375 pa ACCcHI 
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0008 0211 movf ACCaHI,w 


0009 0095 subwf ACCcHI,w scheck if a>c 

OO0A 0743 btfss STATUS, Z bit 

000B OAOE goto nochk 

000C 0210 movf ACCaLO,w 

Q0O00D 0094 subwf ACCcLO, w rif msb equal then check lsb 
OOOE 0703 nochk btfss STATUS, CARRY scarry set if c>a 

OOOF OA17 goto nogo 

0010 0210 movf ACCaLO, w sc~a into c 

0011 00B4 subwf  ACCcCLO © 

0012 0703 btfss STATUS, CARRY 

0013 OOFS decf ACCcHI 

0014 0211 movf ACCaHI,w 

0015 0O0B5 subwf ACCcHI 

0016 0503 bsf STATUS, CARRY sshift al into b (result) 
0017 0372 nogo rlf ACCbLO 

0018 0373 rlf ACCbHI 

0019 O02F8 decfsz temp sloop untill all bits checked 
QOO1A O0A03 goto dloop 


LF SIGNED 


btfss Ssign,MSB ; check sign if negative 
retlw 0 
goto neg B 7; negate ACCa ( -ACCa -> ACCa ) 
ELSE 
001B 0800 retlw 0 
ENDIF 


2» 
’ 


I I I III IO III II IO KKK KKKKKKKEKHKEKEKKKKEKER 


e 
‘ 


001C 0C10 setup movlw -16 >; for 16 shifts 
0O01D 0038 movwf temp 

OO1E 0213 movf ACCbHI,w smove ACCb to ACCd 
OO1F 0037 movwft ACCdHI 

0020 0212 movf ACCbLO, w 

0021 0036 movwf ACCdLO 

0022 0073 Cilrt ACCbHI 

0023 0072 cirt ACCbLO 

0024 0800 retlw 0 


es 
, 
PRK KKK KKK KK KKK KKK KKK KEK KK KKK KKK KK KKK KKK KEKE KEKE KKKKKEKKEKK KKK 


e 
’ 


0025 0270 neg A comf ACCaLO ; negate ACCa ( -ACCa -> ACCa ) 
0026 02B0 inet ACCaLO 

0027 0643 btfsc STATUS,Z bit 

0028 OOF] decf ACCaHI 

0029 0271 comf ACCaHI 

002A 0800 retlw 0 


KK KKK KKK KK KK KKK KKK KK KKK KK KKK KKK KKK KKK KK KKK KK KKK KKK KK KEKE KKKKKKKEK 


Assemble this section only if Signed Arithmetic Needed 


~e “se we te 


TF SIGNED 


S SIGN movf ACCaHI,W 
xorwt ACCbHI,W 
movwf sign 
btfss ACCbHI,MSB ; if MSB set go & negate ACCb 
goto chek_A 
comft ACCbLO 7; negate ACCb 


incf ACCbLO 
btfsc STATUS,Z bit 
decf ACChbHI 
comf ACChbHI 
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chek A btfss ACCaHI,MSB ; if MSB set go & negate ACCa 
retlw 0 
goto neg A 
ENDIF 


Ke KKK HK KK KK KK TKK KK KKK KK KKH KK KKK KKK KKK KKK KKK KKK KKKKKKKKKKEKK 


Test Program 
KKK aK KK KKK IK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KA KKK K EK 


Load constant values to ACCa & ACCb for testing 


ve @e se Te we ME 





002B 0C01 main movlw 1 
002C 0031 movwft ACCaHI 
002D OCFF mov lw OFF ; loads ACCa = O1FF 
002E 0030 movwft ACCaLO 
QO2F OCTF moviw O7F 
0030 0033 movwf ACCbHI 
0031 OCFF movlw OFF > loads ACCbh = 7JFFE 
0032 0032 movwft ACCbkLO 
0033 0900 call D_ divs ; remainder in ACCc. Here ACCb =0040 & 
ACCc=003F 
0034 0A34 self goto self 
org PIC54 
O1FF OA2B goto main 
END 


a AI I I I I II I III RK SOTO IO Tk IIa IO ee 


Errors : 0 
Warnings : 





LL ETE TEI MNT EET ETE RE EL TESTE OE TINE IT SEE ESOL ITT NILE NEE INSIST NE EIEN NETS TTA NEEDED ERLE CELE EES LEED LTE LILLE DANEEL EEE LIAS EEE LA LEB 
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APPENDIX F: DOUBLE PRECISION DIVISION LISTING (FAST) 


MPASM B0.54 PAGE 1 


KEK KKK KK KKK KKK KK KKK KK KKK KKK KKK KK KKK KKK KK KKK KEK KKK KK KEKE KKK KKKK KKK KKK 


Double Precision Division 


{ Optimized for Speed : straight Line Code ) 


Fe HK HK KI I II II I II KK I EK IK KK ERK EK KKK KKK KKK 9 


Division : ACCb(16 bits) / ACCa(16 bits) -> ACCb(16 bits) with 
Remainder in ACCc (16 bits) 
(a) Load the Denominator in location ACCaHI & ACCaLO ( 16 bits ) 
(b) Load the Numerator in location ACCbHI & ACCbLO ({ 16 bits ) 
(c) CALL D div 
(d) The 16 bit result is in location ACCbHI & ACCbLO 
(e) The 16 bit Remainder is in locations ACCcHI & ACCcLO 


Performance : 


Program Memory 3: 370 
Clock Cycles : 263 
NOTE ; 
The performance specs are for Unsigned arithmetic ( i.e, 


with “SIGNED equ FALSE “). 


KK KK KKK KR KKK KKK KK KK KKK KKK KK KKK KKK KEK KK KKK KK KKK KK KK KK KK KKK KK KK KK KKK Ke 


™e “ee “e “ss “se “ae es se “ese eo re “We “ses We Se 8 Te “eo ~e “se Te eB Me ~B 


LIST P=16C54 


0010 ACCaLO equ 10 
0011 ACCaHI equ 11 
0012 ACCbLO equ 12 
0013 ACCbHI equ 13 
0014 ACCcLO equ 14 
0015 ACCcHI equ bo 
0016 ACCAGLO equ 16 
0017 ACCdHI equ Ae, 
0018 temp equ 18 
0019 sign equ 19 


° 
’ 


include “picreg.h” 


PRK KKK KK RR KK KK OK RK Kk PIC16C5xX Header KKK KK KKK KK KEK KKK KKK KK KKK K 

O1FF PIC54 equ 1LFFH ; Define Reset Vectors 
O1FF PIC55 equ 1FFH 

O3FF PIC56 equ 3FFH 

O7FE PIC5S7 equ TEEFH 

0001 RTCC equ lh 

0002 PC equ 2h 

0003 STATUS equ 3h ; F3 Reg is STATUS Reg. 
0004 FSR equ 4h 

0005 Port_A equ Sh 

0006 Port_B equ 6h ; I/O Port Assignments 


0007 Port_C equ 7h 


KKK KKK KKK KK KKK KK KKK KK IK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKI KK KEKE KKK KK KKK KK KK 


STATUS REG. Bits 


=e “ses se TE 


se ‘ee 


0000 CARRY equ Oh Carry Bit is Bit.0 of F3 
0000 C equ Oh 
0001 DCARRY equ lh 
0001 DC equ lh 
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0002 Z bit equ 2h , Bit. 2- Ob B32: is“ Zero: Bit 
0002 2, equ 2h 
0003 P DOWN equ 3h 
0003 PD equ 3h 
0004 TOUT equ 4h 
0004 TO equ 4h 
0005 PAO equ 5h 
6006 PAl equ 6h 
0007 PA2 equ Th 
0001 Same equ lh 
0000 LSB equ Oh 
0007 MSB equ 7h 
0001 TRUE equ ih 
0001 YES equ lh 
0000 FALSE equ Oh 
0000 NO equ Oh 


pk RR KK RK KR RK RK KKK KK I RK RR II KK kK Kk kk kkk kk ek 


org 0 


pe RR RRR RR KK KR RK RK KK RK KKK RK KK KKK KK KK KKK 


0000 SIGNED equ FALSE ; Set This To ‘TRUE’ if the routines 
; ; for Multiplication & Division needs 
; ; to be assembled as Signed Integer 
; ; Routines. If ‘FALSE’ the above two 
; 7; routines ( D_mpy & D_div ) use 
; ; unsigned arithmetic, 
pK I IKK a a I KK I ak ak ee ek KK ke es 
: division macro 
; 
GivMac MACRO 


LOCAL NOCHK 
LOCAL NOGO 


bef STATUS, CARRY 

Pit ACCdLO 

jong ACCdHI 

rlf ACCCLO 

vanllan ACCcHI 

movf ACCaHI,w 

subwf ACCcHI,w scheck if a>c 

btfss  STATUS,Z bit 

goto NOCHK 

movf ACCaLO,w 

subwf ACCcLO,w zif msb equal then check lsb 
NOCHK btfss STATUS, CARRY scarry set if c>a 

goto NOGO 

movf ACCaLO,w ;co-a intoc 


subwf ACCCLO 
btfss STATUS, CARRY 


decf ACCcHI 

movt ACCaHI,w 

subwf ACCcHI 

osf STATUS, CARRY ;shift al into b (result) 
NOGO rlf ACCbLO 

rlf ACCbHI 

ENDM 


; ; 
KKK KKK KKK KK KKK KKK KK KK KO KK KK KKK KKK KEK KKK KEK KKK KK KKK KK KKK KKK 


Double Precision Divide ( 16/16 -> 16 ) 


( ACCb/ACCa -> ACCb with remainder in ACCc ) : 16 bit output 
with Quotiont in ACCb (ACCbHI,ACCbLO) and Remainder in ACCc 


tt ad el Sat ae 
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NOTE : Before calling this routine, the user should make sure that 
the Numerator(ACCb) is greater than Denominator (ACCa). If 
the case is not true, the user should scale either Numerator 
or Denominator or both such that Numerator is greater than 
the Denominator. 


ve es es "2 “eo Vs VA 


0000 0C10 setup movlw sL6 ; for 16 shifts 
0001 0038 movwf temp 

0002 0213 movf ACCbHI,w ;move ACCb to ACCd 
0003 0037 movwf ACCdHI 

0004 0212 movf ACCbLO, w 

0005 0036 movwt ACCdLO 

0006 0073 CLUDE ACCbHI 

0007 0072 CLES ACCbLO 

0008 0800 retlw 0 


KKK KKK KEK KK KKK KK KEK KKK EEK KEK KKK KEKE KK KK KEK KEKE EKKKEKKKKKKKK KKK KK KKK KEK 


72 te Fe 


0009 0270 neg_A comf ACCaLO 7; negate ACCa ( -ACCa -> ACCa ) 
000A 02B0 incf ACCaLO 

000B 0643 btfsc STATUS,2 bit 

000C O0FI decf ACCaHI 

000D 0271 comf ACCaHI 

OOOE 0800 retlw 0 


“eae ~e 


KKK KK KKK KEK KK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKKEKKEKKKKKKKK 


D_divF 
IF SIGNED 
CALL 5 SIGN 
ENDIF 
OOOF 0900 call setup 
0010 0075 clrf ACCcHI 
0011 0074 clrf ACCCLO 


use the mulMac macro 16 times 


=e *e &s 


divMac 
LOCAL NOCHK 
LOCAL NOGO 


-e 





0012 0403 bcf STATUS, CARRY 

0013 0376 rlf ACCdALO 

0014 0377 rlf ACCdHI 

0015 0374 rlf ACCcLO 

0016 0375 rlf ACCcHI 

0017 0211 movf ACCaHI,w 

0018 0095 subwf ACCcHI,w scheck if a>c 

0019 0743 btfss STATUS, 2Z bit 

OO1A OAI1D . goto NOCHK 

0O1B 0210 movf ACCaLO,w 

0O01c 0094 . subwf ACCcLO,w ;if msb equal then check Ilsb 
001D 0703 NOCHK btfss STATUS, CARRY scarry set if cpa 

OO1E OA26 goto NOGO 

OO1F 0210 “move ACCaLO,w se-2. Into -¢ 

0020 00B4 subwf ACCcLO 

0021 0703 btfss STATUS, CARRY 

0022 O0FS decf ACCcHI 

0023 0211 movf ACCaHI,w 

0024 O0BS subwf ACCcHI 

0025 0503 bsf ' STATUS, CARRY © ;shift a 1 into b (result) 
SRNR A AN EN NL AE ATE RAIS PLA ETI LO EIDE NEE REDE ROE EL DSU SB INNES NN EL PE PME RE IE ERT TE NL SMES AOE EE NAAT TE IIE 
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0026 0372 NOGO rlf ACCbLO 
0027 0373 5 al a9 8 ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 





0028 0403 bcf STATUS, CARRY 
0029 0376 rlf ACCdLO 
002A 0377 PLE ACCdHI 
002B 0374 CLT ACCcLO 
Q002C 0375 rit ACCcHI 
002D O211 movt ACCaHi,w 
O02E 0095 subwf ACCcHI,w SOneCK af als 
OO02F 0743 btfss STATUS, 2 bit 
0030 0A33 goto NOCHK 
0031 0210 movf ACCaLO,w 
0032 0094 subwf ACCcLO, w ;if msb equal then check lsb 
0033 0703 NOCHK btfss STATUS, CARRY scarry set if c>a 
0034 OA3C goto NOGO 
0035 0210 movf ACCaLO, w 7e=a- Aneto ec 
0036 00B4 subwf ACCcLO 
0037 0703 btfss STATUS, CARRY 
0038 OOFS5 decf ACCcHI 
0039 0211 movf ACCaHI,w 
003A 00B5 subwf ACCcHI 
003B 0503 bsf STATUS, CARRY sshift a 1 into b (result) 
003C 0372 NOGO elt ACCbLO 
003D 0373 al at ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 


ze 


OO3E 0403 bcf STATUS, CARRY 
003F 0376 ELE ACCdLO 
0040 0377 Plt ACCdHI 
0041 0374 ELE ACCcLO 
0042 0375 elt ACCcHI 
0043 0211 mov ft ACCaHI,w 
0044 0095 subwf ACCcHI,w ;check if a>c 
0045 0743 btfss STATUS, Z bit 
0046 0A49 goto NOCHK 
0047 0210 mov f ACCaLO, w 
0048 0094 subwf ACCcLO, w ;if msb equal then check Ilsb 
0049 0703 NOCHK btfss STATUS, CARRY scarry set if c>a 
004A 0AD52 goto NOGO 
004B 0210 movt ACCaLO,w tema into cS 
004C 00B4 subwf ACCcLO 
004D 0703 btfss STATUS, CARRY 
OO4E OOF5 decf ACCcHI 
OO4F 0211 movf ACCaHI,w 
0050 OOBS subwf ACCcHI 
0051 0503 bsf STATUS, CARRY sshift a 1 into b (result) 
0052 0372 NOGO cle ACCboLO 
0053 0373 ELE ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 


~e 


0054 0403 bet STATUS, CARRY 
0055 0376 Fle ACCdLO 
0056 0377 rlf ACCdHI 
0057 0374 rlf ACCcLO 
0058 0375 reall a ACCcHI 
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0059 0211 movf ACCaHI,w 
005A 0095 subwf ACCcHI,w ;check if a>c 
005B 0743 btfss STATUS,Z bit 
00S5C OASF goto NOCHK 
005D 0210 movt ACCaLO, w 
OO5E 0094 subwf ACCcLO, w 7if msb equal then check lsb 
OO5F 0703 NOCHK btfss STATUS, CARRY ycarry set if cpa 
0060 OA68 goto NOGO 
0061 0210 movf ACCaLO, w fcra-into-c 
0062 00B4 subwf ACCcLO 
0063 0703 btfss STATUS, CARRY 
0064 OOFS decf ACCcHI 
0065 0211 movf ACCaHI,w 
0066 00B5 subwf ACCcHI 
0067 0503 bsf STATUS, CARRY ;shift a 1 into b (result) 
0068 0372 NOGO elt ACCbLO 
0069 0373 rlf ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 


OO6A 0403 ocf STATUS, CARRY 
006B 0376 a ACCdLO 
006C 0377 Plt ACCdHI 
006D 0374 rif ACCcLO 
OO06E 0375 ELE ACCcHI 
OO6F 0211 movf ACCaHI,w 
0070 0095 subwf ACCcHI,w ;check if a>c 
0071 0743 btfss STATUS,Z bit 
0072 OA75 goto NOCHK 
0073 0210 mov f ACCaLO, w 
0074 0094 subwf ACCcLO, w ;if msb equal then check lsb 
0075 0703 NOCHK btfss STATUS, CARRY ;carry set if cpa 
0076 OATE goto NOGO 
0077 0210 movf ACCaLO, w pCra. Lnto-c 
0078 0OO0B4 subwf ACCcCLO 
0079 0703 btfss STATUS, CARRY 
OO7A OOFS decf ACCcHI 
007B 0211 movf ACCaHI,w 
007C OOBS subwf ACCcHI 
0OO7D 0503 osf STATUS, CARRY ;shift a l into b (result) 
OO7E 0372 NOGO rif ACCbLO 
OO7F 0373 rif ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 


0080 0403 > bef STATUS, CARRY 

0081 0376 rif ACCdLO 

0082 0377 rif ACCaHI 

0083 0374 rif ACCCLO 

0084 0375 FEL ACCcHI 

0085 0211 © movt ACCaHI,w 

0086 0095 subwf ACCcHI,w scheck iff a>c 
0087 0743 btfss STATUS,Z bit 

0088 OA8B goto NOCHK 

0089 0210 movf ACCaLO, w 

OO8A 0094 subwf ACCcLO, w ;if msb equal then check lsb 
008B 0703 NOCHK btfss STATUS, CARRY scarry set if cpa 
0O8C 0A94 goto NOGO 

008D 0210 movf ACCaLO, w reo-a intoc 

OO8E 00B4 - subwf ACCcLO 

OO8F 0703 btfss STATUS, CARRY 

0090 OOF5 decf ACCcHI 

0091 0211 movt ACCaHI,w 
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0092 00B5 subwf ACCcHI 
0093 0503 bsf STATUS, CARRY ;shift al into b (result) 
0094 0372 NOGO YL ACCbLO 
0095 0373 ELE ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 





0096 0403 bcf STATUS, CARRY 
0097 0376 rif ACCdaLO 
0098 0377 ELE ACCdHI 
0099 0374 rit ACCcLO 
009A 0375 pat bs g ACCcHI 
009B 0211 movf ACCaHI,w 
009C 0095 subwf ACCcHI,w scheck if apc 
009D 0743 btfss STATUS,Z bit 
0O09E OAAI goto NOCHK 
OO9F 0210 movf ACCaLO,w 
OOAO 0094 subwf ACCcLO,w ;if msb equal then check Ilsb 
QOOA1 0703 NOCHK btfss STATUS, CARRY scarry set if c>a 
OOAZ2 OAAA goto NOGO . 
0OA3 0210 movf ACCaLO, w Pc=a. Into 
OOA4 O0B4 subwf ACCcLO 
OOAS 0703 btfss STATUS, CARRY 
QOOA6 OOFS decf ACCcHI 
QOOA7 0211 movf ACCaHI,w 
OOA8 OO0B5 subwf ACCcHI 
OOA9 0503 bsf STATUS, CARRY sshift a 1 into b (result) 
OOAA 0372 NOGO rlf ACCbLO 
OOAB 0373 rlf ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 


OOAC 0403 DCL STATUS, CARRY 
OOAD 0376 rlf ACCdLO 
OOAE 0377 rit ACCdHI 
OOAF 0374 Pee ACCcLO 
OOBO 0375 Cit ACCcHI 
0OOB1 0211 movt ACCaHI,w 
0O0B2 0095 subwf ACCcHI,w ;check if a>c 
00B3 0743 btfss STATUS,Z bit 
00B4 OAB?7 goto NOCHK 
OOBS 0210 movf ACCaLO, w 
OOB6 0094 subwf ACCcLO, w ;if msb equal then check Ilsb 
00B7 0703 NOCHK btfss STATUS, CARRY scarry set if cpa 
0OB8 OACO goto NOGO 
0OOB9Y 0210 movf ACCaLO,w ;c-a into c 
OOBA 00B4 subwf ACCcLO 
OOBB 0703 btfss STATUS, CARRY 
OOBC OOFS decf ACCcHT 
OOBD 0211 mov f ACCaHI,w 
OOBE 00B5 subwf ACCcHI 
OOBF 0503 bsf STATUS, CARRY sshift al into b (result) 
00CO 0372 NOGO rit ACCbLO 
00C1 0373 rlf ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 








00C2 0403 bef STATUS, CARRY 

00C3 0376 Ele ACCALO 

00C4 0377 rit ACCdaHI 
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00C5 0374 | “if ACCcLO 
00C6 0375 | rlf ACCcHI 
00C7 0211 movf ACCaHI,w 
00c8 0095 subwf ACCcHI,w scheck if a>c 
00C9 0743 | btfss STATUS,Z bit 
OOCA OACD goto NOCHK 
OOCB 0210 movf ACCaLO,w 
0Oocc 0094 . subwf ACCcLO, w z;if msb equal then check lsb 
OOCD 0703 NOCHK btfss STATUS, CARRY scarry set if c>a 
OOCE OAD6 . goto NOGO 
OOCF 0210 movf ACCaLO,w rce~a into ¢ 
00DO 00B4 subwf ACCcLO 
00D1 0703 btfss STATUS, CARRY 
00D2 O0FS5 decf ACCcHI 
00D3 0211 movft ACCaHI,w 
00D4 O00BS subwf ACCcHI 
0O0D5 0503 bsf STATUS, CARRY sshift a 1 into b (result) 
00D6 0372 NOGO rlf ACCbLO 
00D7 0373 : rit ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 


0OD8 0403 bcf STATUS, CARRY 
00D9 0376 ELE ACCdLO 
OODA 0377 rit ACCdHI 
OODB 0374 ELE ACCcLO 
0ODC 0375 Tle ACCcHI 
OODD 0211 movft ACCaHI,w 
OODE 0095 subwf ACCcHI,w rcheck if a>c 
OODF 0743 ' btfss STATUS, Z bit 
OOEO OAE3 goto NOCHK 
OOE1 0210 movf ACCaLO, w 
OOE2 0094 subwf ACCcLO, w ;if msb equal then check lsb 
00E3 0703 NOCHK btfss STATUS, CARRY ;carry set if c>a 
O0OE4 OAEC goto NOGO 
OOES 0210 movf ACCaLO, w scn-a into c 
OOE6 00B4 subwf ACCcLO 
0O0E7 0703 btfss STATUS, CARRY 
OOE8 OOFS decf ACCcHI 
OOES 0211 movt ACCaHI,w 
OOEA O0BS subwf ACCcHI 
~OO0EB 0503 bsf STATUS, CARRY ;shift al into b (result) 
QOEC 0372 NOGO rlf ACCbLO 
OOED 0373 afl ag ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 


OOEE 0403 bef STATUS, CARRY 


OOEF 0376 Ele ACCdLO 

OOFO 0377 PEL ACCdHI 

OOF1 0374 jag ACCcLO 

OOF2 0375 rit ACCcHI 

OOF3 0211 movf ACCaHI,w 

OOF4 0095 subwf ACCcHI,w scheck if a>c 
OOF5 0743 btfss STATUS,Z bit 

OOF6 OAF9 goto NOCHK 

OOF7 0210 movf ACCaLO,w 

OOF8 0094 subwf ACCcLO,w 7;if msb equal then check lsh 
OOF9 0703 NOCHK btfss STATUS, CARRY scarry set if c>a 
OOFA OBO02 goto NOGO 

OOFB 0210 movf ACCaLO,w sc~a into c 

OOFC 00B4 subwf ACCcLO 

OOFD 0703 btfss STATUS, CARRY 
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OOFE OOFS decf ACCcHI 
OOFF 0211 movf ACCaHI,w 
0100 OOB5 subwf ACCcHI 
0101 0503 bsf STATUS, CARRY ;shift a1 into b (result) 
0102 0372 NOGO rie ACCbLO 
0103 0373 rlf ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 





0104 0403 bcf STATUS, CARRY 
0105 0376 rit ACCdLO 
0106 0377 rit ACCdHI 
0107 0374 rlf ACCcLO 
0108 0375 rlf ACCcHI 
0109 0211 movf ACCaHI,w 
010A 0095 subwf ACCcHI,w scheck if a>c 
010B 0743 btfss STATUS,2Z bit 
010C OBOF goto NOCHK 
010D 0210 movf ACCaLO,w 
O10E 0094 subwf ACCcLO, w ;if msb equal then check lsb 
QO10F 0703 NOCHK btfss STATUS, CARRY ;carry set if cpa 
0110 0B18 goto NOGO 
0111 0210 movf ACCaLO,w rc-a intoc 
0112 00B4 subwf ACCcLO 
0113 0703 btfss STATUS, CARRY 
0114 OOFS decf ACCcHI 
0115 0211 movf ACCaHI,w 
0116 O00OBS5S subwf ACCcHI 
0117 0503 bsf STATUS, CARRY sshift a 1 into b (result) 
0118 0372 NOGO rie ACCbLO 
0119 0373 rif ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 


O11A 0403 bcf STATUS, CARRY 
011B 0376 rit ACCdLO 
011¢ 0377 ELT ACCdHI 
011D 0374 PLE ACCcLO 
O11E 0375 rif ACCcHI 
O11F 0211 movft ACCaHI,w 
0120 0095 subwf ACCcHI,w scheck if a>c 
0121 0743 btfss STATUS, Z bit 
0122 OB25 goto NOCHK 
0123 0210 movf ACCaLO,w 
0124 0094 subwf ACCcLO,w 7if msb equal then check lsb 
0125 0703 NOCHK btfss STATUS, CARRY ;carry set if c>a 
0126 OB2E goto NOGO 
0127 0210 movf ACCaLO, w AG>a nto: ¢ 
0128 00B4 subwf ACCcLO 
0129 0703 btfss STATUS, CARRY 
012A OOFS decf ACCcHI 
012B 0211 movf ACCaHI,w 
012C OOB5 subwf ACCcHI 
012D 0503 bsf STATUS, CARRY s;shift a 1 into b (result) 
O12E 0372 NOGO on 5 ACCbLO 
O12F 0373 rit ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 


=e 


0130 0403 bet STATUS, CARRY 
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0131 0376 ELE ACCdLO 
0132 0377 salle d ACCdHI 
0133 0374 rlf ACCcLO 
0134 0375 rif ACCcHI 
0135 0211 movf ACCaHI,w 
0136 0095 subwf ACCcHI,w ; scheck if a>c 
0137 0743 btfss STATUS,2 bit 
0138 0B3B goto NOCHK 
0139 0210 movf ACCaLO, w 
013A 0094 subwf ACCcLO, w ;if msb equal then check Il1sb 
013B 0703 NOCHK btfss STATUS, CARRY scarry set if cpa 
013C 0B44 goto NOGO 
013D 0210 movf ACCaLO, w sc-a intoc 
013E 00B4 subwf ACCcLO 
013F 0703 btfss STATUS, CARRY 
0140 OOFS5 decf ACCcHI 
0141 0211 movf ACCaHI,w 
0142 0OBS subwf ACCcHI 
0143 0503 bsf STATUS, CARRY rshift al into b (result) 
0144 0372 NOGO rift ACCbLO 
0145 0373 alee ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 


0146 0403 bef STATUS, CARRY 
0147 0376 rlf ACCdLO 
0148 0377 rlf ACCa@HI 
0149 0374 ELt ACCcLO 
014A 0375 rit ACCcHI 
014B 0211 movf ACCaHI,w 
014C 0095 subwf ACCcHI,w scheck if a>c 
014D 0743 btfss STATUS,Z bit 
014E 0B51 goto NOCHK 
014F 0210 movf ACCaLO, w 
0150 0094 subwf ACCcLO, w 7if msb equal then check Ilsb 
0151 0703 NOCHK btfss STATUS, CARRY ycarry set if cpa 
0152 OBSA goto NOGO 
0153 0210 movft ACCaLO, w se-a into c 
0154 00B4 subwf ACCcLO 
0155 0703 btfss STATUS, CARRY 
0156 OOFS5 decf ACCcHI 
0157 0211 movf ACCaHI,w 
0158 00B5 subwf ACCcHI 
0159 0503 bsf STATUS, CARRY ;shift a 1 into b (result) 
O1L5SA 0372 NOGO rift ACCbLO 
015B 0373 rlf ACCbHI 
divMac 


LOCAL NOCHK 
LOCAL NOGO 


015¢C 0403 ocf STATUS, CARRY 

015D 0376 rlf ACCdLO 

O15E 0377 Fit ACCdHI 

OL5F 0374 rlf ACCcLO 

0160 0375 rlf ACCcHI 

0161 0211 movf ACCaHI,w 

0162 0095 subwf ACCcHI,w ;check iff a>c 
0163 0743 btfss STATUS,Z bit 

0164 0B67 goto NOCHK 

0165 0210 movft ACCaLO, w 

0166 0094 subwf ACCcLO, w ;if msb equal then check Isb 
0167 0703 NOCHK btfss STATUS, CARRY scarry set if c>a 
0168 OB70 goto NOGO 

0169 0210 movf ACCaLO, w rcma into c 


TL SAAT ECP ES RE TS I ESI A AL SS I CE TE AS 
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016A 00B4 subwf ACCcLO 

016B 0703 btfss STATUS, CARRY 

016C OOFS5 decf ACCcHI 

016D 0211 movf ACCaHI,w 

O16E O0BS subwf ACCcHI | 
O16F 0503 bsf STATUS, CARRY ;shift a 1 into b (result) 

0170 0372 NOGO rit ACCbLO | 
0171 0373 rit ACCbHI 





IF SIGNED 





bifss sign,MSB ; check sign if negative 
retlw 0 
goto neg B y; negate ACCa ( ~ACCa -> ACCa ) 
ELSE 
0172 0800 retlw 0 
ENDIF 


kk kK kk kK KK kk Kk ke kw KKK ke kok kk kok ke kk ek kk eke kok kek kok kk kok ke kok ok kok ok koko tek ok ke kk ke kek 


Assemble this section only if Signed Arithmetic Needed 


~e ~e se 


IF SIGNED 
S SIGN movf ACCaHI, W 
xorwf ACCbHI,W 
movwf sign 
btfss ACCbHI, MSB >; if MSB set go & negate ACCb 
goto chek A 
comf ACCbLO 7; negate ACCb 
incest ACCbLO 


btfsc STATUS,Z bit 
decf ACCbHI 
comf ACCbHI 


chek A btfss ACCaHI,MSB > if MSB set go & negate ACCa 
retlw 0 
goto neg_A 
ENDIF 


hk ke kkk kok kkk kok kok kok kk kkk kok ok kek oki kok kkk kok ok ok kok koko oko kkk kkk ke kkk kkk 


Test Program 
KKK KKK KK KEK KKK KKK KK KKK KK KK KK KKK KKK KKK KKK KKK KKK KKKEKEKKK KK KKK KEKE 


Load constant values to ACCa & ACCb for testing 


se Me =e ve 
s . 


0173 0C0l1 main mov lw I 
0174 0031 movwft ACCaHI 
0175 OCFEF moviw OFF : loads ACCa = OFF 
0176 0030 movwf ACCaLO 
0177 OCTE movlw O7F 
0178 0033 movwf ACCbHI 
0179 OCFF movlw OFF +; loads ACCb = TFFF 
O17A 0032 movwf ACCbLO 
017B 090F call D_divF ; remainder in ACCc. Here ACCb =0040 & 
ACCc=003F 
017C OBTC self goto self 
org PIC54 

LIST p=16c54 
O1FF 0B73 goto main 

END 


I II I III II III III ICICI III III IOI II III I III IOI Ik te 


Errors : 0 
Warnings : 0 





LTT AEE RL IATL LATED GNI EEE MIELE LEE DEAT NTE LE LI ALLIS IIE LITLE EE SLES EE LEED ELE EL LLL LOLI LON DELLE ID EEE AE STE LILLE LADD OE, 
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APPENDIX G: DOUBLE PRECISION ADDITION AND SUBTRACTION LISTING 


MPASM B0.54 PAGE 1 


KKK KKK KKK KK KEK KK KKK KK KKK KKK KKK IKK KKK KKK EK KKK KE KEKEKKEKKKK KK KKKKEKE 


Double Precision Addition & Subtraction 


KKK KKK KEKE KEKE KK KKK KK RIK KK IKK KK KK EK KKK KK KKK KK KKK KK KKK EK KEKKKEKKKKKKE 8 


Addition : ACCb(16 bits) + ACCa(16 bits) -> ACCbh(16 bits) 
(a) Load the lst operand in location ACCaLO & ACCaHI ( 16 bits 
(b) Load the 2nd operand in location ACCbLO & ACCbHI ( 16 bits 
(c) CALL D_add 
(d) The result is in location ACCbLO & ACCbHI ( 16 bits ) 


Performance : 
Program Memory : 07 
Clock Cycles : 08 
We RK te kk a aK a KR KK KK RK KK KK KKK KK KKK KKK EK KH KEK KEK EKER KEE KKK KK KEKKKKKKKKK Es 
Subtraction : ACCb(16 bits) - ACCa(16 bits) -> ACCb(16 bits) 
(a) Load the lst operand in location ACCaLO & ACCaHI ( 16 bits 
{b) Load the 2nd operand in location ACCbLO & ACCbHI ( 16 bits ) 
(c) CALL D_ sub 
(d) The result is in location ACCbLO & ACCbHI ({ 16 bits ) 


Performance ;: 
Program Memory : 14 
Clock Cycles : id 


Oh kk kK KK KK KK IK KK KK KK KK KK KK KK IK KK KK IKK KK KEK KE KKK KK KKK KK KKK KKK © 


7=e ~e es 8 “eo “es *e Se “es “8s “8 2 CO MO MVS We Me Ve Pe “A *e Te Pe VO we 


LIST P=16C54 


0010 ACCaLO equ 10 
0011 ACCaHI equ La, 
0012 ACCbLO equ 12 
0013 ACCbHI equ 13 


° 
‘ 


include “mpreg.h” 


pakke kkk aK KKK KK KKK EK KKK KKK PIC16CS5X Header KaEKKEKKKKKKK KKK KKK KK KK KKK 

O1FF PIC54 equ 1FFH ; Define Reset Vectors 
O1FF PIC55 equ 1FFH 

O3FF PIC56 equ 3FFH 

O7FF PICS7 equ TEFH 

0001 RTCC equ lh 

0002 PC equ 2h 

0003 STATUS equ 3h ; F3 Reg is STATUS Reg. 
0004 FSR equ 4h 

0005 Port_A equ 5h 

0006 Port_B equ 6h ; I/O Port Assignments 
0007 Port _ C equ 7h 


e 
’ 


ema K KKK KKK KK KKK KK KK KKK KKK OK aK KK KKK KKK KKK KKK KK KKK KK KKK KKK KKKKKKKKKKEK 


~~. ese 8 


STATUS REG. Bits 


"se =e 


0000 CARRY equ Oh Carry Bit is Bit.0 of F3 
0000 c equ Oh 
0001 DCARRY equ lh 
0001 . DC equ 1h 
0002 Z bit equ 2h 7 Bit: 2 Of FS: bs. 46r0°. Bit 
0002 Z equ 2h 
0003 P DOWN equ — 3h 
0003 PD equ 3h 
0004 T_OUT equ 4h 
0004 TO equ 4h 
0005 PAO equ Sh 
0006 PAL equ 6h 
0007 PA2 equ Th 
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0001 Same equ lh 
0000 LSB equ Oh | 
0007 MSB equ Th 
; 
0001 TRUE equ lh 
0001 YES equ lh 
0000 FALSE equ Oh | 
0000 NO equ Oh 
pK KKK KK KK KK KKK KK KKK KK KKK KKK KKK KEK KK KKK KK KKK KKKKK KKK KK KKK KK KKK KK KK 
org 0 
pK KKK KK IKK KKK KKK KK KK KKK KK KKK KK KKK RKKKEKKKEKEKKKKEKEKEKKKKK KEK KKKKEKK 
: Double Precision Subtraction ( ACCb - ACCa -> ACCb ) 
0000 0908 D_sub call neg A ; At first negate ACCa; Then add 
pK KKK KKK KKK KK KK EK KEKE KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK RK kk kk 
. Double Precision Addition ( ACCb + ACCa -> ACCb ) 
0001 0210 D_add movf ACCaLO,w 
0002 O1F2 addwf ACCbLO z;add lsb 
0003 0603 btfsc STATUS, CARRY z;add in carry 
0004 02B3 incf ACCbHI 
0005 0211 movf ACCaHI,w 
0006 O1F3 addwf ACCbHTI ;add msb 
0007 0800 retlw 0 
0008 0270 neg A comf ACCaLO 7; negate ACCa ( -ACCa -> ACCa } 
0009 02B0 ince ACCaLO 
OOOA 0643 btise STATUS,Z bit 
000B OOF1 decf ACCaHI 
000C 0271 comf ACCaHI 
000D 0800 retliw 0 
PR KKK KK KK KK KEK KK KK KKK KKK KEK KKK KK RIK KKK KKK KKK KK KKK KEK KKK KKKKKKKKKK KKK 
; Test Program 
PRK KK ERK KEK KKK KKK IK KK KKK KKK KK KK KKK KK KKK IK KKK KKK KKK KKK KEK KKK KKKEKK KKK 
; Load constant values to ACCa & ACCb for testing 
OOOE O0CO01 loadAB moviw 1 
OOOF 0031 movwf ACCaHI 
0010 OCFF mov lw OFF ; loads ACCa = O1FF 
0011 0030 movwf ACCaLO 
0012 OCTF mov lw O7F 
0013 0033 movwf ACCbHI 
0014 OCFF movlw OFF 7 loads ACCb = 7FFF 
0015 0032 movwf ACCbLO 
0016 0800 retlw 0 
0017 0000 main nop 
0018 O90E call loadAB > result of adding ACCb+ACCa->ACCb 
0019 0901 call D_add ; Here Accb = 81FE 
OO1A O90E call loadAB 7; result of subtracting ACCb - ACCa->ACCb 
001B 0900 call D_sub ; Here Accbh = 7E00 
001C OAI1C self goto self 
org PIC54 
O1FF OA17 goto main 
END 
PR RRR KK KKK RK KKK KK KKK KK KK KKK RK KK KK KK KKK KK KKK KK KKK KK KKK KK KKK KK KKK 
Errors : 
Warnings :; 
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APPENDIX H: FLOATING POINT ROUTINES LISTING 


MPASM B0.54 PAGE 1 


KKK KK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK EK KKK KE KEK KEK KKKKKKKKEKKKEEK 


Binary Floating Point Addition, Subtraction, and Multiplication 
routines. 


KEK KKK K KKK KK KK KEK KK KKK KKK KKK KEK EK KKK KKK EK KK KKK KEKE EKKKKKKKKEKEKEK 9 


Addition : ACCb(16 bits) + ACCa(16 bits) -> ACCb(16 bits) 

(a) Load the lst operand in location ACCaLO & ACCaHI ( 16 bits ) with 
the 8 bit exponent in EXPa. 

(b) Load the 2nd operand in location ACCbLO & ACCbHI ( 16 bits ) with 
the 8 bit exponent in EXPb. 

(c) CALL F_add 

(d) The result is in location ACCbLO & ACCbHI ( 16 bits ) with 
the 8 bit exponent in EXPb 


Program Memory : 55 locations 


HK KK KKK KK KKK KKK KKK KK KKK KKK KK IK KKK II KK KKK KKK KEK EK KKEKK KKK KK KKK KKK © 


Subtraction : ACCb(16 bits) - ACCa(16é bits) -> ACCb(16 bits) 

(a) Load the lst operand in location ACCaLO & ACCaHI ( 16 bits ) with 
the 8 bit exponent in EXPa 

(b) Load the 2nd operand in location ACCbLO & ACCbHI ( 16 bits ) with 
the 8 bit exponent in EXPb . 

(c) CALL F_sub 

(d) The result is in location ACCbLO & ACCbHI ( 16 bits ) with 
the 8 bit exponent in EXPb. 


Program Memory : 61 locations 


Te KK kK KR KKK KK KK KK KK KK KKK KK KKK KK KKK KK KKK KK KK KKK KKK KKKKEKEKE 8 


Multiplication : 
ACCb(16 bits)EXP(b) * ACCa(16 bits)EXPa -> ACCb(16 bits) EXPb 
where, EXP(x) represents an 8 bit exponent. 
(a) Load the 1st operand in location ACCaLO & ACCaHI ( 16 bits ) with 
an 8 bit exponent in location EXPa 
(bo) Load the 2nd operand in location ACCbLO & ACCbHI ( 16 bits ) with 
an 8 bit exponent in location EXPb 
(c) CALL F_mpy 
{d) The 16 bit result overwrites ACCb(ACCbLO & ACCbHI). The exponent 
is stored in EXPb and the results are normalized. 


NOTE : If one needs to get a 32 bit product( & an 8 bit exponent ), 
re assemble the program after changing the line “ Model6 equ TRUE” 
to “ Model6é equ FALSE “. 
If this option is chosen, then the 32 bit result is returned in 
( ACCbHI, ACCbLO, ACCcHI, ACCcLO ) and the 8 bit exponent in EXPb. 
This method ( with “ Model6 equ FALSE “ ) is NOT Recommended. 


Program Memory 3: 102 locations 


KKK KK KK KK KK KI KKK KK KK KK KK KK KKK KK KK KK KK KKK KK KKK KK KKKKEKE 8 


ey a Se Ye 2 ey ae YT a, YY en) i YT nF nT Yn? i) 7 i) 2 a? i i) i, i Mr ST Md a a Md Bed ind Md My a Ml Sy Ed Ml Sa, a! a! a! ey Ee! eT 


LIST n=0,p=16C54 


0010 ACCaLO equ 10 
0011 ACCaHI equ 11 
0012 EXPa equ 12 
0013 ACCbLO equ 13 
0014 ACCbHI equ 14 
0015 EXPb equ 15 





SER a ANTE IRAE PENT ALENT LT SO RET IRE SIE ST DNR ES SN NSS IE SEEDS OER ILE ESE IE SEE ME EI RT a EE ETE ESAT RE EE MN 
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0016 ACCcLO equ 16 
0017 ACCcHI equ iy 
0018 ACCdLO equ 18 
0019 ACCdHI equ 19 
OO1A temp equ 1A 
001B sign equ 1B 


‘ 


include “mpreg.h” 





RK KKK KK KK KKK KKK EK KK KK KKK PIC1lL6C5X Header KEKKKKKKKKKKKEKK KKK KKK KEKE 

O1FF PIC54 equ 1LFFH ; Define Reset Vectors 
O1FF PIC55 equ 1LFFH 

O3FF PICS6 equ 3FFH 

C7FEF PICS? equ VEFH 

0001 RTCC equ di 

0002 PC equ 2 

0003 STATUS equ 3 ; F3 Reg is STATUS Reg. 
0004 FSR equ 4 

0005 Port _ A equ 5 

0006 Port _B equ 6 ; I/O Port Assignments 
0007 Port C equ 7 


° 
‘ 


KKK KE KKK KKK KKK KKK KKK kK KK KK RIK KK KKK KKK KK KKK KK KEKE KK KEKKKEKKKEK 


=e ‘we Of 


; STATUS REG. Bits 


0000 CARRY equ 0 ; Carry Bit is Bit.0 of F3 
0000 c equ 0 
0001 DCARRY equ 1 
0001 DC equ Me 
0002 2. 01t equ 2 ; Bit 2 Of 3.18 Zero, Bit 
0002 Z equ 2 
0003 P DOWN equ 3 
0003 PD equ 3 
0004 T OUT equ 4 
0004 TO equ 4 
0005 PAO equ a 
0006 PA1 equ 6 
0007 PA2 equ Y 
0001 Same equ 1 
0000 W equ 0 
0000 LSB equ 

0007 MSB equ 

0001 TRUE equ ‘3 
0001 YES equ 1 
0000 FALSE equ 0 
0000 NO equ 0 


pK I I IK I KI KK KK KK KK KK KK KK IK KR KK KK KK KK KK KK KK KKK RK KK 


0001 Model6 equ TRUE > Change this to FALSE if a 32 bit propduct 
: ; is desired for F_mpy routine. 
org 0 
KK IK HI I I II IKI I I I I KI II ITO I kk 
: Floating Point Subtraction ( ACCb - ACCa -> ACCb ) 
0000 0968 Fsub call neg A ; At first negate ACCa; Then add 
0001 0212 F add movt EXPa,w ; scale mantissas 
0002 0095 subwf EXPb,w ; find the greater exponent 
0003 0643 btfsc STATUS,Z bit 
0004 OAOE goto padd ; exponents are equal 
0005 0603 btfsc  STATUS,CARRY : 





ALT LR EATERS VLA BEGET NET PERIL EL NTL SEES IE IEE ES OE LOI ES SEIT NEON TE ETE OEE L EDT TELE EE MEE DLE DID ELL NS ATR NE LES NDS LL LDA LEAL LEADS ALI NED ELE SEL LLELEDLEDE LEN 
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0006 0986 call F swap ; if A > B then swap ( A<->B ) 
0007 0212 movft EXPa,w 

0008 00B5 subwf EXPb 

0009 0920 scloop call shftSR 

000A 03F5 -incfsz EXPb 

000B 0A09 goto scloop 

000C 0212 movf EXPa,w 

000D 0035 movwf EXPb 

QOOOE 0211 padd movf ACCaHI,w 

OOOF 0114 lorwf ACCbHI,w 

0010 003B movwf sign 

0011 0919 call D_add ; compute double precision integer add 
0012 O7FB btfss sign,MSB 

0013 O7F4 btfss ACCbHI,MSB 

0014 0800 retlw 0 

0015 0403 bef STATUS, CARRY 

0016 02B5 incf EXPb 

0017 0A23 goto shftR 


KKK KK KKK KKK KKK KKK KK KKK KK KKK KEK IKKE KKK KKK KKK KKK KKK KKKKKKEKKKKEKKKKKKKKE 


Double Precision Subtraction ( ACCb - ACCa -> ACCb ) 


Ose CW ~e =e se ve 
7) 
c 
on 








0018 0968 z call neg_A ; At first negate ACCa; Then add 
0019 0210 _add movft ACCaLO,w ; Addition ( ACCb + ACCa -> ACCb ) 
OO1A 01F3 addwf ACCbLO ;add lsb 
001B 0603 btfsc STATUS, CARRY ;add in carry 
001C 02B4 incf ACCbHI 
001D 0211 movf ACCaHI,w 
OO1E 01F4 addwf ACCbHI ;add msb 
OO1F 0800 retlw 0 
gk a KK RK KKK KKK IK KK KI KK KK KK KK KK KKK KKK KKK KKK KEK KK KEE KKKEKK KK KE 
0020 0403 shftSR bcf STATUS, CARRY 
0021 06F4 btfsc ACCbHI,MSB 
0022 0503 bsf STATUS, CARRY ; set carry if < 0 
0023 0334 shftR rrt ACCbHI 
0024 0333 Ere ACCbLO 
0025 0800 retlw 0 
0026 0403 shftSL bef STATUS, CARRY 
if Model6 
0027 0376 rift ACCcLO 
0028 0377 ga Oe ACCcHI 
endif 
0029 0373 elt ACCbLO 
002A 0374 rit ACCbHI 
002B 04F4 beet ACCbHI,MSB 
002C 0603 btfsc STATUS, CARRY 
002D OSF4 bsf ACCbHI,MSB 
0O02E 0800 retlw 0 
gk KK KK RK KKK RK Ke KK KK KKK KKK KKK KKK KKK KKK KKK KKK RK KEK KKEKKKEKKKKKKKK 
; Binary Floating Point Multiplication : 
? ACCb(16 bits) EXP(b) * ACCa(16 bits)EXPa -> ACCb(16 bits) EXPb 
F_mpy 
002F 096E call S SIGN 
0030 O95F call setup 
0031 0403 mloop bcf STATUS, CARRY ; clear carry bit wes owee ne 
0032 0339 rrf ACCdHI srotate d right 
0033 0338 ETE ACCdLO 
0034 0603 btfsc STATUS, CARRY sneed to add? 
0035 0919 call D_add 
0036 0334 prt ACCbHI 
0037 0333 rrf ACCbLO 
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0038 0337 rrf ACCcHI 
0039 0336 rrf ACCcLO 
003A O2FA decfsz temp sloop until all bits checked 
003B 0A31 goto mloop 
003C 0212 movf EXPa,w 
003D O1F5 addwf EXPb 
IF Model6 
003E 0234 movf ACCbHI 
003F 0743 btfss STATUS,Z bit 
0040 OA5S1 goto finup ; if ACCbHI != 0 
0041 0233 movf ACCbLO 
0042 0743 btfss STATUS,Z bit 
0043 OA4B goto Shftos ; if ACCbLO !'= 0 && ACCbHI == 0 
0044 0217 movt ACCcHI,w 
0045 0034 movwf ACCbHI > if ACCb == 0, then move ACCc to ACCb 
0046 0216 movft ACCcLO,w 
0047 0033 movwf ACCbLO 
0048 0C10 movlw -16 
0049 O1FS addwf EXPb 
004A OAS1 goto finup 
004B 0213 Shftos movf ACCbDLO,w 
004C 0034 movwf ACCbHI 
004D 0217 movf ACCcHI,w 
004E 0033 movwf ACCbLO 
OO4EF 0C08 moviw 8 
0050 O1F5 addwf EXPb 
ENDIF + matching endif for IF Modelé 
0051 O7FB finup btfss sign,MSB 
0052 OATB goto F norm 
0053 OOF6 decf ACCcLO 7; negate ACCc 
0054 0276 comf ACCcLO 
0055 0643 btfsc STATUS,Z bit 
0056 QOF7 decf ACCcHI 
0057 0277 comf ACCcHI 
0058 0643 btfsc STATUS,Z bit 
0059 OOF3 neg B decf ACCbLO ; negate ACCb 
005A 0273 comf ACCbLO 
005B 0643 btfsc STATUS, 2. bit 
005C 00F4 decf ACCbHI 
0O05D 0274 comf ACCbHI 
OOSE OA7B goto F_norm 


KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KK KK EK KKK KEK KEKEKKKEKEKKEK 


se “=e =s e 


OOSF 0C10 setup movlw 16 ; for 16 shifts 

0060 003A movwf temp 

0061 0214 movf ACCbHI,w rmove ACCb to ACCd 

0062 0039 movwf ACCdHI 

0063 0213 . movf ACCbLO, w 

0064 0038 movwf ACCdLO 

0065 0074 CLEe ACCbHI 

0066 0073 clirft ACCbLO + clear ACCb ( ACCbLO & ACChbHI ) 
0067 0800 retlw 0 


pK ee eK IK KR ER KKK RK KR KKK KK KKK KK KKK KK KKK KKKKK KK ER 
0068 0270 neg A comf ACCaLO 7; negate ACCa ( ~ACCa ~-> ACCa ) 
0069 02B0 inet ACCaLO 
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006A 0643 btfsc STATUS,Z bit 
006B OOF] decf ACCaHI 
006C 0271 = comf ACCaHI 
006D 0800 retlw 0 
PETE TROT EL ELE Le CCT TELE SET Tee aE eT Tee TT OCT ECE eT CLE TEE TET eR OTT CTT 
006E 0211 S_SIGN movf ACCaHI,W 
OO6GF 0194 xorwf ACCbHI,W 
0070 003B movwt sign - 
0071 O7F4 btfss ACCbHI,MSB ; if MSB set go & negate ACCb 
0072 0A78 goto chek_A 
0073 0273 comf ACCbLO 7; negate ACCb 
0074 02B3 incf ACCbLO 
0075 0643 btfsc . STATUS,Z bit 
0076 00F4 decf ACCbHI 
0077 0274 comf ACCbHI 
0078 O7F1 chek_A btfss ACCaHI,MSB ; if MSB set go & negate ACCa 
0079 0800 retlw 0 
OO7A 0A68 goto neg A 
RE RNRNARNERGRS EERE SR HEEE ERED RRA KKK KK KKK KKK KKK KKK KKK KK KK KKK KKKK 
: Normalize Routine 
: Normalizes ACCb for use in floating point calculations. 
> Call this routine as often as possible to minimize the loss 
; of precission. This routine normalizes ACCb so that the 
; mantissa is maximized and the exponent minimized. 
007B 0234 F norm movf ACCbHI 
007C 0743 btfss STATUS,Z bit 
007D 0A81 goto C_norm 
0O07E 0233 movft ACCbLO 
OOTF 0643 betsc STATUS,Z bit 
0080 0800 retlw 0 
0081 06D4 C_norm btfsc ACChHI,6 
0082 0800 retlw 0 
0083 0926 call shftSL 
0084 OO0F5 decf EXPb 
0085 0A81 goto C_norm 
Pore eee re eee ree reer Tee ee ree ee eT Te eT eT eT Tere er oe eT ree 
>; Swap ACCa & ACCh { {ACCa,EXPa) <-> (ACCb,EXPb) ] 
F swap 
0086 0211 movf ACCaHI,w 
0087 003A movwf temp 
0088 0214 movf ACCbHI,w sACCaHI <-> ACCbHI 
0089 0031 movwf ACCaHI 
OO8A 021A © movf temp, W 
008B 0034 movwf ACCbHI 
008C 0210 movf ACCaLO, w 
008D 003A ~ movwt temp 
008E 0213 movf ACCbLO,w ;ACCaLO <—> ACCbLO 
OO8F 0030 movwft ACCaLO 
0090 021A movft temp, w 
0091 0033 movwf ACCbLO. 
0092 0212 movf EXPa,w 
0093 003A movwt temp 
0094 0215 movf EXPb,w ,EXPa <—> EXPb 
0095 0032 movwf EXPa 
0096 021A movft temp, Ww 
0097 0035 movwf EXPb 
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0098 0800 retlw 0 
p RR KK KK KK RK KK RK KR I I I II te kk tk ke kk 
r Test Program 
eK KKK KK RK KK KR KK TOTO RIO OO Ok kk kkk kk kk kk kkk kkk kk kk kk kk kk 
; Load constant values to (ACCa, EXPa) & (ACCb, EXPb) for testing 
0099 0CO1 loadAB moviw 1 
009A 0031 movwf ACCaHI 
009B OCFF movlw OFF ; loads ACCa = O1FF EXP(4) 
009C 0030 movwf ACCaLO . 
0093D 0Cc04 moviw 04 
O009E 0032 movw f EXPa 
OO9F OC7EF movlw O7F 
OOAO 0034 movwf ACCbHI 
OOAl OCFF moviw OFF ; loads ACCb = 7FFF EXP(6) 
OOA2 0033 movwf ACCbLO 
OOA3 0C06 movlw 06 
OOA4 0035 movwf EXPb 
OOAS 0800 retlw 0 
OOA6 0000 main nop 
OOA7 0999 call loadAB ; result of adding b)+ACCa (EXPa)- 
OOA8 0901 call F add ; Here Accb = 403F, EXPb = 07 
OOA9 0999 call loadAB >; result of subtracting b(EXPb) - 
OOAA 0900 Call F sub +; Here Accb = 7F7F, EXPb = 06 
OOAB 0999 call loadAB ; result of multiplying b(EXPb) * 
OOAC 092F call Fo mpy ; Here ACCb = FF7E, EXPb = 12 
OOAD OAAD self goto self 
org PIC54 
O1FE OAA6 goto main 
END 
pK KK Ke a I I Ie I IK I ke ek tk kk ke kk RK KK KKK 
Errors : 
Warnings : 
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APPENDIX |: BCD TO BINARY CONVERSION LISTING 


MPASM BO.54 PAGE 1 


FOO IO I I TO IO TI III IOI OT TOI OI II TIT kt dt tote ke 


BCD To Binary Conversion 


This, routine converts a 5 digit BCD number to a 16 bit binary 
number, 

The input 5 digit BCD numbers are asumed to be in locations 
RO, Rl & R2 with RO containing the MSD in its right most nibble. 


The 16 bit binary number is output in registers H byte & L_ byte 
( high byte & low byte repectively ). 


The method used for conversion is : 
input number X = abcde ( the 5 digit BCD number ) 
X = abcde = 10[10[10[10a+b]+c]+d]t+e 


Performance : 
Program Memory : 30 


Clock Cycles 121 


KKKKKKKEKEKEKKEKKKEKKKKK KKK KEKKKK He KKH KK KKK KEK KKK KK KEK KEK KEKKKKKKK ERK 


lk tS aL ad Sd i Md el a il Sad i! St i) a! Sl es el ST il | 


LIST P=16C54 


0010 H byte equ ~ 10 
0011 L byte equ 1. 
0012 RO equ i? . ; RAM Assignments 
0013 Rl equ 13 
0014 R2 equ 14 
0015 H temp equ NES) 7; temporary register 
0016 L temp equ 16 ; temporary register 
INCLUDE “mpreg.h” 
PRR KEK KK KKK ERK KK EK KKK KKK KKK PIC1L6C5X Header KAEKKKK HK KEKKKKEKAKKEK KK KKK K 
O1FF PIC54 equ LFFH ; Define Reset Vectors 
OLFF PIC55 equ 1LFFH 
O3FF PIC56 equ 3FFH 
O7FF PIC57 equ TEFFH 
0001 RTCC equ lh 
0002 PC equ 2h 
0003 STATUS equ 3h ; F3 Reg is STATUS Reg. 
0004 FSR equ 4h 
0005 Port_A equ Sh 
0006 Port_B equ 6h ; I/O Port Assignments 
0007 Port C equ 7h 


KKK KKK KKK KK KKK KK KKK KK KKK KEK KKK KKK KKK KEK K KKK KKK KEKE KKK KKKEKEKKKEKEKKKKEEKKKEEESK 


~s ~s ese Fe 


> STATUS REG. Bits 
0000 CARRY equ Oh ; Carry Bit is Bit.90 of F3 


0000 Cc equ Oh 
0001 DCARRY equ lh 
0001 DC equ 1h 
0002 Z bit equ 2h ; Bit 2 -of FP3 is Zero Bit 
0002 Z equ 2h 
0003 P_ DOWN equ 3h 
0003 PD equ 3h 
0004 T OUT equ 4h 
0004 TO equ 4h 
0005 PAO equ 5h 
0006 PAl equ 6h 
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0007 PA2 equ Th 
0001 Same equ lh 
0000 LSB equ Oh 
0007 MSB equ Th 
0001 TRUE equ lh 
0001 YES equ lh 
0000 FALSE equ Oh 
0000 NO equ Oh 


gk eee kk oe oe eek ek ke ok ke ek ee ee ee kk kk kk ERE KKK KKK AKA KK KKK KEKE 


“ses 





0000 OEOF mpyl0b andlw OF 

0001 O1F1 addwf L_ byte 

0002 0603 btfsc STATUS, CARRY 

0003 02B0 tnaet H_ byte 

0004 0403 mpyl0a bcf STATUS, CARRY r multiply by 2 

0005 0351 vad le L_ byte,w 

0006 0036 movwt L_ temp 

0007 0350 PLE H byte,w ; (H_temp,L_ temp) = 2*N 
0008 0035 movwf H_ temp 

0009 0403 elena STATUS, CARRY ; multiply by 2 

OOO0A 0371 rlf L byte 

000B 0370 rif H byte 

000C 0403 bocf STATUS, CARRY ; multiply by 2 

000D 0371 PLE L_ byte 

OO0E 0370 rE H_ byte 

OOOF 0403 bef STATUS, CARRY ; multiply by 2 

0010 0371 rit L_ byte 

0011 0370 rit H byte ; (H_byte,L byte) = 8*N 
0012 0216 mov f L_temp,w 

0013 O1F1 addwf L_byte 

0014 0603 bttse STATUS, CARRY 

0015 02B0 incf H byte 

0016 0215 movf H temp, w 

0017 O1F0 addwf H_ byte 

0018 0800 retlw 0 ; (H_byte,L byte) = 10*N 
0019 0070 BCDtoB clrf H_ byte 

OO1A 0212 movf RO,W 

001B OEOF andlw OF 

001C 0031 movwe L_ byte 

0O01D 0904 call mpyl0a ; result = 10at+b 

OO1E 0393 swapf R1,Ww 

OO1F 03900 call mpylOb ; result = 10[10a+b] 
0020 0213 mov f R1,w 

0021 0800 call mpyl0b s result = 10(10[10a+b]} +c] 
0022 0394 swapf R2,W 

0023 0900 call mpyl0b y result = 10[10[10[l0a+b]+c]+d] 
0024 0214 movf R2,W 

0025 OEOF andlw OF 

0026 O1F1 addwf L byte 

0027 0603 btise STATUS, CARRY 

0028 02B0 ap elena H_ byte , result = 10[10[10[10a+b]+c]+d]+e 
0029 0800 retlw 0 ; BCD to binary conversion done 


“8 -e 





PS A A ES a LA OT 
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KK KK KKK KK KKK KKK KEK KK KKK KK KKK KKK KEKE KKK KKK KKK KK KKK KKK KEKE KK KKK KK EKEKKKKEK 


; Test Program 
pK KKK KK KKK KKK KKK EKER KK KEK KKK KK ERK KKK KK KKK KKK EEK KKKEKRKEKEKKKEKKKEKKKKE 
OO2ZA 0C06 main movlw 06 | 
002B 0032 movwf RO 7; Set RO = 06 
002C 0C55 moviw so ae 
002D 0033 movwft Ri ; Set R1 = 55 
0OO2E 0C35 moviw 35 
OO2F 0034 movwft R2 ; Set R2 = 35 ( RO, Rl, R2 = 6,55,35 ) 
0030 0919 call BCDtoB ; After conversion H Byte = FF & L Byte = FF 
0031 OA31 self goto self 
org FF 
O1FF 0OA2A goto main 
END 
Errors 7 
Warnings : 0 
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APPENDIX J: BINARY (8-BIT) TO BCD LISTING 


MPASM BO.54 PAGE 1 


LEST p=16c54,n=0 


. 
tA 


PRR RK KKK KKK KKK KK KK KKK KK RK KKK KK KK KR KKK KKK KKK KR KKK KKK KK KK KKK KK KKK KK KK KK 





; This routine converts the 8 bit binary number in the W Register 
; to a 2 digit BCD number. 
; The least significant digit is returned in location LSD and 


; the most significant digit is returned in location MSD. 


; Performance 

: Program Memory : 10 

: Clock Cycles : 81 (worst case when W = 63 Hex ) 
; ( 1.e€ max Decimal number 99 ) 


PRR RK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KKK KKK KK KK KKK 


» 
, 


0010 LSD equ 0 
0011 MSD equ 11 
INCLUDE ‘“mpreg.h” 
PRREKKKKKKKKKKK KK KKK KK KKK KKK PIC16C5X Header KAKKKKKKKKEKKARKRAKRKRKAKAKKRKKKH 

O1FF PIC54 equ 1FFH ; Define Reset Vectors 
O1FF PESO equ 1LFFH 

O3FF PLES6 equ 3FFH 

O7FF PIC57 equ 7FFH 

0001 RECC equ 1 

0002 PC equ 2 

0003 STATUS equ 3 ; F3 Reg is STATUS Reg. 
0004 FSR equ 4 

0005 POrt..A- .equ ) 

0006 Port _B equ 6 ; I/O Port Assignments 


0007 Port -C equ 7 


, 
PORK RR KK KK KK I KK KK KK KK RK KK KK RR KK KK KK KK KK KK KK KK 


° 
, 


; ; STATUS REG. Bits 
0000 CARRY equ 0 ; Carry. BLY “LS -Bit-20: of 3S 
0000 C equ 0 
0001 DCARRY equ 1 
0001 DC equ it 
0002 2 Dit equ 2 ; Bit 2 Of F3- 1s -2Zero Bit 
0002 Z equ 2 
0003 P DOWN equ 3 
0003 PD equ 3 
0004 T OUT equ 4 
0004 ZO equ 4 
0005 PAO equ S 
0006 PAL equ 6 
0007 PA2 equ a 
0001 Same equ al 
0000 W equ 0 
0000 LSB equ 0 
0007 MSB equ 7 
0001 TRUE equ 1 
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0001 YES equ 1 
0000 FALSE equ 0 
0000 NO equ 0 


, 
PRR KKK KKK KK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KK KK KKK KK KK KKK KKK KKK KKKKKEKKKK KKK 


° 
, 


0000 0071 BinBCD clrf MSD 

0001 0030 movwft LSD 

0002 OCOA gtenth movlw elQ 

0003 0090 subwf LSD,W 

0004 0703 BTFSS STATUS, CARRY 
0005 O0A09 goto over 

0006 0030 movwf LSD 

0007 02B1 inet MSD 

0008 OA02 goto gtenth 

0009 0800 over retlw 0 


PRKKKRKEKKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KK KKKKKKKKKKKKKKKKKKKKKKKEKKKKKK 


. 
, 


QOOOA 0C63 main movlw 63 ; W reg = 63 Hex 
000B 0900 call BinBCD ; after conversion, MSD = 9 & LSD = 9 
O00C OADC self goto self ; ( 63 Hex = 99 Decimal ) 
org 1FF 
OLFF OAOA goto main 
END 
Kirvors : 0) 
Warhings : 0 


TE 
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APPENDIX K: BINARY (16-BIT) TO BCD LISTING 


MPASM BO0.54 PAGE 1 


PRR KR RK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK AK KKK KKK KKK KKK KK KK 


; Binary To BCD Conversion Routine 

; This routine converts a 16 Bit binary Number to a 5 Digit 

; BCD Number. This routine is useful since PIC16C55 & PIC16C57 

; have two 8 bit ports and one 4 bit port ( total of 5 BCD digits) 


; The 16 bit binary number is input in locations H_ byte and 
; L_byte with the high byte in H_byte. 
; The 5 digit BCD number is returned in RO, Ri and RZ with ROU 


; containing the MSD in its right most nibble. 


; Performance 
; Program Memory : 35 
; Clock Cycles : 885 


PRR KR KKK KKK KKK KEKKKK KAKA KKK KEK KKK KKK KK KKAKKK KKK KK AK KK KK AKKKA KKK KKK AR > 


LIST P=16C54 


0016 count equ 16 
0017 temp equ Li 
0010 H byte equ 10 
0011 L byte equ Ld 
0012 RO equ 12 ; RAM Assignments 
0013 R1 equ 13 
0014 R2 equ 14 
include ‘“mpreg.h” 
pRKKKKKKKKKKKKKKKKEKKKKKKKKK PIC16C5X Header KARE KEKKEKKKKKEKKEKKKKKKKK KKK 
O1FF PIC54 equ LFFH ; Define Reset Vectors 
O1LFF PICS5 equ 1FFH 
O3FF PIC56 equ 3FFH 
O7FF PIC57 equ 7FFH 
0001 RTCC equ lh 
0002 PC equ 2h 
0003 STATUS equ 3h ; F3 Reg is STATUS Reg. 
0004 FSR equ 4h 
0005 Port_A equ 5h 
0006 Port_B equ 6h ; I/O Port Assignments 


0007 Port _C equ 7h 


, 
PRR RR KKK KR KK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KR KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK 


. 
7 


; ; STATUS REG. Bits 
0000 CARRY equ Oh ; Carty Bit is: Bit.0 of 3 
0000 C equ Oh 
0001 DCARRY equ 1h 
0001 DC equ lh 
0002 bit equ 2h Po Bit 2) Of FS. .18. Zero: Bie 
0002 Z equ Zn 
0003 P DOWN equ 3h 
0003 PD equ 3h 
0004 T_OUT equ 4h 
0004 TO equ 4h 
0005 PAO equ 5h 
0006 PAI equ 6h 
0007 PA2 equ 7n 
0001 Same equ th 
0000 LSB equ Oh 





‘SS fc SA SG ES SS Ri I I EC I I I ETT 
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0007 MSB equ Th 
0001 TRUE equ lh 
0001 YES equ 1h 
0000 FALSE equ Oh 
0000 NO equ Oh 


. 
a 


OUI III III III RII III II III II IOI III IORI IORI IR I Ik 


0000 0403 B2 BED’ -bee STATUS, 0 ; Clear the carry bit 
0001 0C10 movlw .16 

0002 0036 movwt count 

0003 0072 . elrt RO 

0004 0073 Clr R1 

0005 0074 Clret R2 

0006 0371 Loop6. elt L_byte 

0007 0370 PLE H_ byte 

0008 0374 rit R2 

0009 0373 se R1 

OOOA 0372 vale RO 

OOOB 02F6 decfsz count 

O000C OAOE goto ad jDEC 

OO00D 0800 RETLW 0 

OOOE 0C14 adjDEC movlw R2 

OOOF 0024 movwt FSR 

0010 0918 call adjBCD 

O01L4L-0ELS moviw Rl 

0012 0024 movwf FSR 

0013 0918 call adjBCD 

0014 0C12 movlw RO 

0015 0024 movwf FSR 

0016 0918 Galt adjBCD 

0017 OA06 goto loop16 

0018 0C03 adjBCD movlw 3 

0019 01C0 addwf 0,W 

OO1A 0037 movwf temp 

001B 0677 btfsc temp, 3 ; test if result > 7 
001C 0020 movwft 0 

001D 0C30 movilw 30 

OO1E 01C0 addwf O,W 

OO1F 0037 movwf temp 

0020 O6F7 btfse temp, 7 ; test if result > 7 
0021 0020 movwf 0 ; save as MSD 
0022 0800 RETLW 0 


. 
f 


PRREKKKKKKKKKKKKKKK KK KK KKK KKK KKKKKK KK KK KKK KKK KK KK KKK KK KK KKK KK KK KK KK KKK 


; test. Program 
pRKKRKKKKKKKKKK KKK KKK KKK KK KKK KKK KK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK 
0023 OCFF main movlw OFF 
0024 0030 movwt H_ byte 
0025 0031 movwf L_byte ; The 16 bit binary number = FFFF 
0026 0900 call B2_ BCD ; After conversion the Decimal Number 
; ; in -RO,R1,R2 = 06,55, 35 
0027 0A27 self goto self 
org LFF 
O1FF 0A23 goto main 
END 


SP PS SP a SS SE CE 
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APPENDIX L: UNSIGNED BCD ADDITION LISTING 


MPASM BO.54 PAGE 1 
PRKKKKKKKKKKKKKKKK KK Unsigned BCD Addition KREKKKKKKKKAKRKKKK 
; This routine performs a 2 Digit Unsigned BCD Addition 


; It is assumed that the two BCD numbers to be added are in 

; locations Num_1 & Num _2. The result is the sum of Num_1i+Num_2 

; and is stored in location Num_2 and the overflow carry is returned 
; in location Num_1 





: Performance 

; Program Memory : 295 

7 Clock Cycles : 23 ( worst case ) 
; Rev 2.0 changed on 7/30/92. 


PRK KK KR KR KR RK RK RK KK KKK KKK KK KK KK KK KK KK KKK KKK KK KK KK KK KK RK KR KK RK KKK KKK 


LIST P=16C54 
0008 Num_ 1 equ 8 ; Overflow flow carry overwrites Num 1 
0008 result equ 8 
0009 Num_ 2 equ 9 ; Num_2 + Num_l overwrites Num 2 
0009 O flow equ 9 
include “mpreg.h” 
PRKKKKKKKKKKKKKK KKK KK KKK KKK PIC16C5X Header KEKKKKKKKKKKKKRKAK KKK KKK KKK 
O1FF PIC54 equ LFFH ; Define Reset Vectors 
OLFF PIC55 equ 1FFH 
O3FF PICs6 equ 3FFH 
O7FF PICS7 equ TEFH 
0001 RTCC equ lh 
0002 PC equ 2h 
0003 STATUS equ ah ; F3 Reg is STATUS Reg. 
0004 PSR equ 4h 
0005 Port A equ Sh 
0006 Port _B equ 6h ; I/O Port Assignments 


0007 Port .C «equ 7h 


, 
PRKKKKKKKKKKKK KKK KKK KK KKK KKK KK KKK KKK KK KK KKK KKK KK KK KKK RK KKK KKK KKK KK KK KK KK KK 


° 
of 


; ; STATUS REG. Bits 

0000 CARRY equ Oh f CaP ry Bat? 1s Bat Os On 2S 
0000 C equ Oh 

0001 DCARRY equ lh 

0001 DC equ lh 

0002 Z bit equ 2h ; Bit.<2::0f F315 Zero: Bit 
0002 Z equ 2h 

0003 P_ DOWN equ 3h 

0003 PD equ 3h 

0004 TOUT equ 4h 

0004 TO equ 4h 

0005 PAO equ 5h 

0006 PAI equ oh 

0007 PA2 equ pagel 

0001 Same equ ih 

0000 LSB equ Oh 

0007 MSB equ 7h 

0001 TRUE equ lh 

0001 YES equ lh 

0000 FALSE equ Oh 


ES a aR NN A ee LS GN a a a a a BN Ne 
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Oh 


PRK KKK KKK KK EK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KK KK KKK KKK KK KK KK KK KKK KK 


Num_1,w 
Num 2 
Num_1 
Num_1 
STATUS, DC 
adjust 

6 

Num_2 


STATUS, CARRY 


Num_1 
STATUS, DC 
Num 2 
overl 

6 

Num 2 

60 

Num 2 


STATUS, CARRY 


over3 
Num_1,0 
Num_2 

0 

1 

Num_1 

0 


. 
av 


do binary addition 


Is DC = 0 ? 
adjust LSD 


Test for LSD > 9 ( by adding 6 


& checking Digit Carry 
LSD < 9, so get back original value. 


add 6 to MSD 


PRK KKK RK RK KR KR KKK KK KR KKK KK KK KK KK KK KK KK KK RK RK KK RK KK RK KKK KK KK KK KK KKK 


0000 NO equ 
0000 0208 BCDAdd movf 
0001 O1E9 addwf 
0002 0068 CLEr 
0003 0368 r1lf 
0004 0623 btfsc 
0005 OAOD goto 
0006 0C06 movilw 
0007 01E9 addwf 
0008 0603 btfsc 
0009 02A8 inet 
000A 0723 btfss 
OOOB OO0A9 subwf 
O000C OAOF goto 
OOOD 0C06 adjust movlw 
OOOE O01E9 ; addwf 
OOOF 0C60 overl movlw 
0010 01E9 addwf 
0011 0603 btfsc 
0012 0A16 goto 
0013 0708 btfss 
0014 QOA9 subwf 
0015 0800 RETLW 
0016 0CO1 over3 movilw 
0017 0028 movwf 
0018 0800 RETLW 
0019 0C99 main moviw 
OO1A 0028 movwf 
001B 0C99 mov lw 
OO01C 0029 movwf 
OO1D 0900 call 
) 
OO1E OA1E self goto 
org 
O1FF 0A19 goto 
END 
Errors : 0 
Warnings : 0 


Test Program 
PARK KKKKK KK KKK RK KKK KKK KR KKK KK KKK KK KKK KKK KKK KKK KK KKK KKK KKK RK KKK KR KR KK KK 


99 
Num_1 
99 
Num 2 


BCDAdd 


self 


1FF 
main 


. 
7 


° 
, 


° 
, 


° 
, 


Set Num_1l 99 ( max BCD digit ) 


Set Num_2 99 
After addition, Num_2 = 98 


and Num_1 = 01 ( 99+99 = 198 -> max number 


iii Sets sSSSRRLS SRS 
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APPENDIX M: UNSIGNED BCD SUBTRACTION LISTING 


MPASM BO.54 PAGE 1 
PRR KKKKKKKKKKKKKKKK Unsigned BCD Subtraction KKKKKKKEKKEKKKEKSE 
: This routine performs a 2 Digit Unsigned BCD Subtraction. 


; It is assumed that the two BCD numbers to be subtracted are in 

; locations Num_1 & Num _2. The result is the difference of Num_1l & Num 2 
; ( Num_2 - Num_1) and is stored in location Num_2 and the overflow carry 
7; is returned in location Num_l. 

; Performance 

+ Program Memory : 3k 

Clock Cycles : 21 ( worst case ) 

pRRERKKRK KKK KKK RK KKK KK KK KKK KK KKK KKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK 





° 
, 


LIST P=16C54 


0008 Num_1i equ 8 ; Overflow flow carry overwrites Num_1 
0008 result equ 8 
0009 Num 2 equ 9 ; Num_2 - Num_l overwrites Num_2 
0009 O_ flow equ 9 
include “mpreg.h” 

PRE RKKKKKKKKKK KKK KK KKKKKK KK PICi6C5xX Header KKEKEKKEKKKKKEKRKKEKEKKKKKEKKKKRKK 
O1FF PIC54 equ 1FFH ; Define Reset Vectors 
O1FF PICs equ 1FFH 
O3FF PIC56 equ 3FFH 
OUVFF PICS? equ 7EFFH 
0001 RTCC equ lh 
0002 PC equ 2h 
0003 STATUS equ 3h ; F3 Reg is STATUS Reg. 
0004 FSR equ 4h 
0005 Port_A equ Sh 
0006 Port_.B  équ 6h ; I/O Port Assignments 


0007 Port Cc. equ 7h 


, 
PRK KKK KKK KK KK KK RK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKKKKKKEKKKKKKKKKKKK KKK AK KKK 


° 
, 


; ; STATUS REG. Bits 

0000 CARRY equ Oh ; Carry Bit is Bit.0 of F3 
0000 C equ Oh 

0001 DCARRY equ lh 

0001 DC equ lh 

0002 Z bit equ 2h ; Bit 2 of F3 is Zero Bit 
0002 Z equ 2h 

0003 P DOWN equ 3h 

0003 PD equ 3h 

0004 T_ OUT equ 4h 

0004 TO equ 4h 

0005 PAO equ 5h 

0006 PAI equ 6h 

0007 PA2 equ 7h 

0001 Same equ lh 

0000 LSB equ Oh 

0007 MSB equ 7h 

0001 TRUE equ lh 

0001 YES equ Lh 

0000 FALSE equ Oh 

0000 NO equ Oh 


? 
PRA KKKKKKKKRKA KK KKK KKK KK KKK RK KKK KKK KKK KKK KKK KKK KR KER KKK KKK KKK KKK KKK KK KK KKK KK 


rE Ee SS Se I NSS ALS STL ET I TEE RIES 
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0000 0208 BCDSub movft Num_1,w 

0001 OO0A9 subwf Num 2 

0002 0068 eLre Num_1 

0003 0368 elt Num_1 

0004 0723 btfss STATUS, DC 

0005 QAO0C goto adjstl 

0006 0769 btfss Num_2,3 ; Adjust LSD of Result 
0007 QAOE goto Over 1 

0008 0649 btfsc Num 2,2 

0009 OAOC goto adjstl ; Adjust LSD of Result 
OOOA 0729 btfss Num 2,1 

OO00B OAOE goto Over _1 ; No : Go for MSD 
O000C O0C06 adjstl movlw 6 

0O00D QOA9 . subwf Num_2 

OOOE 0708 Over 1 brEss Num_1,0 ; CY =0 ? 

OOOF QA17 goto adjst2 ; Yes, adjust MSD of result 
0010 0068 eller Num_1 

0011 O7E9 btfss Num_2,7 ; No, test for MSD >9 
0012 0800 RETLW 0 

0013 06C9 btfsc Num_ 2,6 

0014 0A17 goto adjst2 

0015 O7A9 btfss Num_2,5 

0016 0800 RETLW 0 

0017 0C60 adjst2 movilw 60 ; add 6 to MSD 

0018 OO0A9 subwf Num 2 

0019 0068 cLYE Num_1 

OO1LA 0703 btfss STATUS, CARRY ; test if underflow 
001B 0800 RETLW 0 

OO1C OCO1 moviw 1 

OO1D 0028 movwf Num_l 

OO1E 0800 Over RETLW 0 


. 
f 


PRK KR KKK KKK KKK KKK KKK KK KKK KKK KKK KKK RK KKK KK KKK KKK KKK KKK KK KKK KK KKK KKK KKK 


; Test Program 
PRKKKRKKRKKKKKK KK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK 
OO1F 0C23 main movilw 23 
0020 0028 movwf Num_l ; Set Num_l = 23 
0021 C99 movilw 29 
0022 0029 movw£ Num 2 ; Set Num_2 = 99 
0023 0900 eal BCDSub ; After subtraction, Num. 2 = 76 ( 99=23 ) 
: ; and Num_1 = 0 ( indicates positive result 
0024 0C99 moviw 99 
0025 0028 movwE Num_l ; Set Num_1 = 99 
0026 0C00 moviw 0 
0027 0029 movwt Num 2 ; Set Num 2 = 0 
0028 0900 call BCDSub ; After subtraction, Num_2 = i 
; ; and Num_l = 1 ( indicates negative result 
; po the SS Pea) 
0029 0A29 self goto self 
org LFF 
O1FF 0AI1F goto main 
END 


Errors : 0 
Warnings : 0 





a a ae ee ee a Se ee Dee a a ee nae 
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APPENDIX N: SQUARE ROOT BY NEWTON-RAPHSON METHOD 


MPASM BOQ.54 ; PAGE 1 


list p=16c54, f=inhx8m, n=0 
PRAKKKKKKKKKKKKKKK KKK KK KK KKK KKK KKK KKK KK KK RK KK KK KK KKK KR RK RK KK KK KK 
, 


; Square Root By Newton Raphson Method 


;: Lhis routine computes the square root ot a 16 bit number(with 

7 low byte in NumLo & high byte in NumHi ). After loading NumLo & 

; NumHi with the desired number whose square root is to be computed, 
; “branch to- Location Sort. (by “GOTO. Sqrt” ).°™ CALL Sort” :ceannot 
; be issued because the Sqrt function makes calls to Math routines 

; and the stack is completely used up. 

. The result = sqrt (NumHi,NumLo) is returned in location SqrtLo. 
; The total number of iterations is set to ten. If more iterations 

; are desired, change “LupCnt equ .10” to the desired value. Also, 

; the initial guess value of the square root is given set as 

,; input/2 ( in subroutine “init” ). The user may modify this scheme 
; if a better initial approximation value is known. A good initial 

; guess will help the algorithm converge at a faster rate and thus 

; less number of iterations required. 


; Two utility math routines are used by this program : D divs 

; and D_add. These two routines are listed as seperate routines 

; under double precision Division and double precision addtion 

; xvespectively. 

; Note : If square root of an 8 bit number is desired, it is probably 
; better to have a table look scheme rather than using numerical 
: methods. 

: Performance 

; Program Memory : 27 (excluding Math Routines 

; D divs & D_add ) 

: Clock Cycles : 3600 ( approximately ) 


: To assemble this program, two routines, namely “D add” & 

H “D_ divS” must be included into this program. These two routines 
; are listed as separate programs in files “DBL ADD.ASM” & 

; “DBL DIVS.ASM” respectively. 

PRKKKKKKKKKKK KK KKK KKK KKK KKK KKK KKK KKK KR KK KKK KKK KKK KKK KK KKK KR KK KK KOK KK KK 


e 
’ 


0010 ACCaLO equ 10 
0011 ACCaHI equ 11 
0012 EXPa equ ee 
0013 ACCbLO equ 3 
0014 ACCbHI equ 14 
0015 EXPb equ is 
0016 ACCcLO equ 16 
0017 ACCcHI equ Led 
0018 ACCdLO equ 18 
0019 ACCdHI equ Le 
OO1A temp equ 1A 
OO01B sign equ 1B 
org 0 
OOOA LupCnt equ 20) ; Number of iterations 


SEES PE GP SSE A SS ST SL NT OT EB EC 
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0010 SqrtLo equ ACCaLO 

0011 SqrtHi equ ACCaHI 

001D NumLo equ 1D 

0015 NumHi equ 1E 

OO1F count equ 1F 
init 

0000 OCOA movilw LupCnt 

0001 003F  movwt count 

0002 O21E movf NumHi,W 

0003 0031 movwft SqrtHi 

0004 021D movt NumLo, W ; set initial guess root = NUM/2 

0005 0030 movwft Sart lo 

0006 0403 boon a STATUS, CARRY 

0007 0331 ae ap SqrtHi 

0008 0330 bap ob 8 SqrtLo 

0009 0800 retlw 0 

OOOA 0403 div2 bcf STATUS, CARRY 

OO0OB 0314 as apo ACCbHI,W 

000C 0031 movwf SqrtHi 

O0O00D 0313 re ACCbLO, W 

OOOE 0030 movwft SqrtLo 

OOOF 0800 retlw 0 

0010 0900 Sqrt call init 

0011 021D sloop movf NumLo, W 

Q012 0033 movwt ACCbLO 

Q013 O21E movt NumHi, W 

0014 0034 movwf ACCbHI 

0015 091B call D_divs ; double precision division 

0016 0947 call D_add ; double precision addition 
; ; the above 2 routines are listed 
; ; aS seperate routines 

0017 090A call div2 

0018 O2FF decfsz count 

0019 OAl11 goto sloop 

OO1A 0A53 goto over ; all iterations done 
: ; branch back to desired location 


PRAKKKKKKKKEKKKKKKKKKKKK KKK KARR KE KKKKKKKKKKKKKKKK KKK KK KK AK KKK KK 


double precision division is placed here 
include “d_divS.asm” 


PRAEKRKKRR KEK KER KKK KEK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
PRAKRRKKKKRKEKKKKKKKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KK 
; double precision addition is placed here 

include “d_add.asm” 


PRAKKKKKKKKKKKKKKKKKKKK KKK KKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KK KK 
7 
’ 
RIK KK KK KK KOK KKK KO KOK KK RK RK RK KK KK RK RK KK 


; Test Program 
PRAKKKKKKKKKKKKKKKKKK KKK KKK KKK RK KK KKK KKKKKKKKKKKK KKK KKK KKK KK KK 


. 
, 


O04E OCF3 main moviw OF3 

O04F 003E movwf NumHi 

0050 OCF6 moviw OF6 ; Set input test number = 62454 

0051 003D movwf NumLo ; = F3F6h 

0052 OA10 goto Sqrt ; cannot use CALL : Math routines 
; : ; use up all the stack. 

0053 0000 over nop ; all iterations done 


0054 O0A54 self goto self ; result = OOF9h = 249 


ES SSA NT 0 SRR I PE SE a TPR ET ETN 
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; exact sqrt (62454) = 249.9 








org PIC54 
O1FF OA4E goto main 
END 
Errors : 0 
Warnings : 0 
En ee Sata aT SSE ENO OS RO ee ee ere ea ES a PC Pr er ea ee Ne Oe OT Oe ee eo a PT 
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NOTES: 
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Using PIC16CSX Microcontrollers as LCD Drivers 





INTRODUCTION 


This application report describes an LCD controller 
implementation using a PIC16C55 microcontroller. This 
technique offers display capabilities for applications that 
require a small display at a low cost together with the 
capabilities of the standard PIC15C55 microcontroller. 
We start by an overview of LCD devices and their theory 
of operation followed by software implementation issues 
of the controller. The source code for controlling a 
multiplexed LCD display is included in Appendix A. 


LIQUID CRYSTAL DISPLAYS 


The Liquid Crystal Display (LCD) is a thin layer of "Liquid 
Crystal Material" deposited between two plates of glass. 
The raw LCD is often referred to as "glass". Electrodes 
are attached to both sides of the glass. One side is 
referred to as common or backplane, while the other side 
is referred to as segment. 


An LCD is modelled as a capacitor, with one side 
connected to the common plane and the other side 
connected to the segment, as shown in Figure 1. LCDs 
are sensitive to Root Mean Square Voltage levels. 
When a V,,,.,. level of zero volts is applied to the LCD, the 
LCD is practically transparent. 


Toturn an LCD segment "on", which makes the segment 
turn dark or opaque, an_LCD RMS voltage that is greater 
than the LCD threshold voltage is applied to the LCD. 
The RMS LCD voltage is the RMS voltage across the 
capacitor C in Figure 1, which is equal to the potential 
difference between SEG and COM values. 


Different LCDs have different characteristics; Figure 2 
shows typical voltage vs relative contrast characteris- 
tics. Notation on curve shows operating points for 
multiplex operation with the threshold voltage set to 1.7 
Vrms. This voltage is often used as the measure of 
voltage for LCD to be "off" or transparent. The curve is 
normalized and assumes a viewing angle of 90° to the 
plane of the LCD. 


Contrast control, the process of turning on asegment, is 
achieved by moving the operating point of the LCD by 
applying voltage to the LCD that is greater than the LCD 
threshold voltages. A typical circuit to accomplish this 
task is shown in Figure 3. 


Driving a liquid crystal display at direct current (DC) will 
cause permanent damage to the display unit. In order to 
prevent irreversible electrochemical action from de- 
stroying the display, the voltage at all segment locations 
must reverse polarity periodically so that a zero net 
voltage is applied to the device. This process is referred 
to as AC voltage application. There are two LCD driving 
methods available: Static driving method and multi- 
plexed driving method. 


FIGURE 1: ELECTRICAL MODEL OF AN LCE SEGMENT WITH DRIVING VOLTAGES 





COM - SEG —-— Segment Off 


COM - SEG | | | | | | | | | | | | Segment On 


VON RMS = VpbD 
VoFF RMS = 0 
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Conventional LCDs have separate external connections 
for each and every segment plus acommon plane. This 
is the most basic method that results in good display 
quality. The main disadvantage of this driving method is 
that each segment requires one liquid crystal driver. The 
static driving method uses the frame frequency, defined 
as a period of the common plane signal, of several tens 
to several hundred Hz. A lower frequency would result 
in blinking effects and higher frequencies would in- 
crease power requirements. To turn a segment on, a 
voltage that has an opposite polarity to the common 
plane signal must be applied resulting in a large RMS 
voltage across the plates. To turn off a segment a 
voltage that is of the same polarity to common plane 
signal is applied. This drive method is universal to 
driving LCD segments. Figure 1 shows an example of 
this driving method. 


The LCD frequency is defined as the rate of output 
changes of the common plane and segment signals, 


, . frame 
whereas the frame rate is defined as f,__. = a 


where N is the multiplex rate or number of backplane. 
Typically, f, me anges from 25HZ to 300HZ. The most 
commonly used frame fequency is 40-70HZ. A lower 
frequency would result in flicker effects and higher 
frequency would increase power requirements. 


FIGURE 2: TYPICAL LCD CHARACTERISTICS 
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Multiplexed LCDs maintain their liquid crystal character- 
istics. These are low power consumption, high contrast 
ratio under high ambient light levels, and reduce the 
number of external connections necessary for dot matrix 
and alphanumericdisplays. The multiplex driving method 
reduces the number of driver circuits, or microcontroller 
I/O pins if a software method is used. The method of 
drive for multiplexed displays is Time Division Multiplex 
(TDM) with the number of time divisions equal to twice 
the number of common planes used in a given format. In 
order to prevent permanent damage to the LCD display, 
the voltage at all segment locations must reverse polar- 
ity periodically so that zero net voltage is applied. This 
is the reason for the doubling in time divisions; each 
common plane must be alternately driven with a voltage 
pulse of opposite polarity. The drive frequency should be 
greater than the flicker rate of 25Hz. Since increasing the 
drive frequency significantly above this value increases 
current demand by the CMOS circuitry, an upper drive 
frequency level of 60Hz is recommended by most LCD 
manufacturers. We have chosen a drive rate of 50Hz for 
this application report which results in a frame period of 
20 ms. The most commonly available formats are 2x4, 
3x3, and 5x7. In this report we use a 2x4 format LCD to 
display hexadecimal digits. 


FIGURE 3: CONTRAST CONTROL CIRCUIT 
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To better understand multiplexed LCD control it is best 
to look at the general case. The segments in a multi- 
plexed LCD are arranged in an X-Y grid form as shown 
in Figure 4. The common plane signals maintain their 
relative shape at all times, as shown in Figure 5. To turn 
on segment 1 (SEG1), we need to apply a voltage Vd, 
such that Vs+Vd turns the segment on and Vs-Vd turns 
the segment off. Note that the segment signal Vd is 
symmetrical. This is aconsequence of the intervals that 
the common plane signal is not present at all times. Use 
of nonsymmetrical waveform will result in a higher Vrms 
present on the unaddressed segments. The symmetri- 


FIGURE 4: MULTIPLEXED LCD SEGMENT 
ARRANGEMENT 


Seg1 Seg2 





cal nature of the waveforms theoretically result in a zero 
DC voltage levels. CMOS drivers (e.g. microcontrollers) 
operate at 0 to +5V levels (rail voltage levels). This 
would require driving voltages beyond the range of 
operation. This constraint is addressed by a technique 
referred to as “level shifting” or “biasing”. Level shifting 
allows application of voltages in the range of 0 to +2.5V, 
which is compatible with these drivers. This would 
require an additional voltage level of +2.5V, which can 
be implemented through a simple resistive voltage di- 
vider circuit. 


FIGURE 5: MULTIPLEXED LCD DRIVE 
WAVEFORMS 
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IMPLEMENTATION 


The ideas presented in the previous section can be 
applied to any size multiplexed LCD display. In our 
implementation we used a 4-digit LCD from 
Ocular Inc. [1]. The circuit diagram used in this applica- 
tion report is shown in Figure 6. Each I/O pin on the 
PIC16C55 device controls the state of two segments 
(see Figure 6) which requires a total of 16 I/O pins. The 
reference voltages are generated through a simple 


FIGURE 6: SYSTEM CONFIGURATION 
WITH LCD PINOUT 
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FIGURE 8: LCD CHARACTER BITMAP 
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resistive voltage divider circuit. The voltage levels are 
generated by taking advantage of PIC16C5X I/O pin set 
to input, which tristates the voltage level seen on the pin. 
This method uses 4 I/O pins to generate the proper 
voltage levels. Figure 7 shows the truth table for 
generating the voltage levels. Figure 8 shows how to 
create a bitmap for different digits. Figure 9 shows the 
waveforms generated for the accompanying software 
which implements a hexadecimal counter. 


FIGURE 7: COMMON PLANE SIGNAL 
GENERATION 
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FIGURE 9: EXAMPLE OF OUTPUT CONCLUSION 
WAVEFORMS FOR DIGIT 4 


In this application report we have demonstrated the use 
of PIC16C5X devices to implement a simple LCD con- 
troller. As discussed earlier, it is important to keep the 
generated DC voltage to a minimum to extend the life of 
the LCD. Ideally one should switch all the 1/O lines 


v2 
[7] [ | pL simultaneously, however, a software implementation of 
v1 
Seed | | LL V2 








the LCD controller will necessarily introduce a delay 
which is proportional to the instruction cycle of the 
| | ! microcontroller, as shown in Figure 10. Therefore it is 

7 ie a = necessary to keep the switching time to aminimum. Our 

| LE | a implementation introduced less than 50 mV of DC volt- 
es Pa a e age on the segment lines which is below the 


manufacturer’s recommended DC offset voltage of 60 
mV. 


iD 


REFERENCES 
[1] Ocular Inc., Drawing number JH074. 
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FIGURE 10: MICROCONTROLLER GENERATED OUTPUT WAVEFORM 
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MPASM BO.54 | PAGE 1 


LIST C=132,n=0,p=16c55, r=dec 


PRK KKK KKK RK KK KEK KKK KK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK 


; Project: PIC1l6C5X as a multiplexed LCD driver. * 


. 
, 


* 


; Revision history: 


+ 


; 04/14/93 original 


+ 


PRAEKKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KK KK 


; Equates 
O1FF picd4 equ Oxlff ; Define Reset Vectors 
O1FF pic55 equ OxIfE 
O3FF pic56 equ Ox3ff 
OUVFF pic57 equ OxTfFf 
0001 rece equ cf e~ £4. 
0002 pe equ 2 £2 
0003 status equ 3 £3 
0004 fsr equ 4 ; £4 
0005 porta equ 5 ae is) 
0006 portb equ 6 <6 
0007 portc equ d - £8 
; realtime mode registers 
0008 currentState equ 8 
0009 msTimer equ currentStatetl ; Millisecond timer 
OO0A sTimerLow equ msTimert+l ; Lower byte second timer 
000B sTimerHigh equ . sTimerLow+1 ; Upper byte second timer 
000C digit56 equ sTimerHigh+1l 
000D digit34 equ dig ites6+1 
; Misc definitions 
0060 FIVEMSEC equ 96 ; Assuming 4.096 MHz crystal 
0000 W equ 0 
0001 £ equ a 
0002 Zi equ 2 


; Status register bits 


P RRR KKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKK KKK KKK KKK KKK KKK 


; Port assignments * 
. * 

; porta - bitO: Common Plane 0 * 
; bitl: Common Plane 0 * 
; bit2: Common Plane 1 * 
; bit3: Common Plane 1 * 
. * 

; portb - bit0O: 6B/DP * 
F bitl: 6C/6D * 
; bit2: 6G/6E * 
; bit3: 6A/6F * 
; bit4: 5B/DP * 
; BLES: 'SC75D * 
; bit6: 5G/5E * 


A rT RE Se ES RS PP PL ES 
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; bLET:  SA/ZSE * 
7 k 

* porte — bitO: 4B/DP * 
; - bitl: 4C/4D * 
; - bit2: 4G/4E * 
, - bit3: 4A/4F * 
; - bit4: 3B/DP * 
; = bits 3C/73D * 
; - bit6: 3G/3E * 
; - bit?: 3A/3F * 


x 


p RRR KKK KK RK KK RK KKK KKK KR RK KR KKK KKK KR KKK KKK KKK KKK KKK KK KK KK KK 


PRR KR RK KR RK RR OK KKK KKK KKK RR KK KK KK RK KK KKK KKK KKK KK KKK KKK 





; Macro definitions x 
p RR RK KR RR KK KR KK KR RR Rk RK RK KR KR KK RK KK RK KKK KK KKK KK K 
UpdateState macro State, Table 
swapf sTimerLow, w 
andlw Oxf ; Isolate digit 5 (offset) 
call Table 


movwf digit56 
swapf digit56, f 


movft sTimerLow, w 
andlw Oxf ; Isolate digit 6 (offset) 
call Table 


lorwf digitooy “f 


swapf sTimerHigh, w 

andlw Oxf ; Isolate digit 5 (offset) 
call Table 

movwf digit34 

swapf digit34, f 

movt sTimerHigh, w 

andlw Oxf ; Isolate digit 6 (offset) 
call Table 

lorwf Gigi C34, Ff 

movft digit34, w ; Display digits 3 & 4 
movwt portc 

movft digit56, w 

movwf portb ; Display digits 5 & 6 
endm 

org 0 


; Initialize ports A, B, and C and RTCC. In case of output data 
; values, set the data latch first, then set the port direction. 


Initialize 
0000 O0CO1 movlw 00000001b ; Set data latch 
0001 0025 movwf porta 
0002 O0C08 movlw 00001000b ; Set I/O direction 
0003 0005 tris porta 
0004 OCO00 movilw 00000000b ; Set levels to low 
0005 0026 movwf portb 
0006 OCO00 moviw 00000000b ; Set as outputs 
0007 0006 tris portb 
0008 OCO00 movilw 00000000b ; Set levels to low 
0009 0027 movwt portc 
OOO0OA OCOOD moviw 00000000b ; Set as outputs 
000B 0007 tris portc 
000C 0C04 moviw 0x04 ; Set prescaler 
O00D 0002 option 


‘EAR A AIRE NNT IN SAO SI ISS NIT RIE SS INE RE STEIN IS SS RN, TS RE EEL TE EMILE RE SD ENN ILE ERTL RAS a AIT NE ACE MTT 
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COOKE 0C60 moviw FIVEMSEC ; xrtcc = 5ms 
OOOF 0021 movwt rtce 
0010 0Cc04 moviw 4 
0011 0028 movwt currentState 
0012 OCOD moviw Oxd 
0013 0029 movwft msTimer ; Initialize millisecond timer 
0014 006A clrf sTimerLow ; Clear second counter 
0015 006B CLEL sTimerHigh 
0016 0800 retlw 0 
; Check timer register for timing out (rtcc = 0). Remain in the 


; loop until the timer times out. 


; Wait for 5ms timer timeout 


Timer Check 


0017 0201 movft rtcc, w 

0018 0743 btfss status, Z 

0019 0A17 goto Timer Check 

OO1A 0C60 movilw FIVEMSEC 

001B 0021 movwf rxrtcc 

001C 02E9 decfsz msTimer, f 

001D OA21 goto. Update Backplane 

OO1E O3EA incfsz sTimerLow ; Update second counter 
OO1F OA21 goto Update Backplane 

0020 O2AB Ber sTimerHigh, f 


; RAO and RA1 are used to control voltage level for common plane 0. 
; RA2 and RA3 are used to control voltage level for common plane 1. 
; There are four possible states with different voltage levels as 

; follows: 


; State 0 - cp0O = +5v ra0=1, ral=x 


; ep = +2. 5Vv ra2=1, ra3=0 
e SeaAGE Te COO =. 2s OV ra0=1, ral=0_ 
; cpl = +5v ra2=1, ra3=x 
; State 2 - cp0 = Ov ra0=0, ral=x 
; epl, = 4255¥ ra2=1, ra3=0 
; State.3° = -ep0 =] 42 .5Vv ra0=1, ral=0 
cpl = Ov ra2=0, ra3=x 


Update Backplane 


0021 0004 clrwdt ; Reset watchdog timer 
0022 00C8 decf currentState, w ; Update w register 
0023 0E03 andlw 0x03 ; Use only bit0/1 
0024 0028 movwf currentState ; Update currentState 
0025 01E2 addwf pc, f 
0026 OAAD goto State3 
0027 OA81 goto State2 
0028 0A55 goto Statel 

; goto Stated 

: State 0 

Stated 
UpdateState StateQ, SOQ Table 
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0029 038A swapf sTimerLow, w 
002A OEOF andlw Oxf ; Isolate digit 5 (offset) 
002B 0944 call SO Table 
002C 002C movwf digit56 
002D O3AC Swapf digit56, f 
OO02E O20A movft sTimerLow, w 
OO2F OEOF andlw Oxf ; Isolate digit 6 (offset) 
0030 0944 call SOQ Table 
OOS: 0120 Lorwt <digit56, 4 
0032 038B swapf sTimerHigh, w 
0033 OEOF andlw Oxf ; Isolate digit 5 (offset) 
0034 0944 Call SO Table 
0035 002D movwf digit34 
0036 O3AD swapf digit34, f 
0037 020B movf sTimerHigh, w 
0038 OEOF andlw Oxf ; Isolate digit 6 (offset) 
0039 0944 Call SOQ Table 
OO3A 012D jorwf digit34, f 
003B 020D movf digit34, w ; Display digits 3 & 4 
Q03¢ 0027 movwf portc 
003D O020C movf digit56, w 
003E 0026 movwf portb ; Display digits 5 & 6 
0O03F OCO5 moviw 00000101b 
0040 0025 movwf porta 
0041 0C02 movlw 00000010b 
0042 0005 tris porta 
0043 0800 retlw 0 

50: -Table 
0044 01E2 addwf pe, f£ ; Add offset to pe 
0045 0804 retlw 0100b y 0 
0046 O80C retlw 1100b , 1 
0047 0802 retlw 0010b Piet 
0048 0800 retlw 0000b ee 
0049 0808 retlw 1000b , 4 
004A 0801 retlw 0001b , 32 
004B O80F retlw 1111b ob 
004C 0804 retlw 0100b pt 
004D 0800 retlw 0000b ; 8 
004E 0800 retlw 0000b ae 
O04F 0800 retlw 0000b a 
0050 0809 retlw 1001b ; b 
0051 O080B retlw 1011b a © 
0052 0808 retiw 1000b ; a 
0053 0803 retlw 0011b ; e 
0054 0803 retlw O011b ae 

; Stare: i] 

statel 

UpdateState Statel, Sl Table 

0055 038A swapf sTimerLow, w 
0056 OEOF andlw Oxf ; Isolate digit 5 (offset) 
0057 0970 call S1_ Table 
0058 002C movwf digit56 
0059 O03AC swapf digit56, f 
OO5A 020A movt sTimerLow, w 
005B OEOF andlw Oxf ,; Isolate digit 6 (offset) 
005C 0970 call Sl1_ Table 


_ a 
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005D 


OO5E 
OOSF 
0060 
0061 
0062 


0063 
0064 
0065 
0066 


0067 
0068 
0069 
OO6A 


006B 
006C 
006D 
O06E 


O06F 


0070 


0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
OO7A 
007B 
OO07C 
007D 
OO7E 
OO7F 
0080 


0081 
0082 
0083 
0084 
0085 


0086 
0087 
0088 
0089 


OO8A 
008B 
008C 
008D 
O08E 


012C 


038B 
OEOF 
0970 
002D 
O3AD 


020B 
OEOF 
0970 
012D 


020D 
0027 
020C 
0026 


0cO5 
0025 
0Cc08 
0005 


0800 


01E2 


0801 
O80F 
0809 
080D 
0807 
0805 
O80F 
O80F 
0801 
0805 
0803 
0801 
0809 
0809 
0801 
0803 


038A 
OEOF 
099C 
002C 
O3AC 


020A 
OEOF 
099C 
012C 


038B 
OEOF 
099C 
002D 
O3AD 


Lorwf 


swapf 
andlw 
call 

movwft 
swapf 


movf 
andlw 
call 
iorwf 


movft 
movwt 
move 
movwf 


moviw 
movwt 
movlw 
tris 


retlw 


Sl Table 
addwf 


retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 


; State 2 


State2 
UpdateState 


swapf 
andlw 
call 

movwf 
swapf 


movft 
andlw 
call 
iorwf 


swapf 
andlw 
call 

movwft 
swapf 


digit56, f 


sTimerHigh, w 

Oxf ; Isolate digit 5 (offset) 
Sl1_ Table 

digit34 

digit34, f 


sTimerHigh, w 


Oxf ; Isolate digit 6 (offset) 
Sl_Table 

digit34, f 

digit34, w ; Display digits 3 & 4 
portc 

digit56, w 

portb ; Display digits 5 & 6 
00000101b 

porta 

00001000b 

porta 

0 

pc, £ 

0001b ; 0 

Litt ae | 

1001b i 2 

1101b are, 

0111b ; 4 

0101b -. oD 

Litib ae) 

1111b ; 7 

0001b : 28 

0101b rg 

0011b ; a 

0001b ; b 

1001b 7c 

1001b ; ad 

0001b ie 

0011b ; £ 


State2, S2 Table 


sTimerLow, w 

Oxf ; Isolate digit 5 (offset) 
S2_Table 

digit56 

digit56, f 


sTimerLow, w 

Oxf i Isolate digit 6 (offset) 
S2_ Table 

digitSe, -£ 


sTimerHigh, w 

Oxf ; Isolate digit 5 (offset) 
S2_ Table 

digit34 

digit34, f 


ere te RESERVA Pe SPURT PPP si 
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OO8F O020B movf sTimerHigh, w 
0090 OEOF andlw Oxf ; Isolate digit 6 (offset) 
0091 099C call S2_ Table 
0092 012D lorwf digqit34,. £ 
0093 O20D movt digit34, w ; Display digits 3 & 4 
0094 0027 movwf portc 
0095 020C movt digit56, w 
0096 0026 movwf portb ; Display digits 5 & 6 
0097 0C04 movlw 00000100b 
0098 0025 movwf porta 
0099 0CO02 movlw 00000010b 
OO9A 0005 EEis porta 
009B 0800 retlw 0 
S2 Table 
009C O1E2 addwf pc, f 
0O09D 080B retlw 1011b ; O 
OO9E 0803 retlw O011b ; 1 
OO9F O80D retlw 1101b 2 
OOAO O80F retlw 11llb ; 3 
OOA1 0807 retlw O111b 7; 4 
OOA2 O80E retlw 1110b ; 5 
O0A3 O80E retlw 1110b ae 
OOA4 O80B retlw 1011b ae 
OOA5 O80F retlw 1111b 28 
OOA6 O80F retlw 1111b a, 
OOA7 O80F retlw 111lb ; a 
O00A8 0806 retlw 0110b ; b 
OOA9 0804 retlw 0100b ; c 
OOAA 0807 retlw O111lb ; a4 
OOAB O80C retlw 1100b ; e 
OOAC O80C retlw 1100b ; f 
; State 3 
State3 
UpdateState State3, S3 Table 
OOAD 038A swapf sTimerLow, w 
QOOAE OEOF andlw Oxf ; Isolate digit 5 (offset) 
OOAF 09C8 call Ss. Table 
OOBO 002C movwf digit56 
OOB1 O3AC swapf digit56, f 
OOB2 O20A movf sTimerLow, w 
OOB3 OEOF andlw Oxf ; Isolate digit 6 (offset) 
00B4 09C8 call Jo. LaoLe 
OOB5 012C LOorwt “digitS6,>-£ 
OOB6 038B swapf sTimerHigh, w 
OOB7 OEOF andlw Oxf ; Isolate digit 5 (offset) 
00B8 09C8 call oo. Table 
OOB9 002D movwf digit34 
OOBA O3AD swapf digit34, f 
OOBB 020B movf sTimerHigh, w 
OOBC OEOF andlw Oxf ; Isolate digit 6 (offset) 
OOBD 09C8 call S3 Table 
OOBE 012D iorwf digit34, f 
OOBF 020D movt digit34, w ; Display digits 3 & 4 
00CO 0027 movwf portc 


ES AST LES SE a a a 
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N0C1 OZ0C movf digit56, w 
00C2 0026 movwf porthb ; Display digits 5 & 6 
00C3 OCOl movlw 00000001b 
00C4 0025 movwf porta 
G0Cc5 -“0C0s movlw 00001000b 
00C6 0005 tris porta 
00C7 0800 retlw 0 

S3 Table 
00C8 OLE2 addwf pc, f 
00C9 O80E retlw 1110b ae 
OOCA 0800 retlw 0000b pao 
OOCB 0806 retlw 0110b $a 
O00CC 0802 retlw 0010b 3 
OOCD 0808 retlw 1000b 7 4 
OOCE 080A retlw 1010b es 
OOCF O80E retlw 1110b 7; 6 
OODO 0800 retlw 0000b Pe 
OOD1 O80E retlw 1110b ; 8 
OOD2 O80A retlw 1010b ae) 
OOD3 O80C retlw 1100b ; a 
O0D4 O80E retlw 1110b ae 9. 
OOD5 0806 retlw 0110b Ae 
OOD6 0806 retlw 0110b aes | 
0OD7 O80E retlw 1110b oe 
OOD8 O80C retlw 1100b ie 


; Main code 


Start 
OOD9 03900 call Initialize 
Repeat 
OODA 0917 call Timer Check 
OODB OADA goto Repeat 


org piecss 


System_Reset 


O1lFF OAD9 goto Start 
END 

Errors : 0 

Warnings : 0 
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INTRODUCTION 


This application note is intended for PIC16C71 users 
with various degrees of familiarity with analog system 
design. The various sections discuss the following top- 
ics: 


¢* Commonly used A/D terminology 
¢ How to configure and use the PIC16C71 A/D 


* Various ways to generate external reference voltage 
(VREF) 


¢ Configuring RAO-RAS pins 


COMMONLY USED A/D 
TERMINOLOGY 


The Ideal Transfer Function 


Inan A/D converter, an analog voltage is mapped into an 
N-bit digital value. This mapping function is defined as 
the transfer function. An ideal transfer is one in which 
there are no errors or non-linearity. It describes the 
"ideal" or intended behavior of the A/D. Figure 1 shows 
the ideal transfer function for the PIC16C71 A/D. Note 
that the digital output value is 00h for analog input 
voltage range of 0 to 1LSB. In some converters, the first 
transition point is at 0.5LSB and not at 1LSB as shown 
in Figure 2. Either way, knowing the transfer function the 
user can appropriately interpret the data. 


FIGURE 1 - PIC16C71 IDEAL 
TRANSFER FUNCTION 
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Transition Point 


It is the analog input voltage at which the digital output 
switches from one code to the next. The transition point 
is typically not a single threshold, rather a small region 
of uncertainty (see Figure 3) The transition point is 
therefore defined as the statistical average of many 
conversions. Stated differently, it is the voltage input at 
which the uncertainty of the conversion is 50%. 


Code Width 


It is the distance (voltage differential) between two 
transition points. Ideally the Code Width should be 
1LSB. See Figure 1. 


FIGURE 2 - ALTERNATE TRANSFER 
FUNCTION 
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Center of Code Width 
It.is the midpoint between two transition points. See 
Figure 3. ‘ ‘ ‘ 


FIGURE 3 - TRANSITION POINTS 
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Differential Non-Linearity (DNL 





It is the deviation in code-width from 1LSB (Figure 7). 
The difference is calculated for each and every transi- 
tion. The largest difference is reported as DNL. 


It is important to note that the DNL is measured after the 
transfer function is normalized to match offset error and 
gain error. 


Note that the DNL cannot be any less than -1LSB. In the 
other direction, DNL can be >1LSB. 


FIGURE 7 - DIFFERENTIAL NON-LINEARITY 
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Absolute Error 


The maximum deviation between any transition point 
from the corresponding ideal transfer function is defined. 
as the absolute error. This is how.it is measured and 
reported in the PIC16C71 (Figure 8). The notable 
difference between absolute error and INL is that the 
measured data is not normalized for full scale and offset 
errors. 


It is probably the first parameter the user will look at to 
evaluate an A/D. Sometimes absolute error is reported 
as the sum of offset, full-scale and integral non linearity 
errors. 


Total Unadjusted Error 


It is the same as absolute error. Again, sometimes it is 
reported as the sum of offset, full-scale and integral non- 
linearity errors. 


No Missing Code 


No missing code implies that as the analog input voltage 
is gradually increased from zero to full scale (or vice 
versa), all digital codes are produced. Stated otherwise, 
changing analog input voltage from one quantum of the 
analog range to the next adjacent range will not produce 
a change in the digital output by more than one code 
count. | | 


Monotonic 


Monotonicity guarantees that an increase (or decrease) 
in the analog input value will result in an equal or greater 
digital code (or less). Monotonicity does not guarantee 
that there are no missing codes. However, it is an 
important criterion for feedback control systems. Non 
monotonicity may cause oscillations in such a system. 


The first derivative of a monotonic function always has 
the same sign. 


FIGURE 8 - ABSOLUTE ERROR 
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Ratiometric Conversion 


Itis the A/D conversion process where the binary result 
is a ratio of the supply voltage or reference voltage, the 
latter being equal to full-scale value by default. The 
PIC16C71 is a ratiometric A/D converter where the 
result depends on VDD or VREF. 


In some A/D's, an absolute reference is provided result- 
ing in “absolute conversion”. 


Sample and Hold 


In sample and hold type A/D converters, the analog input 
has a switch (typically a FET switch in CMOS) which is 
opened for a short duration to capture the analog input 
voltage onto an on-chip capacitor. Conversion is typi- 
cally started after the sampling switch is closed. 


Track and Hold 


It is basically the same as sample and hold, except the 
sampling switch is typically left on. Therefore the voltage 
on the on-chip holding capacitor “tracks” the analog 
input voltage. To begin a conversion, the sampling 
switch is shut off. 


The PIC16C71 A/D falls in this category. 


Sampling Time 


It is the time required to charge the on-chip holding 
capacitor to the same value as on the analog input pin. 
The sampling time depends on the magnitude of the 
holding capacitor and the source impedance of the 
analog voltage input. 


Offset Error (or Zero Error) 


It is the difference between the first actual (measured) 
transition point and the first ideal transition point as 
shown in Figure 4. It can be corrected by the user by 
subtracting the offset error from each conversion result. 


FIGURE 4 - OFFSET ERROR 
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Full Scale Error (or Gain Error) 


It is the difference between the ideal Full Scale and the 
actual (measured) full scale range (See Figure 5). It is 
also called gain error, because the error changes the 
slope of the ideal transfer function creating a gain factor. 
It can be corrected by the user by multiplying each 
conversion result by the inverse of the gain. 


FIGURE 5 - FULL SCALE ERROR 
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Integral Non-Linearity (INL), or Relative Error 


It is the deviation of a transition point from its corre- 
sponding point on the ideal transfer curve (Figure 6). 
The maximum difference is reported as the INL of the 
converter. 


It is important to note that Full Scale Error and the Offset 
Error are normalized to match end transition points 
before measuring the INL. 


FIGURE 6 - INTEGRAL NON-LINEARITY 
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HOW TO USE THE PIC16C71 A/D 


The A/D in the PIC16C71 is easy to set up and use. 
There are a few considerations: 


1. Select either VDD or VREF as reference voltage. More 
on using VREF input later. 


2. Select A/D conversion clock (tad): 2 tosc, 8 tosc, 32 
tosc or tre (internal RC clock). For the first three 
options, make sure that tad > 2.0 us. If deterministic 
conversion time is required, select tosc time base. If 
conversion during SLEEP is required, select trc. 


3. Channel Selection : If only one A/D channel is 
required, program the ADCON1 register to 03h. This 
configures the A/D pins as digital I/O. If multiple 
channels are required, prior to each conversion the 
new channel must be selected. 


4. Sampling and Conversion: After a new channel is 
selected, a minimum amount of sampling time must 
be allowed before GO bit in ADCONDO is set to begin 
conversion. Once conversion begins, it is OK to 
select the next channel, but sampling does not 
begin until current conversion is complete. There- 
fore, it is always necessary to provide minimum 
required sampling time 


i) after a conversion 

ii) after a new channel is selected 

lit) after A/D is turned on (ADON = 1). 

5. Reading Result: Completion of conversion can be 


determined by either polling GO/DONE bitto cleared, 
polling the ADIF bit to be set, or waiting for an ADIF 
interrupt. 





Example 1: How to do a simple ADC conversion. 


ADDITIONAL TIPS: 


1. The GO bit and the ADON bit may not be set at 
once. After the A/D is turned on by setting ADON, 
at least 5us time must be allowed before conversion 
begins, longer if sampling time requirement is not 
met within Sus. 


2. Aborting aconversion: Aconversion can be aborted 
by clearing GO bit. The A/D converter will stop 
conversion and revert back to sampling state. 


3. Using ADRES register as a normal register: The 
A/D only writes to ADRES at the end of a conver- 
sion. Therefore, it is possible to use ADRES as a 
normal file register between conversions and when 
A/D is off. 


The following are a few examples of using the A/D. 


; InitializeAD, initializes and sets up the A/D hardware. 


; Always ch2, internal RC OSC. 
InitializeAD 


bsf STATUS, 5 


select pgl 


movilw B'00000000'! 

movwt ADCON1 

bcf STATUS; 5 

moviw B* 11010001" 

movwf ADCONO 
Convert call sample-delay 


bsf ADCONO, 2 


ADCONO, 2 
loop 


ADRES, WwW 


A detailed code listing is in Appendix A. 


select RAOQ-RAS3... 
as analog inputs 
select pg0 


select: RC osc, ch2... 


; turn on A/D 


provide necessary sampling time — 


start new A/D conversion 


; A/D over? 


; no then loop 


; yes then get A/D value 





eee err eR 
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Example 2: How to do sequential channel conversions. 





; InitializeAD, 


initializes and sets up the A/D hardware. 


; Select chO to ch3 in a round robin fashion, internal RC OSC. 


; Load results in 4 consecutive addresses starting at ADTABLE (10h) 


. 
f 


. 
v 
° 
vy 
° 
, 
. 
v 


° 
, 


ay 


. 
, 


° 
, 


select pgl 

select RAO-RA3... 

as analog inputs 
select pg0 

select: RC osc, ch0... 
turn on A/D 

point fsr to top of... 
table 


provide necessary sampling time 
start new A/D conversion 


A/D over? 


no then loop 


yes then get A/D value 
load indirectly 
select next channel 

/ 


reset carry over bit. 


clear temp register 


; test lsb of channel select 


set if chl selected 

test msb of channel select 
/ 

get table address 

add with temp 

move into indirect 


TnitializeAD 
bsf STATUS. 
movlw B'Q0000000' 
mouvwf ADCON1 
bcf STATUS, 5 
movlw B'11000001' 
movwf ADCONO 
mov lw ADTABLE 
movwf FSR 

new _ad call sample delay 
bsf ADCONO, 2 

loop 
btfsc ADCONO, 2 
goto loop 
movf£ adres, w 
movwt 0 
movlw 4 
addwd ADCONO 
bert ADCONO, 5 

; increment pointer to correct table offset. 
cirt temp 
btfsc ADCONO, 3 
bsf temp, 0 
btfsc ADCONO, 4 
bsf temp, i 
moviw ADTABLE 
addwf temp, w 
movwf FSR 
goto new_ad 


A detailed code listing is in Appendix B. 


—_— aaa saan onan acc ne one Tes ooo ne ee Eeanasemmamnenmtaenammenad 
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Example 3: How to write the interrupt handler for the ADC. 


org 0x00 
goto start 
org 0x04 


goto service ad ; interrupt vector 
org 0x10 


movlw B'O0O0000000' ;init I/O ports 
movwf PORT _B 
tris PORT B 


call TInitializeAD 


bcf flag,adover ; reset software A/D flag 

call SetupDelay ; setup delay >= 10uS. 

ber ADCONO,adif ; reset A/D int flag (ADIF 
bsf ADCONO, adgo ; start new A/D conversion 
bSt INTCON, gie ; enable global interrupt 


bErSse flag,adover ; A/D over? 
goto update 7; yes start new conv. 


goto loop ; no then keep checking 


; InitializeAD, initializes and sets up the A/D hardware. 


; select ch0O to -ch3, RC OSC., ‘a/d- interrupt. 

TnitializeAD 
bsf STATUS. 3 ; select pgl 
movilw B'O00000000'! ; select RAQ-RA3... 
movwf ADCON1 ; aS analog inputs 
bcf STATUS; .--5 ; select pg0 
Cileer INTCON ; clr all interrupts 
bsf INTCON, 6 ; enable A/D int. 
movilw B'11010001' ; select: RC osc, ch2... 
movwf ADCONO ; turn on A/D 
return 

service ad 
btfss ; A/D interrupt? 
retfie ; no then ignore 
move ; get A/D value 


return ; do not enable int 





A detailed code listing is in Appendix C. 
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Example 4: How to do conversions during sleep mode. 


InitializeAD, 


Select ch0O to ch3, 


While doing the conversion put unit to sleep. 


minimize digital 


Note that ad's RC osc. 


InitializeAD 
bsf 
movilw 
movwf 
bert 
movilw 
movwf 
movilw 


movwf 


bsf 
sleep 
; when A/D 


movt 


noise 


STATUS, 5 
B'00000000' 
ADCON1 
STATUS;. <5 
B*T1000001" 
ADCONO 
ADTABLE 
FSR 


ADCONO, 2 


ADRES, WwW 


A detailed code listing is in Appendix D. 


interference. 


. 
f 


° 
sg 


. 
, 


initializes and sets up the A/D hardware. 


internal RC OSC. 


This will 


has to be selected in this instance. 


select pgl 

select RAO-RA3... 

as analog inputs 
select pg0 

select: CIO eang 


turn on A/D & ADIE 


RC osc, 
point: fsr to “Lep -0f:.;:. 


table 


start new A/D conversion 


goto sleep 


is over program will continue from here 


get A/D value 
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USING EXTERNAL REFERENCE 
VOLTAGE 


When using external reference voltage, keep in mind 
that any analog input voltage must not exceed VREF. 


An inexpensive way to generate VREF is by employing 
zener diode (Figure 9). Most common zener diodes 
offer 5% accuracy. Reverse bias current may be as low 
as 10 1A. However, larger currents (1mA - 20mA) are 
recommended for stability, as well as lower imped- 
ance of the VREF source. 


FIGURE 9 - LOW COST VOLTAGE 
REFERENCE 


PIC16C71 


C = 0.01 to 0.1pF 





POWER MANAGEMENT IN USING VREF 


In power sensitive applications, user may turn on VREF 
generator using another I/O pin as shown in Figure 10. 
Drive a “1” on RB1 pin in this example when using the 
A/D. Drive a “0” on RB1 pin when not using the A/D 
converter. 


Note that this way RB1 is not floating. Even if VREF 
decays to some intermediate voltage, it will not cause 
the input buffer on RB1 to draw current. 


Alternately, use RAO, RA1 or RA2 pin to supply the 
current instead of RB1. Configure the RA pin as analog 
(this will turn off its input buffer). Then use it as a digital 
output (Figure 11). 


Using the Analog to Digital Converter_ 


_ FIGURE 10 - POWER-SENSITIVE 
APPLICATIONS #1 


VREF/RAS3 


PIC16C71 





ZENERS AND REFERENCE GENERATORS 


Finally, various reference voltage generator chips (typi- 
cally using on-chip band-gap reference) are available. 
These are more accurate. 


TABLE 1- ZENERS AND REFERENCE 
GENERATORS 








sav 














Tolerance 
+3% to 40.4% 


AD580 (Maxim) 
+0.2% 
+0.2% 


LM1004 
LT1009 (LIN. Tech. 
LT1019 (LIN. Tech. 

LT1021 (LIN. Tech. 
LT1029 (LIN. Tech. 
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VREF IMPEDANCE AND CURRENT 
SUPPLY REQUIREMENTS 


Ideally, VREF should have as low a source impedance 
as possible. Referring to Figure 9, VREF source 
impedence = R. However, smaller R increases current 
consumption. Since VREF is used to charge capacitor 
arrays inside the A/D converter and the holding ca- 
pacitor CHOLD = 51pF, the following guideline should 
be met: 


tad = 6 (1K + R) 51.2 pF + 1.677us 


tad = conversion ciock. For tad = 2us and for 
_ CHOLD = 50 pF, RVREF = 50Q. 


For VREF impedance higher than this, the conversion 
clock (tad) should be increased appropriately. 


FIGURE 11 - POWER-SENSITIVE 
APPLICATIONS #2 


VREF/RAS 
PIC16C71 


Table 2 gives examples of the maximum rate of conver- 
sion per bit, relating to the voltage reference impedance. 


TABLE 2 - MAXIMUM RATE OF 


CONVERSION / BIT 


10K 
50K 
100K 


Tad (Max) 


5.056 us 


16.66 ps 
32.70 us 


Assumes no external capacitors. 
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To achieve alow source impedance when using a Zener 
diode, a voltage follower circuit is recommended. This 
is shown in Figure 11A. 


FIGURE 11A- VOLTAGE FOLLOWER 
CIRCUIT 


VoD 


a Low source 


+ impedance 


zener 


Any general purpose 
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CONFIGURING PORT A INPUTS AS ANALOG 
OR DIGITAL 


Two bits in ADCON1 register PCFG1 and PCFGO con- 
trol how pins RAO-RA3 are configured. When any of 
these pins are selected as analog: 


¢ The digital input buffer is turned off to save current 
(see Figure 12). Reading the port will read this pin as 
0’. 

¢ TRIS bit still controls the output buffer on this pin. So, 
normally the TRIS bit will be set (input). 


¢ However, if the TRIS bit is cleared, then the pin will 
output whatever is in the data latch. 


When any of these pins are selected as digital: 


¢ The analog input still directly connects to the A/D and 
therefore the pin can be used as analog input. 


¢ The digital input buffer is not disabled. 


The user has, therefore, great flexibility in configuring 
these pins. 
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FIGURE 12 - BLOCK DIAGRAM OF 
RAO-RA3 PINS 
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FIGURE 13 - A SIMPLE CMOS INPUT BUFFER: 


"RD PORT" 





Threshold of the inverter 
Device threshold of NMOS pull-down 
Device threshold of PMOS pull-up 


On-current (or through current) of the inverter 


CURRENT CONSUMPTION THROUGH 
INPUT BUFFER 


A CMOS input buffer will draw current when the input 
voltage is around its threshold. (See Figure 13.) 


In power-sensitive applications, the RA pins when used 
as analog inputs should be configured as "analog" to 
avoid unintended power drain. 


Other considerations and tips: 


1. If possible, avoid any digital output next to analog 
inputs. 


2. Avoiddigital inputs that switch frequently (e.g., clocks) 
next to analog inputs. 


3. If VREF is used, then no analog pin being sampled 
should exceed VREF. 


SUMMARY 


The PIC16C71 A/D converter is simple to use. It is 
versatile and low power. 


AUTHORS: Sumit Mitra, Stan D'Souza, 
Russ Cooper, 


Logic Products Division 





l 
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f Vpbb-VTP : 


Maximum on-current occurs when VIN = VTH. Value of IMAx depends on the sizes of the devices. 
The larger the devices, the faster the input buffer, and the larger the value of IMAX. : 
Typically, IMAx = 0.2mA — 1mA. 
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APPENDIX A - SINGLE CHANNEL A/D (SAD) 


MPASM BO. 44 PAGE 1 


TUTTLE “Single channel A/D (SAD)” 

;This program is a simple implementation of the PIC16C71’s 
;A/D. 1 Channel is selected (CHO). 

;The A/D is configured as follows: 

; Vref = +5V internal. 

: A/D Osc. = internal RC 

; A/D Channel = CHO 

;Hardware: PICDEMO board. 

‘ Stan D’Souza 7/6/93 


LIST P=16C71,F=INHX8M 


include “picreg.equ” 


0010 TEMP equ 10h 
0001 adif equ ul 
0002 adgo equ 2 
org 0x00 
0000 2810 goto start 
org 0x04 
0004 281C goto service int ;interrupt vector 
org 0x10 
start 
0010 3000 movilw B’00000000' ;set port b as 
0011 0086 movwf PORT B ;all outputs 
0012 0066 EELS PORT B ; / 
OOL3" 2010 call InitializeAD 
update 
0014 0809 movft ADRES,W ;get A/D value 
0015 0086 movwf PORT _B ;output to port b 
0016 2025 call SetupDelay ;setup time >= 10uS. 
0017 1088 ieloba ADCONO, adif ;clear int flag 
0018 1508 bsf ADCONO, adgo ;start new conversion 
loop 
0019 1888 btfsc  ADCONO,adif ;A/D done? 
OO1A 2814 goto update ;yes then update new value. 
OO1B 2819 goto loop ;no then keep checking 
7no interrupts are enabled, so if the program reaches here, 
7it should be returned with the global interrupts disabled. 
service int 
O01C 0008 return ;do not enable global. 


° 
, 


ES eee ee a a I NE PTR IN SED Ea TO aS RTO OO OO REN ECE EN 
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MPASM BO. 44 PAGE 2 


;InitializeAD, initializes and sets up the A/D hardware. 
;Select chO to ch3 as analog inputs, fosc/2 and read ch0. 


InitializeAD 
001D 1683 bsf STATUS,.5 ;select pgl 
OO1E 3000 movlw B’00000000' ;select ch0O-ch3... 
OO1F 0108 movwf ADCON1 jas analog inputs 
0020 1283 bcf STATUS,5 ;select pg0 
0021 30C1 moviw B’11000001' ;select:RC,cho.. 
0022 0088 movwf ADCONO ;turn on A/D. 
0023 0189 clrf ADRES ;clr result reg. 
0024 0008 return 


;This routine is a software delay of 10uS for the a/d setup. 
;At 4Mhz clock, the loop takes 3uS, so initialize TEMP with 

ja value of 3 to give 9uS, plus the move etc should result in 
ja total time of > 10uS. 





SetupDelay 
0025 3003 movilw re! 
0026 0090 movwf TEMP 

SD 
0027 O0B90 decfsz TEMP 
0028 2827 goto sD 
0029 0008 return 

END 

Errors : 0 
Warnings : 0 
REE LER ED LOE NEE a ae Oe ne Te I a a eee 
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APPENDIX B 
MPASM BO. 44 PAGE 1 
sPITLE “A/D in Sleep Mode” 
;This program is a simple implementation of the PIC16C71’s 
;A/D feature. This program demonstrates 
;how to do a A/D in sleep mode on the PIC16C71. 
;The A/D is configured as follows: 
; Vref = +5V internal. 
: A/D Osc. = internal RC 
: A/D Interrupt = OFF 
; A/D Channels = ch 0 
;The chO A/D result is displayed as a 8-bit binary value 
;on 8 LEDs connected to port b. 
;Hardware: PICDEMO board. 
; Stan D’Souza 7/6/93 
LIST P=16C71,F=INHX8M 
include “picreg.equ” 
0010 TEMP equ 10h 
0001 adif equ 1 
0002 adgo equ 2 
org 0x00 
0000 2810 goto start 
org 0x04 
0004 281B goto service int sinterrupt vector 
org 0x10 
start 
0010 3000 moviw B’0O0000000' ;make port b all 
0011 0086 movwf PORT B ;outputs. 
0012 0066 tris PORT B ; / 
QO13. 201¢ call InitializeAD 
update 
0014 0809 move ADRES,W 
0015 0086 movwf PORT _B ;save in table 
0016 2025 call SetupDelay ; 
0017 1088 lolen ADCONO, adif Pele A/D: ‘flag 
0018 1508 bsf ADCONO, adgo ;start new A/D conversion 
0019 0063 sleep 
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OO1A 2814 goto update ;wake up and update 
Service. int 
001B 0008 return ;do not enable int 


;InitializeAD, initializes and sets up the A/D hardware. 


InitializeAD 
001C 1683 bsf STATUS,5 ;select pgl 
001D 3000 movlw B’00000000' ;select ch0O-ch3... 
OO1E 0108 movwf ADCON1 jas analog inputs 
OO1F 1283 lslena STATUS; 5 ;select pg0 
0020 30C1 movilw B’11000001' ;select:internal RC, ch0. 
0021 0088 movwf ADCONO ;turn on A/D 
0022 018B Clrt INTCON ;clear all interrupts 
0023 170B bsf INTCON, ADIE ;enable A/D 
0024 0008 return 


;This routine is a software delay of 10uS for the A/D setup. 
7;At 4Mhz clock, the loop takes 3uS, so initialize TEMp with 

ja value of 3 to give 9uS, plus the move etc should result in 
ya total time of > 10uS. 


SetupDelay 
0025 3003 movlw < 
0026 0090 movwf TEMP 

SD 
0027 OB90 decfsz TEMP 
0028 2827 goto SD 
0029 0008 return 

END 


Errors : 0 
Warnings : 0 
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APPENDIX C 
MPASM BO.44 PAGE 1 
PTITES “Single channel A/D with interrupts” 
;This program is a simple implementation of the PIC16C71’s 
;A/D. 1 Channel is selected (CHO). A/D interrupt is turned on, 
;hence on completion of A/D conversion, an interrupt is generated. 
;The A/D is configured as follows: 
; Vref = +5V internal. 
3 A/D Osc. = internal RC Osc. 
; A/D Interrupt = On 
; A/D Channel = CHO 
;The A/D result is displayed as a 8-bit value on 8 LEDs connected 
;to porth. 
;Hardware: PICDEMO board. 
; Stan D’Souza 7/6/93. 
LIST P=16C71,F=INHX8M 
include “picreg.equ” 
0010 flag equ 10 
0011 TEMP equ Lt 
0000 adover equ 0 
0001 adif equ 1 
0002 adgo equ 2 
0006 adie equ 6 
0007 gie equ 7 
0005 rp0 equ 5 
org 0x00 
0000 2810 goto start 
org 0x04 
0004 281C goto service ad ;interrupt vector 
org Ox10 
start 
0010 3000 movlw B’0Q0000000! ;init I/O ports 
0011 0086 movwf PORT _B 
0012 0066 tris PORT B 
QO1TS: 2022 call InitializeAD 
update 
0014 1010 best flag,adover ;reset software A/D flag 
OOTS: “20258 call SetupDelay ;setup delay >= 10uS. 
0016 1088 bcf ADCONO, adif ;reset A/D int flag (ADIF) 
OOTy “L508 bsf ADCONO, adgo ;start new A/D conversion 
0018 178B bsf INTCON, gie ;enable global interrupt 
Loop 
0019 1810 btfsc flag,adover ;A/D over? 
OO1A 2814 goto update yyes start new conv. 
001B 2819 goto loop ;no then keep checking 
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e 
’ 


service_ad 


001C 1C88 btfss ADCONO,adif ;A/D interrupt? 
001D 0009 retfie ;yno then ignore 
OO1LE 0809 movt ADRES, W ;get A/D value 

OO1F 0086 movwf PORT _B ;output to port b 
0020 1410 bsf flag,adover ;A/D done set 

0021 0008 return ;do not enable int 


;InitializeAD, initializes and sets up:the A/D hardware. 
;select ch0, RC OSC., A/D interrupt. 


InitializeAD 
0022 1683 bsf STATUS, rp0 ;select pgl 
0023 3000 movlw B’00000000' ;select ch0O-ch3... 
0024 0108 movwf ADCON1 ;as analog inputs 
0025 1283 beet STATUS, rp0O ;select pg0 
0026 018B ciler INTCON ;clr all interrupts 
0027 170B bsf INTCON, adie jenable A/D int. 
0028 30C1 moviw B’11000001' *SELECT TRC: ~osc, ch... 
0029 0088 movwf ADCONO ;turn on A/D 
OO2A 0008 return 


;This routine is a software delay of 10uS for the A/D setup. 
;At 4Mhz clock, the loop takes 3uS, so initialize TEMp with 

ja value of 3 to give 9uS, plus the move etc should result in 
ja total time of > 10uS. 


SetupDelay 
002B 3003 moviw wid 
002C 0091 movwf TEMP 

SD 
002D OB91 decfsz TEMP 
002E 282D goto SD 
O02F 0008 return 

END 


Errors : 0 
Warnings 


io) 
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APPENDIX D | 
MPASM BOQ. 44 PAGE 1 
; TITLE “A/D using Multiple Channels” 
;This program is a simple implementation of the PIC16C71’s 
;A/D feature. This program demonstrates 
;how to select multiple channels on the PIC16C71. 
;The A/D is configured as follows: 
; Vref = +5V internal. 
: A/N) Ose. = internal RC osc. 
: A/D Interrupt = Off 
; A/D Channels = all in a “Round Robin” format. 
: A/D results are stored in ram locations as follows: 
; cho —> ADTABLE + 0 
; chil —> ADTABLE + 1 
; ch2 —> ADTABLE + 2 
; ch3 —> ADTABLE + 3 
;The chO A/D result is displayed as a 8-bit value on 8 LEDs 
;connected to port b. 
;Hardware: PICDEMO board. 
; Stan D’Souza 7/6/93. 
LIST P=16C71,F=INHX8M 
include “picreg.equ” 
0010 TEMP equ 10h 
0001 adif equ 1 
0002 adgo equ Z 
0006 ch2 equ 6 
0007 chs equ 7 
O000C flag equ OC 
0020 ADTABLE equ 20 
org 0x00 
0000 2810 goto start 
org 0x04 
0004 2823 goto Service int ;interrupt vector 
org Ox10 
start 
0010 3000 movlw B’00000000' ;make port b 
0011 0086 movwf PORT B sas all outputs 
0012 0066 tris PORT B : fi 
0013 2024 call InitializeAD 
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update 

0014 0809 movt ADRES, W 

0015 0080 movwf 0 ;save in table 

0016 3020 moviw ADTABLE ;chk if cho 

0017 0204 Subwf FSR,W : / 

0018 1D03 btfss STATUS,2Z ;yes then skip 

0019 281C goto NextAd ;else do next channel 

OO01A 0809 movt ADRES,W ;get A/D value 

001B 0086 movwf PORT B ;output to port b 
NextAd 

Q001C 202E call NextChannel ;select next channel 

001D 203A call SetupDelay ;set up > = 10uS 

QO1E 1088 bef ADCONO, adif ;clear flag 

OO1F 1508 bsf ADCONO, adgo ;start new A/D conversion 
loop 

0020 1888 btfsc ADCONO,adif ;A/D done? 

0021 2814 goto update ;yes then update 

0022 2820 goto loop jwait till done 


service int 
0023 0008 return ;do not enable int 


;InitializeAD, initializes and sets up the A/D hardware. 


InitializeAD 
0024 1683 bsf STATUS .5 ;select pgl 
0025 3000 movlw  B’00000000' ;select ch0O-ch3... 
0026 0108 movwf ADCON1 jas analog inputs 
0027 1283 bef STATUS, 5 ;select pg0 
0028 30C1 moviw B’11000001' ;select:fosc/2, chQ. 
0029 0088 movwf ADCONO ;turn on A/D 
002A 3020 moviw ADTABLE ;get top of table address 
002B 0084 movwf FSR j;load into indirect reg 
002C 0189 Girt ADRES ;clr result reg. 
002D 0008 return 
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;NextChannel, selects the next channel to be sampled in a 
;"round-robin” format. 








NextChannel 
O02E 3008 movlw 0x08 ;get channel offset 
O02F 0788 addwf ADCONO ;add to conf. reg. 
0030 - 1288 ber ADCONO,5 ;clear any carry over 
;increment pointer to correct A/D result register 
0031 0190 elre TEMP 
0032 1988 btfsc  ADCONO,3 ;test lsb of chnl select 
0033 1410 bsf TEMP, 0 ;set if chil or ch3 
0034 1A08 btfsc ADCONO,4 ;test msb of chnl select 
0035 1490 bsf TEMP, 1 yset LE chO oor -ch2 
0036 3020 moviw ADTABLE ;get top of table 
0037 0710 addwf TEMP,W ;add with temp 
0038 0084 movwf FSR ;allocate new address 
0039 0008 return 


;This routine is a software delay of 10uS for the A/D setup. 
;At 4Mhz clock, the loop takes 3uS, so initialize TEMP with 
za value of 3 to give 9uS, plus the move etc should result in 
ya total time of > 10uS. 





SetupDelay 
003A 3003 moviw Pa 
003B 0090 movwf TEMP 

SD 
O003C OB90 decfsz TEMP 
Q03D- 283C goto SD 
O03E 0008 return 

END 

Errors ; 0 
Warnings 0 
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Implementing Wake-up on Key Stroke 





INTRODUCTION 


Microchip's PIC16CXX family of microcontrollers are 
ideaily suited to directly interface io akeypad. The high 
4 bits of PortB (RB4 - RB7) have internal pull-ups and 
can trigger a "change on port state" interrupt. This 
interrupt, if enabled, will wake the microcontroller from 
sleep. In most battery powered applications a 
microcontroller is exercised when a key is pressed, e.g. 
in aremote keyless entry system. The life of the battery 
can be extended by using PIC16CXX microcontrollers. 
This can be done by putting the PIC16CXX 
microcontroller into sleep mode for most of the time and 
wake-up only when a key is pressed. 


IMPLEMENTATION 


Figure 1 depicts an application where four keys are 
connected to RB4 - RB7. Internal pull-ups are used to 
maintain a high level on these inputs. In this example, 
LEDs are connected to RBO - RB3. When SW1 is 
pressed, LED1 is turned on and when SW2 is pressed, 
LED2is turned on andsoon. The PIC16CXX is normally 
in sleep mode with the "change on port state” interrupt 
enabled. When SW1 is pressed, RB4 goes low and 
triggers an interrupt. Since the PIC16CXx is in sleep, it 
first wakes up and starts executing code at the interrupt 
vector. Note that if the global interrupt is enabled, the 
program execution after an interrupt is at the interrupt 
vector, if the global interrupt is not enabled, the program 
starts executing right after the sleep instruction. 


After waking up, a 20 - 40 msec. de-bounce delay is: 


executed which checks the port for a key hit and depend- 
ing on which key is hit, its associated LED is turned on. 
The LEDs are used purely for demonstration purposes. 
In a remote keyless entry application, the remote code 
would be transmitted when the appropriate key is hit. 


Figure 2 depicts a 4x4 keypad interface to the PIC16CXX. 
When using the PIC16CXX in a keypad application, the 
internal pull-ups on RB4 - RB7 can be enabled eliminat- 
ing the need for external pull-up resistors. The series 
100Q resistors are used for ESD protection, and are 
recommended in keypad interface applications. 


AUTHOR: Stan D'Souza, Logic Products Division 
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SUMMARY 


The PIC16CXxX is ideally suited to interface directly to a 
Keypad application. Built in pull-up resistors and very 
low sleep current make it a very good candidate for 
battery powered remote operations and applications. 


Performance: 
Code Size: 64 words 
RAM Locations Used: 0 bytes 


FIGURE 1 - 4 KEY INTERFACE TO PIC16CXX 


PIC16CXX 
4x100Q 


FIGURE 2 - 4X4 KEYPAD INTERFACE TO 
PIC16CXX 


RB7 PIC16CXX 


8x100 Q 





DS00552A-page 1 








Implementing Wake-up on Key Stroke 





16c5x/XX Cross-Assembler V3.05.06 BETA Wed Apr 28 16:09:44 1993 Page 1 


Line 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 


0041 


0042 
0043 
0044 
0045 


PC. 


0000 


0004 


0005 


0006 


0007 


0008 
0009 
OOOA 
000B 
000C 


Opcode 


0002 
0007 
0010 
0001 


0000 


0000 
2805 


0000 
2808 


2024 


0063 


2806 


180B 
280D 
128B 
110B 
0008 


;This program demonstrates the wake-up on Keystroke feature of the 


;PIC16C71. Port B pins RB4 - RB? can be configured as inputs with internal 
;pull up resistors, also the interrupt associated with the change on input 


on RP4 —- RB7 can be set up to wake the chip from sleep. If the 


;global interrupt is enabled just before sleep, the program will vector to 

;the interrupt vector (0004). If not the chip will continue execution 

;just after the next instruction following sleep. \ 

;In this example code, the port B is initalized to input 4 keys at 

;RB4 - RB7. RBO - RB3 are configured to drive LEDs corresponding to 

;which key is hit (LED on RBO when RB4 is hit and so on). 

;Sleep is executed. When any keys is hit, the processor wakes 

;up and jumps to the interrupt vector. The corresponding LED is 

;turned on and after the key is released, the whole process is repeated. 
LIST P=16C71, F=INHX8M 


. 
, 


Zz equ 2 

RBPU equ 7 

temp equ 10h 

OptionReg equ lh 

include “picreg. equ” 
LIST L=ON 

org 0 


goto start 


e 
J 


org 4 

goto ServiceInterrupt 

start 

call InitPortB jinitalize port B 

loop 

sleep ;sleep till key is hit 
;nop 

goto loop 

ServiceInterrupt 

btfsc INTCON,RBIF ;change on rb int? 

goto ServiceWakup ;yes then service 

bcf INTCON, RTIE ;clear RTCC int mask 

bcf INTCON, RTIF ;clear flag 


return 
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Line 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
005.7 
0058 
0059 
0060 
OO061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
OOFs. 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
SOT OL 


PC 


000D 
O00E 
OOOF 
0010 
0011 
001z 
0013 
0014 
0015 
0016 
0017 


0018 
0019 
OO1A 
001B 
001C 
001D 
OO1E 
OO1F 
0020 
0021 
0022 
0023 


0024 
0025 
0026 
0027 
0028 
0029 
002A 
002B 
002C 
002D 
002E 
002F 
0030 
0034 
0032 
0033 
0034 


Opcode 


118B 
0906 
100B 
2033 
0906 
39FO 
0090 
OE10 
0086 
2018 
0009 


2035 
0906 
100B 
158B 
39F0 
L903 
0008 
0063 
118B 
0906 
100B 
2818 


1683 
3003 
0088 
3000 
0085 
30F0 
0086 
1361 
1283 
0186 
0185 
1405 
118B 
0806 
100B 
158B 
0009 


° 
, 
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Page 2 


;This routine checks which keys is hit and lights up the 


;corresponding LED associated with it. eg. 
7;RB4’s key is pressed. 
;been released before returning form the service 


ServiceWakup 

bcf INTCON, RBIE 
comf PORT _B,w 
bct INTCON, RBIF 
call delayl6 
comf PORT _B,w 
andilw B’iilidGo0od' 
movwt temp 

swapf temp,w 
movwf PORT B 

call KeyRelease 
retfie 


° 
v 


;This sub-routine, 


;In order to save power, 
;all keys are released. 


KeyRelease 

call delaylé 
comf PORT B,w 
bcf INTCON, RBIF 
bsf INTCON, RBIE 
andlw B’11110000' 
btfsc STATUS, z 
return 

sleep 

bef INTCON, RBIE 
comf PORT _B,w 
bcf INTCON, RBIF 
goto KeyRelease 
;This sub-routine, 
InitPortB 

bsf STATUS, RPO 
movlw B’0Q0O000011' 
movwf ADCON1 
movilw 0 

movwf PORT A 
movlw B’11110000' 
movwf PORT _B 

bet OptionReg, RBPU 
Deo STATUS, RPO 
GLEE PORT _B 

ecire PORT A 

bsf PORT A, 0 
bert INTCON, RBIE 
movft PORT _B,w 
bcf INTCON, RBIF 
bsft INTCON, RBIE 
retfie 


. 
, 


initializes 


RBO’s LED when 
Finally it waits till all keys have 
routine. 


;clear mask 

;read PORT B 

;clear flag 

;do de-bounce for 16mSecs 
;read port B again 

;mask outputs 

;save in temp 

;switch low and high 
;send as outputs. 

;check for key release 


waits till all key have been released 


the chip is in sleep mode till 


;do debounce 

;read PORT B 

;clear flag 

;enable mask 

;clear outputs 

;key still pressed? 
;no then return 

;else save power 

;on wake up clear mask 


;clear flag 
;try again 


PortB. 


;select bank 1 

*Port_A digital I/O 

a / 

;set port a as outputs 
7;RBO-RBS. outputs 
;RB4-RB7 inputs 
;enable pull up 
;select page 0 

Fini: pore. ,B 

;make port a all low 
;make first bit high 
;disable mask 

;read port 

;clear flag 

;enable mask 

;enable global and return 
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Line PC Opcode 

0102 ;delayl6 waits for approx 16.4mSecs using RTCC interrupts 
0103 ;fosc speed is 4Mhz. 

0104 delay16 

0105 0035 1683 bsf STATUS, RPO ;select page 1 
0106 0036 3007 moviw B’00000111' 7£08e/256 =>» RITCC 
0107 0037 0081 movwf  OptionReg ; / 

0108 0038 1283 bef STATUS, RPO ;select page 0 
0109 0039 0181 Clrft RTCC 

0110 003A 110B bcf INTCON, RTIF ;clear flag 

Nae 2 003B 168B bsf INTCON, RTIE ;enable mask 

0112 CheckAgain 

0113 003C 1D0B btfss INTCON, RTIF ;timer overflowed? 
0114 003D 283C goto CheckAgain ;no check again 
OPS 003E 128B bcf£ INTCON, RTIE relse clear mask 
0116 003F 110B Der INTCON, RTIF ;clear flag 

0117 0040 0008 return 

0118 ; 

0119 0000 end 
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INTRODUCTION 


The PIC16/17 family of RISC-like microcontrollers has 
been designed to provide advanced performance and a 
cost-effective solution for a variety of applications. To 
address these applications, there is the PIC16CXX 
microcontroller family of products. This family has 
numerous peripheral and special features to better 
address user applications. 


One feature is the interrupt on change of the PORTB 
pins. This “interrupt on change” is caused when any of 
the RB<7:4> pin, configured as input, changes levels. 
When used in conjunction with the software program- 
mable weak internal pull-ups, a direct interface to a 
keypad is possible. This is shown in application note 
AN552 (Implementing Wake-up on Key Stroke). An- 
other way to use the “interrupt on change’ feature would 
be as additional external interrupt sources. This allows 
the PIC16CXX devices to support multiple external 
interrupts, in addition to the INT pin. 


This application note will discuss some of the issues in 
using PortB as additional external interrupt pins, and will 
show some examples. These examples can be easily 
modified to suit your particular needs. 
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USING A PORTB INPUT FOR AN 
EXTERNAL INTERRUPT 


The interrupt source(s) cannot simply be directly con- 
nected to the PortB pins, and expect the interrupt to 
function the same as the interrupt (INT) pin. The charac- 
teristic of the interrupt signal must also be known to 
develop the microcontrollers hardware/software. After 
we know this, we can determine the best way to structure 
the program to handle this signal. These characteristics 
include: 


1. Trigger interrupt on rising, falling, or both edges 


2. Whatis the pulse width of the interrupt (high time /low 
time) 


It is easy to understand the need of knowing which edge 
triggers the external interrupt service routine. This al- 
lows one to ensure that the interrupt service routine is 
only entered for the desired edge, with all other edges 
ignored. Not so clear is pulse width of the interrupt. This 
determines the amount of additional overhead that the 
software routine may need. 
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Figure 1 shows the two cases for the interrupt signal 
verses the time to complete the interrupt service routine. 
The first waveform is when the signal makes the low-to- 
high-to-low transitions before the interrupt service rou- 
tine has completed (interrupt flag cleared). When the 
interrupt flag has been cleared the interrupt signal has 
already returned to the inactive level. The nexttransition 
of the signal is due to another interrupt request. An 
interrupt signal with this characteristic will be called a 
small pulse width signal. The second waveform is when 
the signal only makes the low-to-high transitions before 
the interrupt service routine has completed (interrupt 
flag cleared). The next transition (high-to-low) will return 
the interrupt signal to the inactive level. This will gener- 
ate a “false” interrupt, that will need to be cleared. Then 
the following transition (low-to-high) will be a “true” 
interrupt. An interrupt signal with this characteristic will 
be called a wide pulse width signal. 


An interrupt pulse with a small pulse width requires less 
overhead than a wide pulse width. A small pulse width 
signal must be less then the minimum execution time of 
the interrupt service routine, while a wide pulse width 
must be greater then the maximum time through the 
interrupt service routine. 


Example 1 shows a single interrupt source on PortB 
(RB7), which executes the interrupt service routine on a 
rising edge. The interrupt source has a small pulse 
width. In this case since the interrupt pulse width is small, 
the pulse has gone high and then low again before PortB 
is read to end the mismatch condition. So when PortB is 
read it will read a low signal and will again be waiting for 
the rising edge transition. 


FIGURE 1 - INTERRUPT STEPS FOR SMALL AND WIDE PULSE WIDTHS 


Small Pulse Width 


RBx 


Rising Edge J L PortB Interrupt Service Routine is complete. 


Triggers Interrupt 


PortB Interrupt Flag is cleared, and mismatch is ended. 


Wait for next Interrupt edge. 


Signal returns to "Inactive State" 


Large Pulse Width 


RBx 


J 


Rising Edge 
Triggers Interrupt 


Example 1: Single Interrupt with a Small Pulse Width 


PER_INTBTFSS INTCON, RBIF 
GOTO OTHER INT 


CLR_RBINTF MOVF PORTB;. ~ 1 


BCF INTCON, RBIF 
RETFIE 

OTHER INT 
RETFIE 


L 


° 
, 


PortB Interrupt Service Routine is complete. 
PortB Interrupt Flag is cleared, and mismatch is ended. 
Wait for next Interrupt edge. 


Falling Edge 
Triggers "False" Interrupt 


PortB Interrupt Service Routine is complete. 
PortB Interrupt Flag is cleared, and mismatch is ended. 
Wait for "False" interrupt edge. 





PortB interrupt? 
Other interrupt 
Do task for INT on RB7 


Read PortB (to itself) to end 
mismatch condition 

Clear the RB interrupt flag. 
Return from interrupt 

Do what you need to here 


eT eS eT ee eT eT eT) 


; Return from interrupt 


AN te A Re MNeRtnttinesetAntnitnaNhteietiert 
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Example 2 shows a single interrupt source on PortB 
(RB7), which executes the interrupt service routine ona 
rising edge. The interrupt source has a wide pulse width. 
In this case since the interrupt pulse width is large, the 
pulse is still high before PortB is read to end the mis- 
match condition. So when PortB is read it will read a high 
signal and will generate an interrupt on the next falling 
edge transition (which should be ignored). 


Example 2: Single Interrupt with a Wide Pulse Width 


PER INTBTFSS INTCON, RBIF 
GOTO OTHER INT 

BTFSC PORTB, RB7 

CLR_RBINTF 


GOTO 


PORTB, 1 


CLR_RBINTF MOVF 
BCF INTCON, RBIF 
RETFIE 
OTHER_INT 
RETFIE 
Example 3: Interrupt on Change 
PER. INT BIESS INTCON, RBIF 
GOTO OTHER INT 
CLR_RBINTF MOVF PORTB, 1 
BCF INTCON, RBIF 
RETFIE 
OTHER_INT 
RETFIE 


Example 3 shows a interrupt on change with the interrupt 
source on PortB (RB7). This executes the interrupt 
service routine on a both edges. The interrupt source 
must have a minimum pulse width to ensure that both 
edges can be “seen”. The minimum pulse width is the 
maximum time from the interrupt edge to the reading of 
PortB and clearing the interrupt flag. 


; PortB 
; Other interrupt 

; Check for rising edge 

; Falling edge, clear PortB int 
; flag 

; Do task for INT on RB7 


interrupt? 


; Read PortB (to itself) to end 
; mismatch condition 

; Clear the RB interrupt flag. 

; Return from interrupt 


; Do what you need to here 


; Return from interrupt 


; PortB interrupt? 

; Other interrupt 

; Read PortB (to itself) to 
; mismatch condition 

; Clear the RB interrupt flag. 
; Do task for INT on RB7 


end 


; Return from interrupt 
; Do what you need to here 


; Return from interrupt 


i i 
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Using PortB Inputs for Multiple Interrupts 


The previous examples have been for a single external 
interrupton PORTB. This can be extended to support up 
to 4 external interrupts. To do this requires additional 
software overhead, to determine which of the PortB pins 
(RB<7:4>) caused the interrupt. Care should be taken 
in the software to ensure that no interrupts are lost. 


In this example, the interrupt sources on RB7, RB5, and 
RB4 have a small pulse width, while the interrupt source 
on pin RB6 is wide and should cause a trigger on the 
rising edge. 


SUMMARY 


The PortB interrupt on change feature is both a very 
convenient method for direct interfacing to an external 
keypad, with no additional components, but is also 
versatile in its uses. The ability to add up to four addi- 
tional external interrupt. Of course hybrid solutions are 
also possible. That is, for example, using PORTB<6:1> 
as a 3x3 keypad, with PORTB7 as an external interrupt 
and PORTBO as a general purpose I/O. The flexibility of 
this feature allows the user to implement a best fit design 
for the application. 


Example 4: Multiple Interrupts with Different Pulse Widths 


PER_INT BTFSS INTCON, 


GOTO 


RBIF ; 
OTHER_INT : 


PortB interrupt? 
Other interrupt 


; PortB change interrupt has occurred. Must determine which pin caused 
; interrupt and do appropriate action. That is service the interrupt, 
; or clear flags due to other edge. 


MOVE PORTB;: 0 ; Move PortB value to the W register 
: This ends mismatch conditions 
MOVWE TEMP ; Need to save the PortB reading. 
XORWF LASTPB, 1 ; XOR last PortB value with the new 
. ; PortB value. 
CK RB? BTFSC LASTPB, RB7 ; Did pin RB7 change 
CALL RB7 CHG ; RB7 changed and caused the interrupt 
CK_RB6 BIFSC  LASTPB, RB6 ; Did pin RBé change . 
CALL RB6_CHG ; RBO changed and caused the interrupt 
CK_RBS BTFSC  LASTPB, RBS ; Did pin RB5 change 
CALL RBS CHG ; RB5 changed and caused the interrupt 
CK_RB4 BTFSC  LASTPB, RB4 ; Did pin RB4 change 
GOTO RB4 CHG ; RB4 changed and caused the interrupt 
RB7_ CHG : ; Do task for INT on RB/7 
RETURN 
RB6 CHGBTFSC PORTB, RB6 ; Check for rising edge 
RETURN ; Falling edge, Ignore 
: ; Do task for INT on RB6é 
RETURN 
RBS:.CHG : ; DO. task. for: INT: on: “RBS 
RETURN 
RB4 CHG : ; Do task for INT on RB4 
CLR_RBINTF MOVF TEMP, 0 ; Move the PortB read value to the 
MOVWF LASTPB : register LASTPB 
BCF INTCON, RBIF ; Clear the RB interrupt flag. 
RETFIE ; Return from interrupt 
OTHER_INT : ; Do what you need to here 
RETFIE ; Return from interrupt 


AUTHOR: Mark Palmer, Logic Products Division 
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Table Read 
INTRODUCTION IMPLEMENTATION 


To access data in Program Memory, a table read opera- 
tion must be performed. The Tabie consists of a series 
of RETLW K instructions where, the 8 bit table constants 
are assigned to the literal K. The first instruction in the 
Table computes the offset to the table by using "addwf 
pcl" and consequently the program branches to the 
appropriate ret 1w xX instruction (see Example 1). 


Example 1. 


movlw offset ;load offset in w reg 


call Table 


Table: 


addwf pcl ;add offset to pce to 
;generate a computed goto 
retlw ‘A! ;return the ASCII char A 
retlw  '‘'B' ;return the ASCII char B 
retlw 'C! ;return the ASCII char C 


The method is straight forward, however certain precau- 
tions have to be exercised when doing a Table read in 
the PIC16CXX. 
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Program Counter Loading 


The PC in the PIC16CXxX is 13 bits wide. The low 8 bits 
(PCL) are mapped in RAM at location 02 and are directly 
readable and writable. The high 5 bits are not accessible 
directly and can only by written through the PCLATH 
(see Figure 1). The PCLATH is a r/w register with only 5 
of its bits implemented <4:0>, all other bits are read as 
0". 


FIGURE 1 - LOADING OF PC IN DIFFERENT 
SITUATIONS 


INST with PCL 
(02h) as dest 


GOTO, CALL 


Opcode <10:0> 


PCLATH 
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SECTION 1 


Call and Goto Instructions 


When executing a call or goto, the low 11 bits are loaded 
directly from the instruction opcode. The high 2 bits are 
loaded from bits 3 and 4 of the PCLATH. It is a good 
practice to pre-load the PCLATH with the high byte of the 
location of the routine before executing the routine. This 
can be done as follows: 


Example 2. 
movlw HIGH Table ;load high 8 bit 
;address of Table 
movwfi PCLATH ;into PCLATH 
call Routine ;execute Call 


;instruction 


Note: If the program memory size is less than 2K bytes, 
then the above precaution is not necessary. 


Computed Goto Instruction 


Any instruction with PCL as the destination, will load the 
PCH with the 5 low bits from the PCLATH (see Fig 1). In 


Program 3,ifthe address where the call was made, were 


on page 0 and the address of the actual table were on 
say page 3, then on executing the computed goto, the 
program will goto a location in page 0 instead of a 
location on page 3. To avoid the program from branch- 
ing "erratically" when doing a table read, the PCLATH 
should be pre-loaded with the high byte of the "Table" 
address. Example 3 shows how this can be done. 


Example 3. 
org 0x80 ;code location in page 0 
movlw offset ;load offset in w reg 
call Table 
org 0x0320 ;Table located in page 3 
Table 
addwf pcl ;add offset to pe to 
;generate a computed goto 
retlw ‘A! ;return the ASCII char A 
retlw  'B' ;return the ASCII char B 
retlw 'C' sreturn the ASCII char C. 
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When doing a computed goto for a table read, care 
should taken about page boundaries. The ADDWF PCL 
instruction will not compute a value greater than 8 bits. 
In Example 4, the result of the computed goto will result 
in a branch to an unintended portion of the code. The 
user either has to be cautious as to where in a page the 
Table is resident or will have to monitor page roll-over 
and add it to the PCLATH ahead of the computed goto. 


Example 4. 
org 0x80 ;code location in 
jpage 0 
movlw HIGH Table ;load PCLATH with hi 
;address 
movwf PCLATH : vs 


moviw offset 


call Table 


; load offset in w reg 





org 0Ox02ff ;Table located end of 

;page 2 
Table: 

addwf pcl ;value in pe will not 
;roll over to page 3 

retiw ‘A! ;return the ASCII 
;char A 

retlw  'B' ;return the ASCII 
;char B 

retlw 'C! ;return the ASCII 
Poner .C 


To take care of both table location and page boundary 
crossing, it is necessary to do a 13 bit computed goto 
operation as shown in Example 5. 


The code in Example 5 will allow the user to place and 
access a table anywhere in program memory. 


Example 5 


moviw LOW Table ;get low 8 bits of 


;address 

addwf offset ;do a 8 bit add 
;operation 

movlw HIGH Table ;get high 5 bits of 
;address 

btfse status,c ;page crossed? 


addlw 1 ;yes then inc high 


;address 


movwf PCLATH ;load high address in 


slatch 


movt offset,w ;load computed offset 
;in w reg 


call Table 


Table: 

movwt pcl ;load computed offset 
jin PCL 

ret lw "A! ;return the ASCII 
;char A 

retlw oF ;return the ASCII 
;char B 

retlw a a ;return the ASCII 


;char C 


interrupts 


Interrupts are handled like a call, i.e. the present PC+1 
address Is saved on the stack and the program vectors 
to location 0x04. In example 5 if the interrupt occurs just 
before the "movwf pcl" instruction (atlabel"Table"), then 
the present fetched instruction will be executed, i.e. 
movwf pcl, the new computed PC will be incremented 
and saved on stack (as the return from interrupt address) 
and the program will vector to the interrupt vector. On 
return from interrupt the program will go to the intended 
offset of the table + 1. This is a very undesirable result, 
so interrupts must be disable during a table read opera- 
tion. , 


ian 
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SECTION 2 


Differences with PIC16C5X Code 


The PIC16C5X has no PCH or PCLATH register, so the 
user has to take into consideration all the precautions 
mentioned in Section 1. In PIC16C5X , the location of the 
Table has to be in the top half of a 512 byte page. This 
restriction is not valid for the PIC16CXX family. To 
convert a table read operation from PIC16C5X code to 
the PIC16CXX code, the following should be done: 


1. Remove any program memory bank select instruc- 
tions (PIC16C56/57) if present. These are not neces- 
sary for the PIC16CXX. 


2. Do a 13 bit computed goto operation (as shown in 
Example 5 ), when doing a table read operation. 


AUTHOR: Stan D'Souza, Logic Products Division 
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Differences with PIC17C42 


Unlike the PIC16CXX family, the PIC17C42 loads the 
PCLATH with the PCH value during a call or goto 
operation, however a computed goto, does not take care 
of page boundary crossing. A 16 bit computed jump 
address should be calculated before the table read is 
executed. Example 6 show how this is done. 


Example 6 

moviw LOW Table ;get low 8 bits of 
;address 

addwf offset ;do a 8 bit add 
;operation 

movlw HIGH Table ;get high 8 bits of 
;address 

btfsc status,c ;page crossed? 

addlw 1 ;yes then inc high 
;address 

movwf PchBuffer ;load in temp 
; location 

call Table 

Table: 

movft PchBuffer,w;get high offset 

movwf PCLATH ;load in latch 

movf offset,w ;get low offset 

movwf pcl ;load computed offset 
sin PCL 

retlw ‘'A' ;return the ASCII 
;char A 

retlw  'B' ;return the ASCII 
,char B 

retlw 'C'! ;return the ASCII 
rchar © 


Example 6 allows the user to locate his Table at any 
program memory location, however for large table or 
tables which cross page boundaries, it is recommended 
that the "tablrd / tird" instruction be used, these instruc- 
tions are specific for table read operations and are very 
code efficient. 


As mentioned in Section 1, interrupts must be disabled 
during a table read using the "retlw K” instruction (Ex- 
ample 6). Note it is not necessary to disable interrupts 
when using the “tablrd/tird" instruction for table read 
operations. 
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INTRODUCTION 


A set of software routines for Microchip’s mid-range, 
high speed 8-bit EPROM-based microcontrollers to imple- 
ment I?C Bus Master Mode is given. Some of the 
members of PIC16CXX family (e.g., PIC16C71, 
PIC 16C84) do not have on chip hardware implementa- 
tion of I?C Bus interface. This application note describes 
the software implementation of |?C interface routines. 
Only the master mode of I°C interface is implemented 
with the PIC16CXX Micrcontroller being the only master 
and communicating to multiple |?C slaves. 


This application note does not describe the I?C Bus 
specifications and the user is assumed to have an 
understanding of the I?C Bus. For detailed information 
on the bus, the user is advised to read the I?C Bus 
Specification document from Philips/Signetics (order 
number 98-8080-575). The I?C Bus is a 2-wire serial bus 
with multiple masters and multiple slaves connected to 
these to two wires. The two wires consists of a clock line 
(SCL) and a data line (SDA) with both the lines being bi- 
directional. Bi-directional communication is facilitated 
through the use of wire-and connection (the lines are 
either active-low or passive high). The I?C Bus protocol 
also allows collision detection, clock synchronization 
and hand-shaking for multi-master systems. The clock 
is always generated by the master, but the slave may 
hold it low to generate a wait state. 


In most of the systems the microcontroller is the master 
and the external peripheral devices are slaves. In these 
cases this application note can be used to attach I?C 
slaves to PIC16CXX (the master) microcontroller. The 
multi-master system is not implemented because it is 
extremely difficult to meet all the I?C Bus timing specifi- 
cation using software. For a true slave or multi-master 
system, some interface hardware is necessary (like 
START & STOP bit detection). 


In addition to the low-level single master I?C routines, a 
collection of high level routines with various message 
structures is given. These high level macros/routines 
can be used as canned routines to interface to most I?C 
Slave devices. As an example, the test program talks to 
two Serial EEPROMs (Microchip’s 24LC04 & 24LC01). 


IMPLEMENTATION 


Two levels of software routines are provided. The low- 
level routines are given in “i2c_low.asm” and the high 
level routines are given in “i2c_high.asm’. The routines 
are described later. The messages passed (communi- 
cated on the two wire network) are abbreviated and 
certain notation is used to represent Start, Stop and 
other conditions. These abbreviations are described at 
first in Table 1. 


TABLE 1 - DESCRIPTION OF ABBREVIATIONS USED 


Explanation 
Start Condition 


Stop Condition 


Slave Address (for read operation) 


Slave Address (for write operations) 


Acknowledge condition (positive ACK) 


Negative Acknowledge condition (NACK ) 





Data byte, D[O] represents byte 0, D[1] represents second byte 
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Message Format 


In the high level routines, the basic structure of the 
message implemented is given. Every I?C slave sup- 
ports one or more message structures. For example, 
Microchip’s 24LC04 Serial EEPROM supports the fol- 
lowing message (to write a byte to Serial EEPROM at 
current address counter) S-SlvAW-A.-D-A-P which ba- 
sically means the following sequence of operations are 
required : 


(a) Send Start Bit 


b) Send Slave Address for Write Operations 


(b) - 

(c) Expect Acknowledge 
(d) Send Data Byte 

(e) Expect Acknowledge 

(f) Issue a STOP Condition 


Slave Address 


Both 10 bit and 7 Bit addressing schemes are imple- 
mented as specified by the I?C Bus specification. Before 
calling a certain sub-routine (high level or low-level), the 
address of the slave being addressed must be loaded 
using either “LOAD _ADDR_8’ (for 7 bit address slaves) 
or “LOAD_ADDR_8” macro (for 10 bit address slaves). 
These macros not only load the address of the slaves for 
all the following operations, but also setup conditions for 
7 or 10 bit addressing modes. See the macros section 
for more details. 


CLOCK STRETCHING 


In 1?C Bus, the clock (SCL Line) is always provided by the 
master. However, the slave can hold the line low even 
though the master has released it. The master must 
check this condition and wait for the slave to release the 
clock line. This provides a built in wait state for the I?C 
Bus. The slave may pull the clock low and ask the 
master to wait indicating it is busy. This feature is 
implemented and can be turned on or off as an assembly 
time option (by setting ENABLE BUS FREE_TIME 
flag to be TRUE or FALSE). If the clock is held low for 
too long, say 1 msec, then an error condition is assumed 
and an RTCC interrupt is generated. 


ARBITRATION 


The |?C Bus specifies both bit by bit and byte mode 
arbitration procedure for multi-master systems. How- 
ever, the arbitration is not needed in a single master 
system, and therefore not implemented in this applica- 
tion note. 


HARDWARE 


Two I/O pins are used to emulate the Clock Line SCL and 
the data line SDA. In the example test program, RBO is 
used as SCL and RB1 as SDA line. On initialization, 
these I/O lines are configured as input pins (tri-state) and 
their respective latches are loaded with Os. To emulate 
the high state (passive), these lines are turned as inputs 
and to emulate the active low state, the pins are turned 
as outputs (with the assumption of having external pull- 
up resistors on both the lines). 


Lernseneesereenenaterenememmenenesoneneme ne aaa 
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PC ROUTINES 


Status Register (File Register “Bus Status”): 





The bit definitions of the status register are described in the table given below. These bits reflect the status of the I?C Bus. 


Bit# | Name —_|_Description 
[Ae ea Ne ee ek eae Se | 
_Bus_ Busy 1 = Start Bit transmitted 
0 = STOP condition. 
_ Abort lt is set when a fatal error condition is detected. The user must clear this bit. 


This bit is set when Clock Line (SCL) is stuck low. 
_Txmt_Progress 1 = transmission in progress. 
_Rev_Progress 1 = reception in progress. 


_Txmt_Success 1 = transmission succesfully completed. 
0 = error condition. 


_Rev_Success 1 = reception succesfully completed. 
0 = error condition. 


_Fatal_Error 1 = FATAL error occurred. The communication was aborted. 


_ACK_Error 1 = slave sent not ACK while the master was expecting an ACK. 
This may happen for example if the slave was not responding to a message. 





© 


ontrol Register (File Register “Bus Control’) : 





The bit definitions of the control register are described in the table given below. These bits must be set by the software 
prior to performing certain operations. Some of the high level routines described later in this section set these bits 
automatically. 


Bit # Description 
0 _10BitAddr 1 = 10 bit slave addressing 
0 = 7 bit addressing. 
1 _Slave_ RW 1 = READ operation 
O = WRITE operation. 
2 


_Last_Byte_Rev 1 = last byte must be received. Used to send not ACK. 
(345)  — | Unused bits, can be used as general purpose bits. 


6 _SlaveActive A status bit indicating if a slave is responding. This bit is set or cleared by calling 
the 7?C_TEST_ DEVICE macro. See description of this I?C_TEST DEVICE macro. 
7 


_TIME_OUT_ A status bit indicating if a clock is stretched low for more than 1 msec, indicationg a 
bus error. On this time out, the operation is aborted. 





SS CSE AS SST SS A SE PSA STERN ES 
© 1993 Microchip Technology Inc. DS00554A-page 3 
3-35 


Software Implementation of I?C Bus Master 





Low Level : 


Function Name 


InitI?CBus_Master 


TxmtStanBit 


TxmtStopBit 


LOAD_ADDR_8 
LOAD _ADDR_10 
Txmt_Slave_Addr 


SendData 


GetData 
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Description 

Initializes Control/Status Registers, and set SDA & SCL lines. 

Must be called on initialization. 

Transmits a START (S) condition. 

Transmits a STOP (P) condition. 

The 7 bit slave’s address must be passed as a constant parameter. 


The 10 bit slave’s address must be passed as a constant parameter. 


Transmits a Slave address. Prior to calling this routine, the address of the slave 
being addressed must be loaded using LOAD_ADDR_8 or LOAD_ADDR_10 
routines. Also the Read/Write condition must be set in the control register. 


Transmits a byte of data. Prior to calling this routine, the byte to be transmitted must 
be loaded into DataByte file register. 


Receives a byte of data in DataByte file register. If the data byte to be received is the 
last byte, the _Last_Byte_Rcv bit in control register must be set priot to calling this 
routine. 
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MACROS 


High Level : 


The high level routines are implemented as a mixture of function calls and macros. These high level routines call the low 
level routines described above. In most cases only a few of the high level routines may be used and the user can remove 
or not include the routines not necessary to conserve program memory space. Examples are given for a few functions. 


FC_TEST DEVICE 


Parameters : None 
Purpose : To test if a slave is present on the network 
Description : Before using this macro, the address of the slave being tested must be loaded using 


LOAD _ADDR_8 or LOAD _ADDR_10 macro. Is the slave under test is present, then 
“ SlaveActive” status bit (in Bus Control file register) is set. If not, then this bit is set 0, 
indicating that the slave is either not present on the network or is not listening. 





Message : §-SlVAW-A-P 
Example 
LOAD_ADDR_8 OxA0O ; 24LC04 address 
?C_TEST_DEVICE 
btfss _SlaveActive ; See If slave is responding 
goto SlaveNotPresent ; 24LC04 is not present 
; Slave is present 
; Continue with program 
FC_WR 
Parameters : _BYTES_,_ SourcePointer_ 
_BYTES_ Number of bytes starting from RAM pointer _SourcePointer_ 


_SourcePointer_ Data Start Buffer pointer in RAM (file registers) 


Purpose A basic macro for writing a block of data to a slave 


Description : This macro writes a block of data (no of bytes = _BYTES_) to a slave. 
The starting address of the block of data is SourcePointer_. If an error occurs, the message 
is aborted and the user must check Status flags (e.g. _Txmt_Success bit) 





Message : S-SIVAW-A-D[0]-A.....A-D[N-1]-A-P 
Example 
btfsc _Bus_Busy ; Check if bus is free 
goto $-1 
LOAD_ADDR_8 _Slave_1_Addr 
rC_WR 0x09, DataBegin ; 
© 1993 Microchip Technology Inc. DS00554A-page 5 
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FC_WR_SUB 


Parameters 


Purpose 


Description 


Message 


Example 


_BYTES_, SourcePointer_, _Sub_Address__ 


_BYTES __ - ~ Number of bytes starting from RAM pointer _SourcePointer_ 
_SourcePointer_ Data Start Buffer pointer in RAM (file Registers) 
_Sub_Address _ Sub-address of the Slave 


Write a block of data to a slave starting at slave’s sub-addr 


Same as |?C_WR function, except that the starting address of the slave is also specified. For 
example, while writing to an 12?C Memory Device, the sub-addr specifies the starting address 
ofthe memory. The |?C_WR may prove to be more efficient than this macro in most situations. 
Advantages will be found for Random Address Block Writes for Slaves with Auto Increment 
Sub-addresses (like Microchip’s 24CXX series Serial EEPROMs) 


S-SIVAW-A-SubA-A-D[0]-A.....A-D[N-1]-A-P 


LOAD_ADDR_8 _Slave_ 2 Addr ‘ Load addr of 7 bit slave 
’?C_WR_SUB 0x08, DataBegin+1, 0x30 


In the above example , 8 Bytes of data starting from addr (DataBegin+1) is written to 24LC04 
Serial EEPROM beginning at 0x30 address 


FC_WR_SUB_SWINC 


Parameters 


Purpose 


Description 


Message 
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_BYTES_, SourcePointer_, Sub Address _ 


_BYTES_ Number of bytes starting from RAM pointer _SourcePointer_ 
_SourcePointer_ Data Start Buffer pointer in RAM (file Registers) 
_Sub_Address _ Sub-address of the Slave 


Write a block of data to a slave starting at slave’s sub-addr 


Same as |?C_WR_SUB function, except that the sub-address (incremented) is sent after every 
data byte. A very inefficient message structure and the Bus is given up after each data byte. 
This is useful for when the slave does not have an auto-increment sub-address feature. 


S-SIvAW-A-(SubA+0)-A-D[0]-A-P 


S-SIlvVAW-A-(SubA+1)-A-D[1]-A-P 
and so on until #of Bytes 
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FC_WR_BYTE MEM 


Parameters : _BYTES_, SourcePointer_, Sub Address _ 
_BYTES _ Number of bytes starting from RAM pointer _SourcePointer_ 
_SourcePointer_ Data Start Buffer pointer in RAM (file Registers) 
_Sub_ Address _ Sub-address of the Slave 

Purpose : Write a block of data to a slave starting at slave’s sub-address 

Description : Sameasl?C_WR_SUB_SWINC, except that a delay is added between each message. This 


is necessary for some devices like EEPROMs which accept only a byte at a time for 
programming (devices without on chip ram buffer) and after each byte a delay is necessary 
before a next byte is written. 


Message :  §-SlvAW-A-(SubA+0)-A-D[0]-A-P 
Delay 1 msec 
S-SIlvAW-A-(SubA+1)-A-D[1]-A-P 
Delay 1 msec 





and so on until #of Bytes 


FC_WR_BUF_MEM 


Parameters : _BYTES_, SourcePointer_, Sub Address , Device BUF _SIZE_ 
_BYTES _ Number of bytes starting from RAM pointer SourcePointer_ 
_SourcePointer_ Data Start Buffer pointer in RAM (file Registers) 
_Sub_ Address _ Sub-address of the Slave 


_Device_BUF_SIZE_ the slaves on-chip buffer size 


Purpose : Write a block of data to a slave starting at slave’s sub-addr 


Description: This Macro/Function writes #of_BYTES_ to anl?C memory device. However some devices, 
esp. EEPROMs must wait while the device enters into programming mode. 
But some devices have an on-chip temp. data hold buffer and is used to store data before 
the device actually enters into programming mode. For example, the 24C04 series of Serial 
EEPROMs from Microchip have an 8 byte data buffer. So one can send 8 bytes 
of data at a time and then the device enters programming mode. The master can either wait 
until a fixed time and then retry to program or can continuously poll for ACK bit and then 
transmit the next Block of data for programming. 


Message ; l?C_SUB_WR operations are performed in loop and each time data buffer of BUF_SIZE is 
output to the device. Then the device is checked for busy and when not busy another block 
of data is written. 


TIL AS DET EEO Tae DOE a I PS TM EE a a RG EE 
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FC_READ 


Parameters 


Purpose 


Description 


Message 


Example 


_BYTES_, _DestPointer_ 
_BYTES _ Number of bytes starting from RAM pointer _SourcePointer_ 
~_DestPointer_ Data Start Buffer pointer in RAM (file Registers) 


A basic macro for reading a block of data from a slave 


This macro reads a block of data (no of bytes = _BYTES_)fromaslave. The starting address 
of the block of datais DestPointer_. If an error occurs, the message is aborted and the user 


must check Status flags (e.g. __Rcv_Success bit). Note that on the last byte to receive, NACK 
is sent. 


S-SIVAR-A-D[O]-A-.....-A-D[N-1]-N-P 


LOAD_ADDR_10 _Slave_3_Addr 
I?C_READ 8, DataBegin 


btfss _Rev_Success 
goto ReceiveError 
goto ReceiveSuccess 


In the example above, 8 bytes of data is read from a 10 bit slave and stored in the master’s ram 
starting at address DataBegin. 


rere ehhh se A 
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Software Implementation of ?C Bus Master 





FC_READ SUB 
Parameters : _BYTES_, DestPointer_, SubAddress 
_BYTES__ Number of bytes starting from RAM pointer _SourcePointer_ 
_DestPointer_ Data Start Buffer pointer in RAM (file Registers) 
_SubAddress _ Sub-address of the siave 
Purpose : | A basic macro for reading a block of data from a slave 
Description : This macro reads a block of data (no of bytes = _BYTES_) froma slave starting at slave’s 
sub-address _SubAddress. The data received is stored in master’s ram starting at address 
_DestAddress. If an error occurs, the message is aborted and the user must check Status 
flags (e.g. _Rcv_Success bit). 
This MACRO/Subroutine reads a message from a slave device preceded by a write of the sub- 
address between the sub-address write & the following reads, a STOP condition is not issued 
and a “REPEATED START” condition is used so that an other master will not take over the 
bus, and also that no other master will overwrite the sub-address of the same slave. This 
function is very commonly used in accessing Random/Sequential reads from a memory 
device (e.g. : 24CXX serial of Serial EEPROMs from Microchip). 
Message :  §-SIVAW-A-SubAdar-A-S-SIVAR-A-D[0]-A-.....-A-D[N-1]-N-P 
Example 


LOAD_ADDR_10 _Slave_3 Addr 
l?C_ READ _SUB 8, DataBegin, 0x60 
btfss _Rev_Success 

goto ReceiveError 

goto ReceiveSuccess 


In the example above, 8 bytes of data is read from a 10 bit slave (starting at address 0x60) 
and stored in the master’s ram starting at address DataBegin. 


FC_READ BYTE or FC_READ_STATUS 


Parameters : _DestPointer_ 
_DestPointer_ Data Start Buffer pointer in RAM (file Registers) 
Purpose : To read a Status Byte from Slave 
Description : Several I?C Devices can send a Status Byte upon reception of the control byte. 


This Macro reads a Status byte from a slave to the master’s RAM location_DestPointer_. This 
function is basically the same as I?C_READ for a single byte read. As an example of this 
command, the 24Cxx serial Serial EEPROM from Microchip will send the memory data at the 
current location when I?C_ READ _STATUS function is called. On successful operation of this 
command, WREG = 1 else WREG = 0 on errors. 


Message :  §-SIVAR-A-D-A-N-P 
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FC_WR_SUB_WR 


Parameters : _Bytesi_, SrcPtri_, SubAddr_, Bytes2_, SrcPtr2_ 
_Bytes1_ Number of bytes in the first data block 
_SrePtr1_ Starting address of first data block 
_SubAddr_ Sub-address of the slave 
_Bytes2_ Number of bytes in the second data block 
_SrcePtr2_ Starting address of second data block 
Purpose : To send two blocks of data to a slave at it’s sub address 
Description : This Macro writes two blocks of data (of variable length) starting at slave’s sub-address 


_SubAddr_. This Macro is essentially the same as calling I?C_WR_SUB twice, but aSTOP 
bit is not sent in between the transmission of the two blocks. This way the Bus is not given 
up. 

This function may be useful for devices which need two blocks of data in which the first block 
may be an extended address of a slave device. For example, a large |? memory device, or 
a teletext device with an extended addressing scheme, may need multiple bytes of data in the 
first block that represents the actual physical address and is followed by a second block that 
actually represents the data. 


Message :  S-SIVW-A-SubA-A-D1/0]-A-....-D1[N-1]-A-D2[0]-A-.....A-D2[M-1]-A-P 


FC_WR_SUB_RD 


Parameters : _Count1_, SrcPtr_, SubAddr_, Count2_, DestPtr_ 
_Countt_ > Length of the source buffer 
_SrcePtr_ Source pointer address 
_SubAddr_ Sub-address of the slave 
_Count2__ Length of the destination buffer 
_DestPtr_ Address of destination buffer 
Purpose : To send a block of data and then receive a block of data 
Description : This macro writes a block of data (of length _Count1_) toa slave starting at sub-address 


_SubAddr_ and then reads a block of data (of length _Count2_) to the master’s destination 
buffer (starting at address _DestPtr_). Although this operation can be performed using 
previously defined Macros, this function does not give up the bus in between the block writes 
and block reads. This is achieved by using the Repeated Start Condition. 


Message :  S-SIVW-A-SubA-A-D1/0]-A-.....-A-D1[N-1]-A-S-SIvR-A-D2[0]-A-......A-D2[M-1]-N-P 


AAA LSE ESTE IN RSS ST ER SST SSE SS EET CEES 
DS00554A-page 10 © 1993 Microchip Technology Inc. 
| 3-42 


Software Implementation of I?C Bus Master 


FC_WR_COM_WR 


Parameters :  —Countt_, SrcPtri_, Count2_, SrcPtr2_ 
_Count1_ Length of the first data block 
_SrePtrt_ Source pointer of the first data block 
_Count2_ Length of the second data block 
_SrePtr2_ Source pointer of the second data block 
Purpose : To send two blocks of daia io a slave in one message 
Description : | Thismacrowrites ablock of data (oflength_Count1_)toaslave and then sends another block 


of data (of length Count2_) without giving up the bus. 


For example, this kind of transaction can be used in an I?C LCD driver where a block of control 
& address information is needed and then another block of actual data to be displayed is 
needed. 


Message =:  S-SIVW-A-D1/0J-A-.....A-D1[N-1]-A-D2[0]-A-......-.A-D2[M-1]-A-P 


APPLICATIONS 


The I2C Bus is a simple two wire serial protocol for inter- Logic Products Division 
IC communications. A lot of peripheral devices (acting 
as Slaves) are available in the market with I?C interface 
(e.g. serial EEPROM, clock/calendar, I/O Port expand- 
ers, LCD drivers, A/D converters, etc.). Although some 
of the PIC16CXX devices do not have on chip |?C 
hardware interface, due to the high speed throughput of 
the microcontroller (250 ns @ 16 MHz input clock), the 
l?C bus can be implemented using software. 


AUTHOR: Amar Palacherla, 
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Appendix A - I?C.H 


PRK KK KR KK KKK KKKEKK RK KKKKKKKKKKKKKKKKK KKK KK KKK KKK KKK KK KKKK KKK KK KKK KKKKKKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKK KKK 


: I2C Bus Header File 
PRKKKKKKKRKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KA KKK KKK KKK KK KK KKK KKK 


_C1kOut equ (CL Kin <s>< 2) 


; Compute the delay constants for setup & hold times 


. 
, 


_40uS Delay set (_ Cl1kOut/250000) 

_47uS_ Delay set (_ ClkOut/212766) 

_50uS Delay set (_ ClkOut/200000) 

#define OPTION INIT (OxCO | 0x03) ; Prescaler to RTCC for Appox i mSec timeout 
#define SCL _ portb, 0 

#define SDA " portb,1 

#define SCL TRIS trisb, 0 

#define SDA _TRIS trish; 1 

#define WRITE _ 0 

#define READ _ iL 

; Register File Variables 


CBLOCK 0x0C 


SlaveAddr ; Slave Addr must be loader into this reg 
SlaveAddrHi ; for 10 bit addressing mode 

DataByte ; load this reg with the data to be transmitted 
BitCount ; The bit number (0:7) transmitted or received 
Bus_ Status ; Status Reg of I2C Bus for both TXMT & RCVE 
Bus_ Control 7 control Register of I2C Bus 

DelayCount 

DataByteCopy ; copy of DataByte for Left Shifts (destructive) 
SubAddr ; sub~-address of slave (used in I2C_HIGH.ASM) 
SrePtr ; source pointer for data to be transmitted 
tempCount ; a temp variable for scratch RAM 

StoreTemp 1 ; a temp variable for scratch RAM, do not disturb contents 
End _ I2C_ Ram ; unused, only for ref of end of RAM allocation 
ENDC 
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pK KI RK KK IK I A IK IA I KK KI I I AK II III I I I I I IK OK KK KR RK RK OK RK KK RK KK KK KK KKK KKK KK KK KK 


; I2C Bus Status Reg Bit Definitions 
pK KK RK KK RK KK I RK IK IK OK I A KKK IK III IK KK RK KK KK KK RK RK RK KK KR KK KK KK KKK KK KK KK KK 


#define Bus Busy Bus Status, 0 
#define Abort Bus Status,1 
#define Txmt Progress Bus Status, 2 
#define Rcv_Progress Bus Status, 3 


#define Txmt Success Bus Status,4 


#define Rcv Success Bus Status,5 
#define Fatal Error Bus Status, 6 
#define ACK Error Bus Status,7 


KK I RK RI AIK RR I RK ROR II I III I III IOI II IO I IO IKK RK RR KK KR KK RK KK KK KK KK KKK KKK KK KKK KKK KKK KK KK 


7 I2C Bus Contro Register 

pK RK RK RK RR KK KKK KR KKK KKK KK KK KKK A II I IO KK II IK IK KK KK KKK RK KK KK KK KK KK KK 
#define 10BitAddr Bus_Control,0 

#define Slave RW Bus: Control, 1 


#define Last Byte Rcv Bus _Control,2 


#define SlaveActive Bus Control, 6 
#define TIME OUT_ Bus, Control; ] 


II KR RK KKK KKK KK KK KK IKI I KK I III RK KKK KKK KK A IK II I III KKK KKK KKK KKK KKK AK KK KK KK KK KK 


; General Purpose Macros 
POR KK KK RK KK KKK KI KKK IK KI RR KIO RI ARI II IK II AK RK KKK OK KK KK KK KK KK KK KR KKK KK KK KK KK 


RELEASE BUS MACRO 
bsf _rpod ; select. page. | 
bsf _SDA 7; tristate SDA 
bsf _SCL 7 tristate. Sci 
; bcf _Bus_ Busy ; Bus Not Busy, TEMP ????, set/clear on Start & Stop 
ENDM 


pI KKK KK KKK KKK KK AIA III IIA III II KIKI II II I KK IK RR RK KK KKK KKK KK AK KKK KKK KK KK KK KK KK KK 


: A MACRO To Load 8 OR 10 Bit Address To The Address Registers 


; SLAVE ADDRESS is a constant and is loaded into the SlaveAddress Register(s) depending 


: on 8 or 10 bit addressing modes 
PRK KKK RK KKK KKK KK KR KR RK KK RK KR RK RK RO KK RR IK KR KK RR KK KKK KKK KKK KK KKK KK KR KK RK KR KK KKK KKK KEK KKK KK KK KKK KKAK KK KK 


LOAD _ADDR_10 MACRO SLAVE ADDRESS 


bsf _10BitAddr ; Slave has 10 bit address 
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moviw 
movwft 
moviw 
movwft 


ENDM 
LOAD ADDR 8 
bcf 


moviw 
movwft 


(SLAVE ADDRESS & Oxff) 

SlaveAddr 

(((SLAVE ADDRESS >> 7) & 0x06) | OxF0) 
SlaveAddr+1 


MACRO SLAVE _ADDRESS 
10BitAddr 

(SLAVE ADDRESS & Oxff) 
SlaveAddr 


ENDM 


load low byte of address 
10 bit addr is 11110Xx0 
hi order address 


Set for 8 Bit Address Mode 
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Appendix B - TEST.ASM 


Title “I2C Master Mode Implemetation” 
SubTitle “Rev 0.1 : O01 Mar 1993” 


PRKKRKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KK KKK KKK KKK KK KKK KKK KKKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK 


"es 


Software Implementation Of I2C Master Mode 


“Ne 


Ne 


; * Master Transmitter & Master Receiver Implemented in software 
; * Slave Mode implemented in hardware 


pt Refer to Signetics/Philips 12C-Bus Specification 
; The software is implemented using PIC16C71 & thus can be ported to all Enhanced core PIC16CXX prcducts 


; RB1 is SDA (Any I/O Pin May Be used instead) 
; RBO/INT is SCL (Any I/O Pin May Be used instead) 


“ee 


“ae 


PRRKKKKKKKKKKKKKKKKKKKKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KK KK KKK KK 


Processor 16C71 
Radix DEC 


IRIN equ 16000000 ; Input Clock Frequency Of PIC16C71 
include “Ge \piecoois\loCxs nh” 

#define Slave 1 Addr 0OxA0 ; Serial EEPROM #1 

#define Slave 2 Addr OxAC ; Serial EEPROM #2 

#define Slave 3 Addr 0xD6 ; Slave PIC16CXX 


#define ENABLE BUS FREE TIME TRUE 
#define CLOCK STRETCH CHECK TRUE 
#define INCLUDE HIGH LEVEL I2C TRUE 


include Pees be 


CBLOCK End_I2C_Ram 


SaveStatus ; copy of STATUS Reg 
SaveWReg ; copy of WREG 
byteCount 

HoldData 


ENDC 


CBLOCK 0x20 
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DataBegin : 


ENDC 


ORG 0x00 
goto Start 


ORG 0x04 


Data to be read or written is stored here 


PR KKRKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KK KK KKK KKK KR KKK KK KK RK KK RK RK KK KR KK RK KK KKK AK KKK RK KKK KKK KKK KKK KK KK KK KKK 


SA 


. 
, 


Interrupt Service Routine 


For I2C routines, only RTCC interrupt is used 
RTCC Interrupts enabled only if Clock Stretching is Used 
On RTCC timeout interrupt, disable RTCC Interrupt, clear pending flags, 
MUST set TIME OUT _ flag saying possibly a FATAL error ocured 
The user may choose to retry the operation later again 


pRKKKKKKKKKKKKKAKK KK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK AK KK KKK KK RK KKK KKK KKK KKK KK KK KKK KK KKK KKK KKK KK KK KK 


. 
a, 

. 
, 


. 
gv 


Interrupt: 

Save Interrupt Status (WREG & STATUS 
movwft SaveWReg : 
swapf _ status,w ; 
movwt SaveStatus ; 
if _CLOCK_ STRETCH CHECK ; 
btfss _ rtift 

goto MayBeOtherInt : 
bs=t TIME OUT _ ; 
bef rtift 

endif 


, 


° 
, 


MayBeOthertInt: 
NOP 

RestoreIntStatus: 
swapf SaveStatus,w 
movwt _ status ; 
swapf SaveWReg 
swapf SaveWReg,w ; 
retfie 


° 
Lf 


regs) 


Save WREG 

affects no STATUS bits : Only way OUT to save STATUS Reg ????? 
Save STATUS Reg 

RTCC Interrupts enabled only if Clock Stretching is Used 


other Interrupts 
MUST set this Flag, can take other desired actions here 


Check For Other Interrupts Here, This program usesd only RTCC & INT Interrupt 


. 
, 


Restore Interrupt Status 
restore STATUS Reg 


restore WREG 


PRK KKK KK KKK KKK KK KKK KK KKK KK KKK KKK KKK KKKK KKK KK KKK KKK KKK KKK KK RK KK KK KKK KKK KKK KKK KKK KK KK KKK KKK KK KKK KK ARK KKK KKK KK 


Include I2C High Level & Low Level Routines if — INCLUDE HIGH LEVEL I2C 


° 
7 


include *i2o: Ni gnsasm” 


JBISPI SNg 4D,] JO UONe}UsWIS;dWy aIeMYOS 


6v-E 


‘ou; ABojouyoe | diyDOJOIW E661 © 


L\ ebed - yrssoosa 


endif 


pK KK RK RR ROK ROK KK KK RK ORK KK KR RK KK KKK KK KK KKK KR KK KK KKK KK KKK KKK KKK KKK KK 


. 
, 


ReadSlavel: 


; EEPROM (24C04) may be in write mode (busy), check for ACK by sending a control byte 


LOAD ADDR _8 _Slave_1 Addr 
waitl: 

226" TEST DEVICE 

bttss _ SlaveActive 

goto waitl 

clrwdt 


; See If slave is responding 
; if stuck for ever, recover from WDT, can use other schemes 


I2C_ READ SUB 8, DataBegin+l, 0x50 


. 
LA 


; Read 8 bytes of data from Slave 2 starting from Sub-Address 0x60 


. 
, 


; See If slave is responding 
; if stuck for ever, recover from WDT, can use other schemes 


LOAD ADDR_8 _Slave_ 2 Addr 
wait2: 
L2C TEST DEVICE 
btfiss _ SlaveActive 
goto wait2 
clrwdt 
I2C_ READ SUB 8, DataBegint1, 0x60 
return 


e 
tf 


pK I KK IK KI I OKI AIK KOK KOKI IK I I KK RK RK KK KKK KK KK KKK KK KK KKK KK KK KK KKK KK KK KK KK KK KK KK KK KK KKK 


ReadSlave3: 
LOAD ADDR 8 _Slave_ 3 Addr 
wait3: 
I2C_TEST DEVICE 
DErSSs. SlaveActive 
goto wait3 
clrwdt 


I2C READ SUB 8, DataBegin, 


return 


; See If slave is responding 
; if stuck for ever, recover from WDT, can use other schemes 


0 


KK KR A RI I RO KR IIR KK II I IKK KK I KOK KK KKK IKK KKK RIK KKK RK KK KK KK KKK KK RR RR RK KK RIK KKK KK KKK KKK KEK KKK KR KK KKK 


. 
, 


; Fill Data Buffer With Test Data ( 8 bytes of 0x55, OxAA pattern) 
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, 
pO RK KKK I KR RK KKK RK RK KK RK KK KKK KKK AK KKK KKK KKK KKK KK KK KKK KKK KK KK KR KKK KKK KK KK KKK KK KKK KK KK KK KK KKK KK KK 


FiliDataBut: 
moviw 0x00 ; start address location of EEPROM array 
movwt DataBegin ; 1st byte of data to be sent is start address 
moviw DataBegint+l ; data starts following address (RAM Pointer) 
movwft _ fsr 
moviw 8 ; fill RAM with 8 bytes , this data is written to EEPROM (slave) 
movwft byteCount 
moviw 0x55 ; pattern to fill with is 0x55 & OxAA 
movwf HoldData 
Xe 
comf HoldData 
movf HoldData,w 
movwt _ indf 
Inch -_ fsr ; point to next location 
decfsz byteCount 
goto X1 
return 


, 
REEL EREER AREER RR EEL RRRER ERE EER EEK EKER KERR REE RE REEKERKR EL REEREERAL EEE ERE EERE REREREERR KERR ARRRER REE RES 


. 
, 


; Main Routine (Test Program) 


; SINGLE MASTER, MULTIPLE SLAVES 
r 
OCI ICICI III II I ICICI ISIC ICI IC II III I I IC IKI III III ICICI IC ICICI III I IR IO A HC 


Start: 
call InitI2CBus_ Master ; initialize I2C Bus 
bsf = gie ¢ enable global interrupts 
call FillDataBuf ; fill data buffer with 8 bytes of data (0x55, OxAA) 


; Use high level Macro to send 9 bytes to Slave (1 & 2 : TWO 24C04) of 8 bit Addr 


7 Write 9 bytes to Slave 1, starting at RAM addr pointer DataBegin 


DELS: . Bus_ Busy ; is Bus Free, ie. has a start & stop bit been detected (only for multi master system) 
goto oal j; a very simple test, unused for now 

LOAD ADDR 8 Slave 1 Addr 

I2C_WR 0x09, DataBegin 


; Write 8 bytes of Data to slave 2 starting at slaves memory address 0x30 
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beisc Bus_ Busy ; is Bus Free, ie. has a start & stop bit been detected (only for multi master system) 
goto $-1 ; a very simple test, unused for now 

LOAD ADDR_8 Slave 2 Addr 

I2C_ WR_SUB 0x08, DataBegin+l, 0x30 

call ReadSlavel ; read a byte from slave from current address 

LOAD ADDR 8 _Slave_3 Addr 


moviw OxCC 
movwf DataBegin 
I2C_WR_SUB Ox01,DataBegin, 0x33 


call ReadSlave3 ; Read From Slave PIC 
self clrwdt 
goto self 


; 
PRAKKKKKKKKKKKKKKK KKK KKK KK KKK KK KKK KKK KK KKK KK KK KKK KK KK KK KKK RK KK KKK KKK RK KKK KOK KK KR KKK KK KK KK KKK KKK KK I KKK 


END 
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Appendix C - LOW.ASM 


p RK RK KR KR KR KK KK RK RK kk KK KK RK RK KK KR KK KKK KR KK KKK KKK KKK KKK KK KK KKK KK KK KK 


“=e 


Low Level I2C Routines 


“se 


“eo 


; Single Master Transmitter & Single Master Receiver Routines 

; These routines can very easily be converted to Multi-Master System 
when PIC16C6X with on chip I2C Slave Hardware, Start & Stop Bit 
detection is available. 


“oe “ee 


“ee 


The generic high level routines are given in I2C HIGH.ASM 


‘se 


se 


PRR KKK KKK KKK RK KK KKK RK KKK KK KK RK KK KK RR RK KK KK KK KK KK KR RK KK KKK KK KKK KKK KK KK KK KKK KK KKK KK RK KK KR KK KK KK KK KK KK KK 


p RK KKK KK KKK KKK KK KK KKK KK KKK KK KKK KK KK KKK KR KK KK KK KR KK KK KK KK KKK KK KK KKK KK KKK KKK KK KK KK KK KK KK KK KKK KKK KKK 


: TI2C Bus’ Initialization 


, 
SKEKKERKE EEK EREREERERE ER RAK EREREKRREER ER RAE ERARE RRR ARERR ER ERER EER ERIK REAK KAR R RA RE REKK ERE RIKER KIRK KR KS HK A 


TnitiZ2cBus: Master: 


Del rp0 

movf _ portb,w 

andlw OxFC ; do not use BSF & BCF on Port Pins 

movwt _ portb ; set SDA & SCL to zero. From Now on, simply play with tris 
RELEASE _BUS 

elrt Bus_ Status 7 rkeset status: reg 

clrf Bus Control ; clear the Bus Control Reg, reset to 8 bit addressing 
return 


. 
, 


SEER RARER ER RRA REAR RERERR ARERR EREREAR EK REE ERR ER RR RK RELIES BRILL ELK RRR IK EERE AR RAR RA AH KEK 


Send Start Bit 


“e 


, 
SERRA RK ERA EERE AE SRI ERER RE RK KEE ROR RRR ARE RRR BRK BRAK RI KARR RAR IR NEAL BER RRR IRR KOR AER ARR RR RI 


TxmtStartBit: 


bsf po 7 select page 1 
bsf _SDA 7 set SDA high 
bsf J8Ch ;, Clock 1S. high 


se 


; Setup time for a REPEATED START condition (4.7 uS) 


Ne 


call Delay40uSec ; only necesry for setup time 
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bef _SDA ; Qive a falling edge on SDA while clock is high 
call Delay47uSec ; only necessary for START HOLD time 

bsft _Bus Busy 7; on a start condition bus is busy 

return 


PRK KKK RK KKK KKK KKK KK RK KK RR KKK KKK KK KR KR KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KKK KKK KK KKK KK RK KKK KK 


Send Stop Bit 


PRK RK KEKKKKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK EK KR KKK KKK KK KKK KKK KK KKK KKK K 


TxmtStopBit: 
bsf _ xpd ; select page 1 
bce _SCL 
bef _SDA ; set SDA low 
bSt _ sch ; Clock is pulled up 
call Delay40uSec ; Setup Time For STOP Condition 
bsf _SDA ; give a rising edge on SDA while CLOCK is high 
if _ENABLE BUS FREE TIME 


. 
, 


. 
, 


delay to make sure a START bit is not sent immediately after a STOP, ensure BUS Free Time tBUF 


call Delay47uSec 


endif 


bcf _Bus_ Busy ; On a stop condition bus is considered Free 


return 


PR KK RK KKK KKK KK KK KK KK RK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK KKK KKK KKK KKK KKKKKKKKKKKKKKKK KK KKK KKK KKK KK KK KKK KK 


. 
a, 

° 
LA 


° 
, 


Abort Transmission 


Send STOP Bit & set Abort Flag 


pRRKKKEKKEKKKK KKK KKK KK KK KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKK KKK KK KKK KKK KKK KKK KKK RK RK KKK KKK KKK AK KK 


AbortTransmission: 


call TxmtStopBit 
bsf _Abort 
return 


PRR KKK RK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KEK KKKK KKK KKK KKK KKK KKK 


. 
£ 

. 
, 


° 
av 


Transmit Address (list Byte)& Put in Read/Write Operation 


Transmits Slave Addr On the lst byte and set LSB to R/W operation 
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: Slave Address must be loaded into SlaveAddr reg 

; The R/W operation must be set in Bus Status Reg (bit _SLAVE RW): O for Write & 1 for Read 
: On Success, return TRUE in WREG, else FALSE in WREG 

; If desired, the failure may tested by the bits in Bus Status Reg 


, 
PRR KKKKK KKK KKK RRA K KKK RE KEK IKK KKK KR KK KKK KK KK KKK KAR KKK KKK KKK KKK KER ERK RK KK KKK RK KKK KK KKK KER ERK KKK KK EKER EKER K 


Txmt_ Slave Addr: 


bcf ACK Error ; reset Acknowledge error bit 

btiss 10BitAddr 

goto SevenBitAddr 

btfss Slave_RW 

goto . TenBitAddrWR ; For 10 Bit WR simply send 10 bit addr 


; Required to READ a 10 bit slave, so first send 10 Bit for WR & Then Repeated Start 
; and then Hi Byte Only for read opreation 


. 
tf 


TenBitAddrRd: 
bet Slave _ RW ; temporarily set for WR operation 
calk TenBitAddrWR 
btfss Txmt_Success ; (Skip. ar successful 


retlw FALSE 


call Txmestarct ert ; send A REPEATED START condition 

bst Slave_RW ; For 10 bit slave Read 

move SlaveAddr+1,W 

movwt DataByte 

bsf DataByte, LSB ; Read Operation 

call SendData ; send ONLY high byte of 10 bit addr slave 
GOES: -.4 AddrSendTest ; 10 Bit Addr Send For Slave Read Over 


; if successfully transmitted, expect an ACK bit 


btfiss | Txmt_Success ; if not successful, generate STOP & abort transfer 
goto _ AddrSendFail 
TenBitAddrwR: 
movt SlaveAddr+1,W 
movwt DataByte 
Der DataByte, LSB ; WR Operation 


. 
, 


; Ready to transmit data : If Interrupt Driven (i.e if Clock Stretched LOW Enabled) 
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; then save RETURN Address Pointer 


call SendData ; send high byte of 10 bit addr slave 


Ne 


; if successfully transmitted, expect an ACK bit 


me 


btfss Txmt Success ; if not successful, generate STOP & abort transfer 
goto AddrSendFail 
movft SlaveAddr,W 
movwft DataByte ; load addr to DatByte for transmission 
goto EndTxmtAddr 
SevenBitAddr: 
movt SlaveAddr,W 
movwft DataByte ; load addr to DatByte for transmission 
bert DataByte, LSB 
BEESC’ Slave RW ; if skip then write operation 
bsf DataByte, LSB ; Read Operation 
EndTxmtAddr: 
call SendData ; send 8 bits of address, bus is our’s 


; if successfully transmitted, expect an ACK bit 


. 
, 


_AddrSendTest: 
befss — Txmt_Success ; skip if successful 
goto AddrSendFail 
clrwdt 
retiw TRUE 
_AddrSendFail: 
clrwdt 
btfss _ ACK Error 
retlw FALSE ; Addr Txmt Unsuccessful, so return 0 


; Address Not Acknowledged, so send STOP bit 


call TxmtStopBit 
retlw FALSE ; Addr Txmt Unsuccessful, so return 0 


‘Ne 


PR KKKKKKKKKKKKKKKRK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK KKK KKK KKK KKK KK KKK KK KK KKEKKKRKKKKKKK KK KEK KK 


; Transmit A Byte Of Data 


Ne 


; The data to be transmitted must be loaded into DataByte Reg 

; Clock stretching is allowed by slave. If the slave pulls the clock low, then, the stretch is detected 
; and INT Interrupt on Rising edge is enabled and also RTCC timeout interrupt is enabled 

; The clock stretching slows down the transmit rate because all checking is done in 

; software. However, if the system has fast slaves and needs no clock stretching, then 
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; this feature can be disabled during Assembly time by setting 
7; CLOCK STRETCH ENABLED must be set to FALSE. 


, 
PRR KKK RRR KKK KR KKK KEK EKKKKKKKKKKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KK KKKKKKKKKKKKKKKKKKK KKK KKK KKK KK KKK KKK KKK KKK 


SendData: 


; TXmtByte & Send Data are same, Can check errors here before calling TxmtByte 
; For future compatibility, the user MUST call SendData & NOT TxmtByte 


goto TxmtByte 


° 
, 


TxmtByte: 
movet DataByte,w 
movwf DataByteCopy ; Make copy of DataByte 
bsf Txmt_Progress ; set Bus status for txmt progress 
bet Txmt_Success ; reset status bit 


movlw 0x08 
movwf BitCount 
bsf _rp0 
if _CLOCK_STRETCH CHECK 
; set RTCC to INT CLK timeout for 1 mSec 
; do not disturb user’s selection of RPUB in OPTION Register 


Ja\sey sng ae Jo uone}UaWa|duyy BIEMYOS 


movft option,w : 
andlw OPTION _INIT ; defined in I2C.H header file 
movwf option 
endif 
TxmtNextBit: 
clrwdt ; clear WDT, set for 18 mSec 
bcf SCL 
pase DataByteCopy ; MSB first, Note DataByte Is Lost 
bef _SDA 
beise ¢ 
bsf SDA 
Cal Delay47uSec ; Quareentee min LOW TIME tLOW & Setup time 
bst SCL ; set clock high , check if clock is high, else clock being stretched 
call Delay40uSec ; gQuareentee min HIGH TIME tHIGH 
if _CLOCK STRETCH CHECK 
bCE rpo 
CLEE rtcc 7; Clear RTCC 
bet EELt ; clear any pending flags 
bsf rtie ; e@lable RTCC Interrupt 
bcf£ TIME OUT_ + reset timeout error flag 
Check SCh 1s 
betse. “TIMEOUT. ; if RTCC timeout or Error then Abort & return 


goto Bus Fatal_Error ; Possible FATAL Error on Bus 
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bcf rp0 
btfss SCL 
goto Check SCL. J 
Def rtie 
bsf rp0d 
endif 
decfsz BitCount 
goto TxmtNextBit 
; Check For Acknowledge 


. 
, 


° 
f 

° 
a 


. 
t 


if clock not being stretched, it must be high 
loop until SCL high or RTCC timeout interrupt 
Clock good, diable RTCC interrupts 


ber po) OaIh ; reset clock 
bsf SDA ; Release SDA line for Slave to pull down 
call Delay47uSec ; Quareentee min LOW TIME tLOW & Setup time 
bsf SCL ; clock for slave to ACK 
cal th Delay40uSec ; gQuareentee min HIGH TIME tHIGH 
DCE rp0 ; select PAGE 0 to test PortB pin SDA 
btfsc SDA ; SDA should be pulled low by slave if OK 
goto _TxmtErrorAck 
bsf rpo 
bef SCL ; reset clock 
bef Txmt_Progress ; reset TXMT bit in Bus Status 
bsf Txmt_Success ; transmission successful 
lesen ACK) BYror ; ACK OK 
return 
_TxmtErrorAck: 
RELEASE BUS 
ber Txmt_ Progress ; reset TXMT bit in Bus Status 
DCL Txmt_Success ; transmission NOT successful 
bsf ACK Error ; No ACK From Slave 
return 


° 
, 


PR FR RI IIE I II IK I I II I III II KK KK KK KK KK KR KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KK KK KK KK KK KKK KK 


; Receive 


A Byte Of Data From Slave 


: assume address is already sent 


: if last byte to be received, do not acknowledge slave 


; _Last_Byte Rev bit of control reg) 
; Data Received on successful reception is in DataReg register 


PRK KKK KKK KKK KKK KKK RK KK KKK KKK KKK KK KK KKK KKK KK KKK KK KK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KKK KK 


GetData: 
goto RevByte 





(last byte is testted from 
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. 
f 


RevByte: 


bsft 
bcf 


moviw 
movwt 


Rcv_Progress 
Rev_Success 


0x08 
BitCount 


if _CLOCK_STRETCH_CHECK 


bsf 


_rp0d 


° 
sf 


° 
a 


set Bus status for txmt progress 
reset status bit 


; set RTCC to INT CLK timeout for 1 mSec 
; do not disturb user’s selection of RPUB in OPTION Register 


movf option,w 
andlw OPTION INIT 
movwf option 
endif 
RevNextBit: 
clrwdt 
bst rp0 
leeuid SCE 
bsf SDA 
call Delay47uSec 
bsf SCL 
call Delay40uSec 
if _CLOCK_STRETCH CHECK 
bcf rp0 
Cler rtec 
bcf a 3 al 
bsf rtie 
bcf TIME OUT_ 
Check: SCL. 
btisc, TIME: :OUT. . 
goto Bus Fatal Error 
DCE rpod 
btfss SCL 
goto Check SCL _2 
bcf rtie 
bSt rp0 
endif 
bcf rp0 
DCL 8 
btfisc SDA 
bsf c 
rlft DataByte 
decfsz BitCount 
goto RevNextBit 


. 
7 


defined in I2C.H header file 


clear WDT, set for 18 mSec 
page 1 for TRIS manipulation 


can be removed from loop 

guareentee min LOW TIME tLOW & Setup time 
clock high, data sent by slave 

guareentee min HIGH TIME tHIGH 


clear RTCC 

clear any pending flags 
elable RTCC Interrupt 
reset timeout error flag 


if RTCC timeout or Error then Abort & return 
Possible FATAL Error on Bus 


if clock not being stretched, it must be high 


loop until SCL high or RTCC timeout interrupt 
Clock good, diable RTCC interrupts 


select page 0 to read Ports 


TEMP ???? DO 2 out of 3 Majority detect 
left shift data ( MSB first) 
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Generate ACK bit if not last byte to be read, 


; if last byte Gennerate NACK ; do not send ACK on last byte, main routine will send a STOP bit 
bsf rp0 
bet SCL 
Dee SDA 7; ACK by pulling SDA low 
betsc Last. Byte Rev 
bsf SDA ; if last byte, send NACK by setting SDA high 
cad Delay47uSec ; guarantee min LOW TIME tLOW & Setup time 
bsf SCL 
call Delay40uSec 7; Quarantee min HIGH TIME tHIGH 
RevEnd: 
bet SCL ; reset clock 
bcf Rcv_Progress ; reset TXMT bit in Bus Status 
St Rev success ; transmission successful 
bct ACK Error ; ACK OK 
return 


if _CLOCK_STRETCH CHECK 


p RRR KK KR KK KK KK KK KKK KKK KR RK KR RK KK KK RK KKK RK KK RK RK KK KK KKK KK KK RK KK KKK KK KR KK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KK KK KK 


. 
a, 
. 
, 
° 
v 
. 
, 
. 
, 


. 
v 


Fatal Error On I2C Bus 


Slave pulling clock for too long or if SCL Line is stuck low. 
This occurs if during Transmission, SCL is stuck low for period longer than appox I1mS 
and RTCC times out ( appox 4096 cycles : 256 * 16 — prescaler of 16). 


PRK KKK KK KK KK KR KR KK KR KR KK KKK KK KK KKK KKK KK KK KK KK KK RAK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KK KK KK KK KK KK KK 


Bus Fatal Error; 


. 
ty 


Ne 


“ee 


we 


“ee 


diable RTCC Interrupt 
bcf rtie ; disable RTCC interrupts, until next TXMT try 
RELEASE BUS 


Set the Bus Status Bits appropriately 


bsf Abort ; transmission was aborted 

bsf Fatal Error ; FATAL Error occured 

bot Txmt_Progress ; Transmission Is Not in Progress 

bet Txmt_Success ; Transmission Unsuccesful 

call TxmtStopBit ; Try sending a STOP bit, may be not successful 
return 
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“we 


PRK RK KR KK RK KK KKK RK KK KKK RK KKK KK KK RK KKK KK EK KKK KK KK KK KKK KK KK KK KK KKK KKK KK KK KK KK KKK KK KK KE KKK KKK KKK KKK KKK KKK KKK 


endif 


PRK KKK KKK KKK KKK KEK KKK KKK RK KK KKK KK KR KKK RK KR KKK KK KKK RK KKK KKK KEK KKK KKK KKK KKK KR KKK KK KR KKK KKK KK AK RK KR KKK KR KK KK 


“ee 


™e 


z Delay4uS is wait loop for 4.0 uSec 
Delay47uS is wait loop for 4.7 uSec 
Delay50uS is wait loop for 5.0 uSec 


“Ne ™“e 


se 


PRK KKK RK KKK KKK KKK KKK KKK KR KKK KKK KKK KKK KH K KK KKK KKK KK KKK KK KK KKK KKK RK KKK KKK KKK KKK KKK KKK KKK RRR KKK KK KKKKKKKK KKK 


e 
vy 


Delay50uSec: 
moviw ((_50uS Delay-5) /3 
DlyK 
movwf DelayCount 
decfsz DelayCount 
Goto. -S=i 
return 
Delay47uSec: 
movlw ((_47uS_Delay-8) /3 
goto DlyK 


Delay40uSec: 
moviw ((_40uS Delay-8) /3 
goto DlyK 


. 
, 


SEERA EAL AE ELER IK ERE ARK RE RICK RRR ERR RARE RELEASE RARER EARLE AAEM EERE REAR ERA ARR RARE RIK BAR 


General Purpose Delay Routines 


1) 
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Appendix D - HIGH.ASM 


pRKRKKKKKKKK KKK KKK KKK KK KK KKK KK KKK KKK KR KKK KKK KKK KKK KKK KKK AK KK KK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK 


. 
f 
. 
v 
. 
7 
. 
, 


. 
, 


I2C Master : General Purpose Macros & Subroutines 


High Level Routines, Uses Low level Routines (in I2C_LOW.ASM) 


PRKKKRKKRKKKK KKK KKKKKK KK KKK KKK KK KKK KKK KKK KK KK KK KK RK KK KK KK KK KKK KK KR KKK KKK KKK KK KKK KK KKK KKK KK KKK KKK KKK KKK KKKKK KK 


PRAKKKKKKKKK KKK KKK KKK KKK KKK KR KKK KKK KK KK KR KKK KK KKK KK RK KK RK KK KK KK KKK KKK KK KR KK AK KKK KKK KKK KK KKK KKK KK KK KKK 


I2C_TEST DEVICE 


MACRO 


If Slave Device is listening, then SlaveActive bit is set, else is cleared 


Parameter : NONE 


Sequence Of Operations 
S-S1vAW-A-P 
If A is +ve device is listening, else either busy, not present or error condition 


This test may also be used to check for eample if a Serial EEPROM is in internal programming 
mode 


NOTE : The address of the slave must be loaded into SlaveAddress Registers, and 10 or 8 bit 
mode addressing must be set 


PRRKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KK KKK KKK KK KKK KR KKK KK KR KK KK KKK KKK KKK KK RK KK KK KKK RK KKK KKK 


I2C_ TEST DEVICE MACRO 


call IsSlaveActive + TEMP ???? : Assembler Error with this MACRO 


ENDM 


Test If A Device of SlaveAddr Is Present on Bus 
The Slave Address Is put on the bus and if ACK it is present, if NACK not present 
or may be device is not responding. The presense can be checked constantly by a master 


(for ex. the Operating System on an Access.Bus may constantly issue this command) 


Assume the Slave Address (10 or 8 bit) is loaded in SlaveAddr 
Set _10BitAddr bit in Control Reg to 1 if 10 bit Address slave else 0 


Returns 1 in _SlaveActive Bit if slave is responding else a 0 
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IsSlaveActive: 
bcf Slave_RW ; set for write operation 
call TxmtStartBit ; send START bit 
call Txmt_ Slave Addr ; if successful, then _Txmt_ Success bit is set 
bot SlaveActive . 
btiss ACK Error ; skip if NACK, device is not present or not responding 
bsf SlaveActive ; ACK received, device present & listening 
call TxmtStopBit 
return 


KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKEKKKK 


e 
gy 


e 
a 


12C_WRITE 


A basic macro for writing a block of data to a slave 


Parameters 
BYTES #of bytes starting from RAM pointer _SourcePointer_ 
_SourcePointer_ Data Start Buffer pointer in RAM (file Registers) 
Sequence : 
S-SIVAW-A-D[O]-A..... A-D[N=i ]}-A-P 


If an error occurs then the routine simply returns and user should check for 
flags in Bus Status Reg (for eg. Txmt_ Success flag) 


NOTE : The address of the slave must be loaded into SlaveAddress Registers, and 10 or 8 bit 
mode addressing must be set 


a REEREEK RRA AE RR RK EE LERAERE ERE BERLE EA EERA BERRA RRR AREAKRERER EERE EK EREERAAAR RAR ERR ESS CARE EAI K AN RK SERA 


I2C_WR MACRO _BYTES_, _SourcePointer_ 


movilw BYTES _ 

movwf tempCount 
moviw SourcePointer _ 
movwf ESE 


call 12C DLOck writs 
call TxmeStopBit ; Issue a stop bit for slave to end transmission 
ENDM 


~2CUDLGCk writes 


call TxmtStartBit ; send START bit 
bef Slave _RW ; set for write operation 
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call Txmt_Slave Addr ; if successful, then Txmt Success bit is set 


_block_wrl_loop: 


btfss Txmt_Success 

return 

move indf,w 

movwft DataByte ; start: from the first: ‘byte starting et _DatePointer 
incf isr 

call SendData ; send next byte, bus is our’s ! 

decfsz tempCount 

goto _ block_wrl_ loop ; loop until desired bytes of data transmitted to slave 
Fecurh 


PRKKKKKKKKKK KKK KK KK KK KK KKK KK KK KK RK KKK RK KK KR KR KK RR KK KR KKK KK KK KK KK KKK RK KKK KKK AK KKK KKK KKK KKK KKK KKKKKKKKKKKKKK 


PRKKKKKKKKKK KKK KKK KK KK KKK KKK KK KKK KKK KK KK KK KK KR KKK KKK KK RK KK KK KKK KK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK 


; T2C WRITE SUB 


; Writes a message just like I2C WRITE, except that the data is preceeded by a sub-address 
; Coa. slave device. 


; Eg. : A serial EEPROM would need an address of memory location for Random Writes 

: Parameters 

: BYTES _ #of bytes starting from RAM pointer _SourcePointer (constant) 
; _SourcePointer _ Data Start Buffer pointer in RAM (file Registers) 

; _Sub Address _ Sub-address: of Slave (constant) 

: Sequence 

7 SS) vVAW=A-SubA-A=D{0]=Ax.i.«. A-D[N-1]-A-P 


. If an error occurs then the routine simply returns and user should check for 
: flags in Bus Status Reg (for eg. _Txmt Success flag 


: Returns : WREG = 1 on success, else WREG = 0 


: NOTE : The address of the slave must be loaded into SlaveAddress Registers, and 10 or 8 bit 
: mode addressing must be set 


; COMMENTS 

; I2C_ WR may prove to be more efficient than this macro in most situations 

; Advantages will be found for Random Address Block Writes for Slaves with 

; - Auto Increment Sub-Addresses (like Microchip’s 24CXX series Serial EEPROMS) 


PRKKRKKRKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KK KK KR KKK KK KKK KKK KKK KK KK KK KK RK KKK KKK KK RK KK KK KKK KK KKK KKK KK 
I2C_WR_SUB MACRO _BYTES , _SourcePointer_, _Sub Address __ 


moviw ( BYTES... “#» 2) 
movwf tempCount 
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moviw (_SourcePointer__ 
movwf fsr 


move indf,w 

movwf StoreTemp_ 1 
moviw Sub Address _ 
movwf indf 


call i2¢ block. write 
movt StoreTemp_ 1,w 
movwf ( SourcePointer -- 
call TxmtStopBit 
ENDM 


& 1) 
; temporarily store contents of (_SourcePointer_ -1) 
; store temporarily the sub-address at (_SourcePointer_ -1) 
; write BYTES +1 block of data 
1) ; restore contents of ( SourcePointer’.. = 4) 


; Issue a stop bit for slave to end transmission 


CK KKK KKK KKK KKK KEK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKKKKKKAKKKEK 


la 


Parameters : 
_ BYTES _ 
_SourcePointer _ 
_Sub_ Address _ 
Sequence, : 


T2C_WR_SUB_SWINC 


#O£f bytes starting from RAM pointer SourcePointer_ (constant) 
Data Start Buffer pointer in RAM (file Registers) 
Sub~-address of Slave (constant) 


S-S1vAW-A- (SubA+0) -A-D[0]-A-P 
S-Sl1vAW-A- (SubA+1) -A-D[1]-A-P 


and so 


on until #of Bytes 


If an error occurs then the routine simply returns and user should check for 


flags in Bus Status Reg 


Returns : WREG = 


COMMENTS : Very In-efficient, 


(for eg. _Txmt Success flag 
1 on success, else WREG = 0 


Bus is given up after every Byte Write 


Some I2C devices addresed with a sub-address do not increment automatically 
after an access of each byte. Thus a block of data sent must have a sub-address 


followed by a data byte. 


PRR KKK RRR KKK KKK KKK KKKK KKK KKK KK KKK KK KK KKK KKK KKK KKK AK KK KKK KK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KK KKK KKK KK 


I2C_WR_SUB_SWINC MACRO 


variable i 


_BYTES , _SourcePointer_, _Sub Address_ 


; TEMP ???? : Assembler Does Not Support This 
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movéf 
movwt 
mov 
movwft 
call 


-while (i < _BYTES ) 
( Source Pointer + i),w 


SrCePrr 
( Sub Address + i),w 
SubAddr 
i2c_ byte wr_sub ; write a byte of data at sub address 
et 
.endw 
ENDM 


é Write 1 Byte Of Data (in SrcPtr) to slave at sub-address (SubAddr) 


2c. DY Ce. wr subs 


call 
lavena 
call 
btfss 
goto 
move 
movwft 
call 
btfss 
goto 
movf 
movwft 
call 
btfss 
goto 
goto 


° 
f 


TxmtStartBit * send START bit 

Slave_RW ; set for write operation 

Txmt_Slave Addr 7 &E ‘Successful, When’ — “emt: Success bre. 1S: ser 
Txmt_Success 

block _wrl fail fend 

SubAddr,w 

DataByte ; start from the first byte starting at DataPointer_ 
SendData 7; send next byte 

Txmt_Success 

block _wrl fail 7 end 

SrcPtr,w 

DataByte ; Start from the first byte starting at _DataPointer _ 
SendData ; send next byte 

Txmt_Success 

block wrl fail ; failed, return 0 in WREG 

block wrl_ pass + successful, return 1 in WREG 


7; return back to called routine from either block _wrl_ pass or block wrl fail 


. 
, 


JDLOCK wei -Farl: 


call 


retlw 


_block_wrl_pass: 


call 


retlw 


TxmtStopBit ; Issue a stop bit for slave to end transmission 
FALSE 
Txmt StopBit ; Issue a stop bit for slave to end transmission 
TRUE 


PRAKKKKKKKKKKKK KKK KK KKK KKK AK KK KKK KK KK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKK KKK KKK KKK KKK KKK KKK KR KKK KKKK KK 


12C_WR_MEM BYTE 





J9]SPI SN 4] JO UOI}E}USWIA|dUU] BeMYOS 


99-€ 


ve eBbed - yrgsoosa 


‘ouy ABojouyoe | diydoJIW E661 © 


Some I2C devices like a EEPROM need to wait fo some time after every byte write 
(when entered into internal programming mode). This MACRO is same as I2C WR_SUB SWINC, 
but in addition adds a delay after each byte. 
Some EERPOM memories (like Microchip’s 24Cxx Series have on-chip data buffer), and hence 
this routine is not efficient in these cases. In such cases use I2C_WR or I2C _WR_SUB 
for a block of data and then insert a delay until the whole buffer is written. 


Parameters 
_BYTES _ #of bytes starting from RAM pointer SourcePointer_ (constant) 
_SourcePointer_ Data Start Buffer pointer in RAM (file Registers) 
_Sub_ Address _ Sub-address of Slave (constant) 
Sequence 


S-SlvAW-A- (SubA+0) -A-D [0]-A-P 
Delay 1 mSec 

S-SlvAW-A- (SubA+1) -A-D[1]-A-P 
Delay 1 mSec 


and so on until #of Bytes 


; The user can chnage this value to desired delay 


PRR KKRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK 


I2C_WR_BYTE MEM MACRO _BYTES , _SourcePointer_, _Sub Address _ 


, 


° 
, 


variable i 


.while (i < _BYTES ) 


movet ( Source Pointer_ + i),w 
movwf SrcePtr 
movt ( Sub Address _ + i),w 

movwf SubAddr 

call _i2c_byte wr_sub 

call Delay50uSec 

i++ 
.endw 
ENDM 


; TEMP ???7? : Assembler Does Not Support This 


; write a byte of data at sub address 


KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKKK KK KKK KKK KK KKKKKKKKKK KK KKK KK KKKKKKK KKK KKK KKK KKKKKKKKKKKKKKKKE 


12C_WR MEM BUF 


This Macro/Function writes #of BYTES to an I2C memory device. However 

some devices, esp. EEPROMs must wait while the device enters into programming 
mode. But some devices have an onchip temp data hold buffer and is used to 
store data before the device actually enters into programming mode. 
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; For example, the 24C04 series of Serial EEPROMs from Microchip 


: have an 8 byte data buffer. So 


one can send 8 bytes of data at a time 


: and then the device enters programming mode. The master can either wait 
; until a fixed time and then retry to program or can continiously poll 
; for ACK bit and then transmit the next Block of data for programming 


; Parameters 

; BYTES. _ 

; SourcePointer._ 
; SubAddress _ 


# of bytes to write to memory 

Pointer to the block of data 

Sub-address of the slave 

The on chip buffer size of the i2c slave 


; Device  BUF_SIZE 


Sequence of operations 


I2C_SUB_ WR operations are performed in loop and each time 


data buffer of BUF_SIZE is output to the device. Then 
the device is checked for busy and when not busy another 
block of data is written 


pRKKKKKKK KKK KK KK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKK KKK KKK KKK KK KKK KKK KKK KKK KKK 


I2C_ WR BUF MEM MACRO 


variable i, j 


BYTES ,~ -SourcePointer , .SubAddress.;, . Device BUF SIZE . 


xe: A. BYTES) 
exitm 
elif ( _BYTES <= Device BUF SIZE ) 
I2C_WR_SUB _BYTES., _SourcePointer , _SubAddress 
exitm 
else 
i= 0 
5 = (BYTES. / _Device BUF_SIZE_) 


wwhile (i < 4) 


I2C_WR_SUB Device BUF Size , “(sSourcéPointer. + i* Device BUF SIZE), °(-SukAddress . 
i*. Device BUF SIZE: ) 
Gal IsSlaveActive 
btfss SlaveActive 
goto Se 
ib 





+ 
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.endw 
j = (BYTES - i* Device BUF SIZE ) 
if (3) 
I2C_ WR_SUB 3, ( SourcePointer_ + i* Device _BUF_SIZE_), (_SubAddress_ + i* Device _BUF_SIZE_) 
endif 
endif 
ENDM 


pK KKK KK KK KKK KR KKK KKK KKK KKK KK KK KKK KK KKK RK KKK KKK KK KK KKK KKK RK RK KR KKK KK KK KKK KR KKK KKK KK HK KKK RK KKK KKK KKK KK KK 
; I2C READ 


; The basic MACRO/procedure to read a block message from a slave device 


; Parameters 

; JBYTES:. : ‘Constant. : #of bytes to receive 

; _DestPointer_ : destination pointer of RAM (File Registers) 
; Sequence 

; S“-SIVAR-A-DLO] SAK ea aos -A-D [N-1] -N-P 

: If last byte, then Master will NOT Acknowledge (send NACK) 


? NOTE : The address of the slave must be loaded into SlaveAddress Registers, and 10 or 8 bit 
mode addressing must be set 


KKK KKK KK RK KKK KK IKK KKK KKH K KKK HK KR KKK RK RK KEKE KEK KKK KKK ER ERE RK KEK KK KKK KKK KKK KEK KKK KK KEK ERK KK RKKKREKKKKK 


I2C_READ MACRO _BYTES , _DestPointer_ 


JBISEIY SN Dz] JO UOTE} USAC aeEMYOS 


movilw CBYTES). = 1) 


movwf tempCount ; -1 because, the last byte is used out of loop 
moviw DestPointer_ 
movwf fsr ; FIFO destination address pointer 


call i2c_block_read 
ENDM 


_i2c_block_read: 
call TxmtStartBit send START bit 
bsf Slave _ RW ; set for read operation 
bef Last Byte Rev y BOL: a Last... SyCe LO -Eeyv 


“ae 


69-€ 
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rors iE Txmt_Slave_ Addr 

btfsc Txmt_ Success 

goto block_rdl_loop 

call TxmtStopBit 

retlw FALSE 
_block_rdl_loop: 

call GetData 


movft DataByte,w 
movwt indf 
Ince fsr 


decfsz tempCount 

goto block_rdl_loop 
bsf Last_ Byte Rcv 
Cala GetData 

movt DataByte,w 
movwf indf 

call TxmtStopBit 
retlw TRUE 


if successful, then _Txmt Success bit is set 


end 
Issue a stop bit for slave to end transmission 
Error : may be device not responding 


start receiving data, starting at Destination Pointer 


loop until desired bytes of data transmitted to slave 
last byte to rcv, so send NACK 


Issue a stop bit for slave to end transmission 


PRKKRKKRKK KKK KK KK KKK KAR K KKK KK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KK KK KK KK KKK KK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KK KKK KKK KKK 


T2C_READ SUB 
This MACRO/Subroutine reads a message from a slave device preceeded by a write of the sub-address 
Between the sub-addrers write & the following reads, a STOP condition is not issued and 
a “REPEATED START” condition is used so that an other master will not take over the bus, 
and also that no other master will overwrite the sub-address of the same salve. 


This function is very commonly used in accessing Random/Sequential reads from a 


; memory device (e.g : 24Cxx serial of Serial EEPROMs from Microchip). 
7 Parameters 
; _BYTES | # of bytes to read 
; _DestPointer_ The destination pointer of data to be received. 
: _BubAddress _ The sub-address of the slave 
; Sequence 
S-SlvAW-A-SubAddr-A-S-SivAR-A-D[O]-A-..... -A-D[N-1]-N-P 


, 


. 
, 


PRKKKKKKKKK KKK KK KKK KKK KKK KK RK KKK KK KK KKK KKK KKK KK KK KK RK KR KR KK KK KR KK KK RK KK RK KKK KR KK KKK KKK KK KK KKK KK KKK KKK KK 


I2C_READ SUB MACRO _BYTES , _DestPointer_, _SubAddress | 
bor Slave_RW ; set for write operation 
call TAMestarceBst ; send START bit 
call Txmt_Slave Addr ; if successful, then Txmt Success bit is set 
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. 
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movlw SubAddress _ 
movwf DataByte ; START address of EEPROM(slave 1) 
eal SendData ; write sub address 


do not send STOP after this, use REPEATED START condition 


I2C READ BYTES , _DestPointer_ 


ENDM 


PRKKRKKKKKKKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KKK KKK KKK KK KKK KK KK KK KK AK KKK KKK KK KK KK KR RK KK KK KKK KK KK KK KK 


° 
tA 

. 
, 


° 
s 


I2C_READ STATUS 
This Macro/Function reads a status word (1 byte) from slave. Several I2C devices can 
send a status byte upon reception of a control byte 


This is basically same as I2C READ MACRO for reading a single byte 


For example, in a Serial EEPROM (Microchip’s 24Cxx serial EEPROMs) will send the memory 
data at the current address location 


On success WREG = 1 else = QO 


PRR KKK KKK KR RRR KKK KR KK KKK KKK KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KK KK KK KKK RK KK KK KK KK KK KKK KK KK KK KK 


I2C READ STATUS MACRO _DestPointer_ 
call TxmtStartBit ; send START bit 
bsf Slave RW ; set for read operation 
eau Txmt_Slave Addr ; if successful, then Txmt Success bit is set 
btfsc Txmt_Success 
goto byte rdl_ loop ; read a byte 
call TxmteSeopBit ; Issue a stop bit for slave to end transmission 
retlw FALSE ; Error : may be device not responding 


 sbyte rd Loop: 


bsf Last. Byte Rev ; last byte to rcv, so send NACK 

call GetData 

movt DataByte,w 

movwf DestPointer _ 

call TxmtStopBit ; Issue a stop bit for slave to end transmission 
bETSsS Rev_Success 

retlw FALSE 

retlw TRUE 
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ENDM 


pRRKKKKKKKKKKKKKK KKK KK KKK KK KKK KKK KKK KK KKK KKK KKK KK KK KKK KKK KKK KKK KK KKK KKK KKK KK KK KKK KKK KK KKK KKK KKK KK KKK KA KK KKK 


I2C_ READ BYTE MACRO _DestPointer 
I2C_READ STATUS MACRO _DestPointer_ 
ENDM 


ee eee ee eee eee ee ee ee eee ee ee ee ee ee ee ee eee ee eee ee ee See ee ee ee Se See ee ee ee ee eee ee ee 
H I2C WR SUB WR 


: This Macro write 2 Blocks of Data (variable length) to a slave at a sub-address. This 

: may be useful for devices which need 2 blocks of data in which the first block may be an 

; extended address of a slave device. For example, a large I2C memory device, or a teletext 

; device with an extended addressing scheme, may need multiple bytes of data in the lst block 
: that represents the actual physical address and is followed by a 2nd block that actually 

: represents the data. 


; Parameters 


; = BYTES1 _ lst block #of bytes 

; - SourcePointer | . Stdrt Pointer: or the: let block 

; _ SubAddress _ Sub-Address of slave 

; =, BYTES2.. 2st block #of bytes 

; _ SourcePointer2 © Start Pointer of the 2nd block 

7 Sequence 

? So LVWHASGUubAT AAD ILO Api. .4=DL [Ned] SA=D2 Ol Aaa ois A-D2 [M-1 | =A? 


; Note : This MACRO is basically same as calling I2C_WR_SUB twice, but 
H a STOP bit is not sent (bus is not given up) in between 
: the two I12C WR SUB 


; Check Txmt_ Success flag for any transmission errors 


PRAKKRKKKKRKKKK KKK KKK RK K KKK KKK KKK KK KKK KKK KA KK KKK KK KKK KKK KKK KKK KK KK KKK KK KKK KKK KKK KKK KK KK KK AK KK KK KKK KKK KKK KK KK 


I2C_ WR _SUB WR MACRO _COUNT1 , _SourcePointerl_, _Sub Address _, _COUNT2 _, —_SourcePointer2_ 
movlw  (COUNT1_ + 1) 
movwt tempCount 
moviw { SourcePointer?l ..-—* 1) 


movwt fsr 


movf indf,w 
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movwf StoreTemp 1 ; temporarily store contents of ( SourcePointer_ -1) 

movlw Sub Address _ 

movwf indf ; store temporarily the sub-address at (_SourcePointer_ -1) 
call ize block write ; write _ BYTES +1 block of data 

move StoreTemp l,w 

movwf (.SeurcePointerl ~ 1) 7 xesStore contents of (.SourcePointer = 1) 


Block 1 write over 
Send Block 2 


movlw  COUNT2_ 

movwf tempCount 

moviw SourcePointer2 _ 
movwt fsx 

call block wrl_ loop 


call TxmtStopBit ; Issue a stop bit for slave to end transmission 


ENDM 


OK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KE KKK KK KKKKKKKKEKKAKE 


° 
, 


. 
, 


I2C_WR_SUB_RD 
This macro writes a block of data from SourcePointer of length _COUNT1_ to a slave 


at sub-address and then Reads a block of Data of length _COUNT2_ to destination 
address pointer 


Message Structure 


S-SlvW-A-SubA-A-D1[0]-A-..... -AcDL(N=1) -A-S~SIVR-A-D2 10] Are eee A-D2 [M-1] -N-P 
Parameters 
_COUNT1_ Length Of Source Buffer 
_ SOurcePointer. Source Pointer Address 
_Sub_Address_ The Sub Address Of the slave 
_COUNT2 _ The length of Destination Buffer 
_DestPointer_ The start address of Destination Pointer 


SILER RIE RIK 2 ICR ES LOR HAR RIOR IE IER ARE RRR RRA KAMER EER REL ERE ERA EKER RIERA IRE BD RR RA SAR RRR RA IE RRR IRE 


I2C_WR_SUB_RD MACRO _COUNT1 , _SourcePointer , _Sub Address _, _COUNT2_, _DestPointer_ 
moviw ( COUNT1_ + 1) 
movwf tempCount 
moviw ( SourcePointer: =< 4) 


movwt fsr 


movft indf,w 
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° 
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Sstoretemp. 1 ; temporarily store contents of ( SourcePointer -1) 
Sub Address _ 
indf ; store temporarily the sub-address at (_ SourcePointer_ -1) 
i2c_ block write ; write BYTES +1 block of data 
SLCre erp. Ly w 
_scuzcePointer!l - 1) ; restore contents of (_SourcePointer.~- 1) 
BG 62. Soar “Sit, teed: S block’ -of <date by. wsSing. a: REPEATED 


_COUNT2_, _DestPointer_ 


KKKEKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KR KKK KKKKKKKKKKKEKKKKEK 


12C_WR_COM WR 


This Macro write 2 biocks of data buffers to a slave in one message. This way no need to give up 
the bus after sending the first block. 


For example, this kind of transaction is used in an LCD driver where a 


a block of control & addresss info is needed and then another block of actual data 
to be displayed is needed. 


Message Structure 


NOTE : This 


S-SlvW-A-D1 [0]-A-..... A-D1 [N-1]-A-D2[0]-A-...... -A-D2 [M-1]-A-P 
message is same as calling two I2C_ WR Macros, except that 


the bus is not given up between the sending of 2 blocks (this is 
done by not sending a STOP bit inbetween) 


Parameters 
_COUNTI _ Length Of Source Buffer #1 
~SsOurcePointer! _ Source Pointer Address of lst buffer 
_COUNT2 _ The length of Destination Buffer 
_SourcePointer2_ Source Pointer Address of 2nd Buffer 


PRR KR KKK KR KKK KKK KKK KK KKK KKK KR KKK KKK KR KK KR KKK KKK KK KK KK KK KKK KK KK KK KK RK KKK KKK KKK KEK KKK KKK KK KE KKK KKK KKK KKK KEK KK KK 


T2C WR COM WR 


moviw 
movwf 
moviw 
movwf 
call 


MACRO _COUNT1_, _SourcePointerl , _COUNT2 _, —_SourcePointer2_ 
COUNT1_ 
tempCount 
SourcePointer] _ 
fsr 


i2c_block_write 
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KK KKK KKK KKK KKK KK KKK KEK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKKKK KKK KKKKE KKK KKKKKKKKAKKKKKKK 


PRA KKKKKKKKKKKKKKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKKKK KKK KKK KKK KKK KKK KK KKK KK AK KKK KKK KK KK KKK KKK KKK KK KK 


First block 


moviw 
movwft 
moviw 
movwf 
call 


call 


ENDM 





sent, now send 2nd block of data 


COUNT2 _ 
tempCount 
SourcePointer2 _ 
fsx 

block_wrl_ loop 


TxmtStopBit ; End of Double buffer txmt 


INCLUDE I2C Low Level Routines Here 


include “i2c low.asm” 
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Appendix E - I°C test.Ist 


MPASM BO.24 PAGE 1 


“I2C Master Mode Implemetation” 


“Rev 0.1 : 01 Mar 1993” 
Title “I2C Master Mode Implemetation” 
SubTitle “Rev 0.1 : O1 Mar 1993” 


pPRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKKKKKKK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK 


; Software Implementation Of I2C Master Mode 
; * Master Transmitter & Master Receiver Implemented in software 
‘ * Slave Mode implemented in hardware 


: * Refer to Signetics/Philips I2C-Bus Specification 


; The software is implemented using PIC16C71 & thus can be ported to all Enhanced core PIC16CXX products 
: RB1 is SDA (Any I/O Pin May Be used instead) 
: RBO/INT is SCL (Any I/O Pin May Be used instead) 


pRKKKKKKKKKK KKK KKK KK RK KKK KK KK RK KR RK KK KK KKK KK RRR KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KK KKK KKK KKK KKK KKK KK KK 


Processor 16C71 


Radix DEC 


OOF4 2400 Cikin equ 16000000 ; Input Clock Frequency Of PIC16C71 


include “di \prctools\16Cxx.h” 
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OOAO 
OOAC 
OO0D6 
0046 
0047 
0048 


003D 


0010 
0012 
0014 


0049 


OO4A 
004B 


004C 
004D 


0000 
0001 


include 


0900 


#define 
#define 
#define 
#define 
#define 
#define 


Bas A a Wid 


PRK KKK KKK KKK EKKKKKKK KKK KKK KK KK KK KKK KR RK KK RRR KKK KKK KK KKK KKK KKK KKK KK AK KKK KKK KK KK KKK KKEKKKEKKKKKK KKK KA KK 


. 
7 


RRR KKK KKKKKKKKK KKK KKK KK KKK KR KKK KKK RK KK RK KR KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KK KKK KKK AKKEKK KKK KK KKK K 


_Slave_1 Addr OxA0 ; ; Serial EEPROM #1 
_Slave 2 Addr OxAC ; Serial EEPROM #2 
_Slave_3 Addr OxD6 ; Slave PIC16CXX 
_ENABLE BUS FREE TIME TRUE 

_CLOCK STRETCH CHECK TRUE 


_INCLUDE_HIGH LEVEL I2C TRUE 


I2C Bus 


_C1kOut equ 


; Compute the delay constants for setup & hold times 


_40uS_ Delay set 

_47uS_ Delay set 

_50uS_ Deiay set 
#define OPTION INIT 


#define 
#define 


#define 
#define 


#define 
#define 


. 
t 


SCL 


SDA 


_SCL_TRIS. 


_SDA_TRIS 


Register File 


Header File 


(Clk Tan Ss: Dy 
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(_ ClkOut/250000) 
(_ ClkOut/212766) 
( ClkOut/200000) 
(OxCO | Ox03) ; Prescaler to RTCC for Appox 1 mSec timeout 

porthb, 0 

portb, 1 

trisb,0 

trisb,1 

0 

a 

Variables 


CBLOCK Ox0C 
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000C 0001 SlaveAddr ; Slave Addr must be loader into this reg 
OOOD OOO01 SlaveAddrHi ; for 10 bit addressing mode 
OOOE 0001 DataByte ; load this reg with the data to be transmitted 
OOOF 0001 BitCount ; The bit number (0:7) transmitted or received 
0010 0001 Bus Status ; Status Reg of I2C Bus for both TXMT & RCVE 
0011 90001 Bus Control ; control Register of I2C Bus 
0012 0001 DelayCount 
0013 0001 DataByteCopy ; copy of DataByte for Left Shifts (destructive) 
0014 0000 
0014 0001 SubAddr ; sub-address of slave (used in I2C HIGH.ASM) 
0015 0001 SrePtr ; source pointer for data to be transmitted 
0016 0000 
0016 0001 tempCount ; a temp variable for scratch RAM 
0017 0001 StoreTemp 1 ; a temp variable for scratch RAM, do not disturb contents 
0018 0000 
0018 0001 End_I2C_ Ram ; unused, only for ref of end of RAM allocation 
ENDC 
pRAKKK KKK KKK RK KK KR KK KKK KK KK KK KK KR RK KKK KKK KKK KKK KR KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK 
: i2C. Bus’ Status. Reg -Bit. Definitions 
PRK KKK KK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKK KKK KK KK KKK KKK KKK KKK KKK 
004E #define Bus Busy Bus Status, 0 
O04F #define Abort Bus Status, 1 
0050 #define |Txmt_Progress Bus Status, 2 
0051 #define |Rcv_ Progress Bus_Status, 3 
0052 #define |Txmt_ Success Bus Status, 4 
0053 #define |_Rcv_Success Bus Status,5 
0054 #define Fatal Error Bus Status, 6 
0055 #define | ACK Error Bus: Status; 7 


PRR KKK KKK KKK KK KKK KKK KKK KK KK KKK KKK KKK RK KKK KKK KK KK KKK KKK RK KKK KKKKKKKKK KKK KKK KKK KKK KKK KKK 
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0056 
0057 
0058 
0059 
OO5A 


: I2C Bus Control Register 


pRAKKKKKKKKKKKKKKKKKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK AK KK KKK AK KKK KKK KKK AK K AK KK KKK KKK KKK KKK KKK KKK KKK 


#define —_10BitAddr Bus Control, 0 
#define _Slave RW Bus Control, 1 
#define Last Byte Rcv Bus. Conk rol,7 
#define _SlaveActive Bus. Control, 6 
#define TIME OUT_ Bus Control,7 


pRKKEKKKEKKKKKKRKKKKKAKK KK RK KK KKK KK AK KK KKK RK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKAKKK KKK KK KKK AK KK KK 


; General Purpose Macros 


PRKKKKKKKKKKKKKKKKK KKK KA KKK AK KKK KKK KK KK KK KK RK KKK KKK KK KK KK KKK KK KK KK KK KK KK KK KK KKK KK KK KKK KK KK KK KK 


RELEASE BUS MACRO 
bSst .7p0 ; select page 1 
bsf SDA ; tristate SDA 
bst. SCL | 7. “eristate: “Sch 


bcf Bus Busy ; Bus Not Busy, TEMP ????, set/clear on Start & Stop 


ENDM 
p RRR KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KK KKK KK KK KKK KKK KK KKK KK 
A MACRO To Load 8 OR 10 Bit Address To The Address Registers 
: SLAVE ADDRESS is a constant and is loaded into the SlaveAddress Register(s) 
; depending on 8 or 10 bit addressing modes 
pRKKKK KKK KKK KK RRR RK KK RK KKK KKK KKK KK KKK KKK KK KKK KK KK KK KKK KKK KK KK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KK KK 
LOAD _ADDR_10 MACRO SLAVE_ADDRESS 
bsf 10BitAddr ; Slave has 10 bit address 
moviw (SLAVE ADDRESS & Oxff) 
movwf SlaveAddr ; load low byte of address 
moviw (((SLAVE_ADDRESS >> 7) & 0x06) | OxFQ) ; 10 bit addr is 11110Xx0 


J9)SPIN| SNg Dz] JO UONe}USLUIA;|CLU] SAeMYOS 


‘ou; ABojouyoe | diyodoudIW E66} © 


6L-€ 


Ly o6ed - vrssoosa 


movwf 
ENDM 
pel. 
moviw 
movwft 
0018 Q001 
0019 OO001 
OO1A OO001 
001B OO001 
ENDC 
0020 0001 
0000 2956 


SlaveAddr+1 


LOAD ADDR 8 


10BitAddr 


(SLAVE ADDRESS & 


SlaveAddr 


ENDM 


SaveStatus 


SaveWReg 


byteCount 


HoldData 


DataBegin ; 


PRKRKKKKKKKKKK KKK KKK KKK KKK KKK KKK KK KK KK KK KK KKK KK KK KR RK KK KK KOK KK KKK KR KK KR KR KK KK KKK KK KO KK KK RK KKK KK 


° 
7 


Interrupt Service Routine 


For I2C routines, only RTCC interrupt is used 


RTCC Interrupts enabled only if Clock Stretching is Used 


; hi order address 


MACRO SLAVE ADDRESS 


; Set for 8 Bit Address Mode 
Oxf f) 


CBLOCK —_End I2C Ram 
; copy of STATUS Reg 


; copy of WREG 


CBLOCK 0x20 


Data to be read or written is stored here 


ENDC 

ORG 0x00 

goto Start 
ORG Ox04 
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0004 
0005 
0006 
0007 
0008 
0009 
OOOA 


O00B 


000C 
00O0D 
0005 
OOOF 
0010 


0099 
0E03 
0098 
1D0B 
280B 
1791 
110B 


0000 


0E18 
0083 
OE99 
OE19 
0009 


; On RTCC timeout interrupt, disable RTCC Interrupt, clear pending flags, 
; MUST set TIME OUT_ flag saying possibly a FATAL error ocured 
; The user may choose to retry the operation later again 


RK KKK KKK KKK K EKER KEK RK KER KKK KKK KKK KKK ER KKK KKK KEK KKK KKK KKK KKK KK KER KKK KR ERK ERK KKK KKK KEK KEKE KKKKKK KEK KKK KKK KEK 


Interrupt: 
; Save Interrupt Status (WREG & STATUS regs) 


° 
, 
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movwft SaveWReg ; Save WREG 
swapf status,w ; affects no STATUS bits : Only way OUT to save STATUS Reg ????? 
movwf SaveStatus ; Save STATUS Reg if _CLOCK_STRETCH CHECK RTCC Interrupts enabled only if Clock Stretching is Used 
btfss rxrtif | 
goto MayBeOtherInt ; other Interrupts 
bsf TIME OUT_ ; MUST set this Flag, can take other desired actions here 
loleny ree 
endif 
; Check For Other Interrupts Here, This program usesd only RTCC & INT Interrupt 
MayBeOtheriInt: 
NOP 
RestoreIntStatus: ; Restore Interrupt Status 
swapf SaveStatus,w 
movwf status ; restore STATUS Reg 
swapf SaveWReg 
swapf SaveWReg,w 7 xrestore WREG 
retfie 


. 
tA 


pK RK KR RK KK KK IKK KKK KKK KKK KK KKK KK KK KKK KKK KKK KKK RE KR KKK KKK KKK KKK KKK KK KR KKK KKK KKK KKK KK KKK KKK KEKE KKK KKKKEK KKK KKK 


; Include I2C High Level & Low Level Routines if — INCLUDE HIGH LEVEL I2C 
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include “i2c high.asm” 


pK KR KK KK KKK I KK IK IK RK KK KK KK RRR KR KKK KK KK KKK KKK KKK KR KKK KKK KKK KKK KK KKK KK KKK KK KK KK KK KK KK 


- I2C Master : General Purpose Macros & Subroutines 


; High Level Routines, Uses Low level Routines (in I2C_LOW.ASM) 


PRR RK KR KK RK RK KK RK KKK OK KK KKK ROK RK KK KK OK KOK OK KK OR KK KR OK KKK KK KKK KR KK KR KK RK KK KEK KK KKK KK RK KKK KK KK KKK KK 


pO RK KKK RK RK KK KKK KKK IK KK IK AK OR KK OK KKK KK KK RK KK RR KR RK KK RK KK KKK KK KKK 


: 12C_TEST DEVICE 

; MACRO 

; If Slave Device is listening, then SlaveActive bit is set, else is cleared 

; Parameter : NONE 

; Sequence Of Operations 

; S-SlvAW-A-P 

; If A is +ve device is listening, else either busy, not present or error condition 

; This test may also be used to check for eample if a Serial EEPROM is in internal programming mode 


; NOTE : The address of the slave must be loaded into SlaveAddress Registers, 
and 10 or 8 bit mode addressing must be set 


PRR RK KR RR KK KK RK KR KK RK KK RK KR KKK RK KK RK KK RK KK KKK KKK KK KKK KK KK RK KK KK KKK KK KK KKK KKK KKK KK KKK 


I2C_ TEST DEVICE MACRO 


call IsSlaveActive ; TEMP ???? : Assembler Error with this MACRO 


ENDM 
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0011 
0012 
0013 


0014 
0015 
0016 
0017 
0018 


LO9S1 
2057 
206B 


LSLt 
1F90 
day le 
205F 
0008 


7 Test If A Device of SlaveAddr Is Present on Bus 


; The Slave Address Is put on the bus and if ACK it is present, if NACK not 


; present or may be device is not responding. The presense can be checked 


; constantly by a master(for ex. the Operating System on an Access. Bus may 


; constantly issue this command) 


7 Assume the Slave Address (10 or 8 bit) is loaded in SlaveAddr 


; Set _10BitAddr bit in Control Reg to 1 if 10 bit Address slave else 0 


; Returns 1 in _SlaveActive 


IsSlaveActive: 
bc£ Slave RW 
call TxmtStartBit 


ea Lil Txmt_Slave Addr 


GE SlaveActive 
btiss ACK Error 

bsf SlaveActive 
call Txmt StopBit 


return 


Bit if slave is responding else a 0 


; set for write operation 
; send START bit 


; if successful, then Txmt_Success bit is set 


; skip if NACK, device is not present or not responding 


; ACK received, device present & listening 


PRK KR RRR KK KKK RK KK KKK KK KKK KKK KKK KK KK KKK KKK KR KK KKK KKK KK KKK KK KK KK KK KK KK KK KK KK KK KR KKK KK KK KK KK KK KK KK KK KK KK KK KK KKK 


12C_WRITE 


; A basic macro for writing a block of data to a slave 


- Parameters 
, BYTES 


; SourcePointer _ 


#of bytes starting from RAM pointer _SourcePointer _ 


Data Start Buffer pointer in RAM (file Registers) 
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0019 
OO1A 
001B 


001C 
001D 
OO1E 
OO1F 


ENDM 


2057 
1091 
206B 


1E10 
0008 
0800 
OO8E 


; Sequence 


; S-SivAW-A-D [0] =A... A-D [N-1] -A-P 


; If an error occurs then the routine simply returns and user should check 


; for flags in Bus Status Reg (for eg. Txmt Success flag) 


; NOTE : The address of the slave must be loaded into SlaveAddress Registers, 


; and 10 or 8 bit mode addressing must be set 


PRKKKKKKKKKKKKKKKK KKK KKK KKK KKK KK KKK KKK KKK KAKA KKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KAKA KKK KKK KK KKK KKK KK KK KK 


I2C_WR MACRO _BYTES , .SourcePointer _ 
movilw BYTES _ 
movwft tempCount 
movlw ~SOurcerounver: 
movwf {ESE 
call 2220 block.write 
call Tamt StopBit ; Issue a stop bit for slave to end transmission 


_i2c_ block write: 


call TxmtStartBit ; send START bit 
bef Slave_RW ; set for write operation 
call Txmt_ Slave Addr ; if successful, then Txmt Success bit is set 


. 
, 


_ block_wrl_ loop: 
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btiss Txmt Success 

return 

movet indf,w 

movwt DataByte ; start from the first byte starting at DataPointer_ 





y8-€ 


zg ebed - yrssoosa 


“ou; ABojouyos| diyoosoIWy E661 © 


0020 
0021 
0022 
0023 
0024 


OA84 
2095 
0B96 
281C 
0008 


incf 


call 


decfsz 


goto 


fsx 

SendData ; send next byte, bus is our’s ! 

tempCount 

block wrl_loop ; loop until desired bytes of data transmitted to slave 


return 


PR KK KR KK KKK KK KKK KK KK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KK KKK K 


PR KKKK KK KKK RK KKK KKK KKK KKK KKKKKKKK KK KK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK AK KKK KKK KKK KKKKK KKK KKK KKKKKKKKKK KKK KKK KKK 


“e 


I2C_WRITE SUB 


Writes a message just like I2C WRITE, except that the data is preceeded by a sub-address to a slave device. 


Eg. : A serial EEPROM would need an address of memory location for Random Writes 
Parameters 
BYTES #of bytes starting from RAM pointer _SourcePointer_ (constant) 
SourcePointer __ Data Start Buffer pointer in RAM (file Registers) 
Sub Address _ Sub-address of Slave (constant) 
sequence :; 

S-Sl1vAW-A-SubA-A-D[0]-A..... A-D [N-1]-A-P 


If an error occurs then the routine simply returns and user should check 


for flags in Bus Status Reg (for eg. _Txmt_Success flag 
Returns : WREG = 1 on success, else WREG = 0 


NOTE : The address of the slave must be loaded into SlaveAddress Registers, 


and 10 or 8 bit mode addressing must be set 


COMMENTS 
I2C WR may prove to be more efficient than this macro in most situations 
Advantages will be found for Random Address Block Writes for Slaves with 


Auto Increment Sub-Addresses (like Microchip’s 24CXX series Serial EEPROMS) 
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° 
, 


PRKKKKRKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KK AK KK KKK KK KKK KK KKK KK KK KKK KKK KKK KK KKK 


moviw 


movwt 


movilw 


movwf 


movéf 
movwet 
moviw 


movwt 


call 


movt 
movwft 
call 


ENDM 


12C_WR_SUB 


( BYTES + 1) 


tempCount 


( SourcePointer __ 


fsr 


indf,w 
StoreTemp_ 1 
Sub Address _ 
indf 


I2c block write 


StoreTemp 1,w 


( SourcePointer. 


TxmtStopBit 


MACRO _BYTES , _SourcePointer , _Sub Address _ 
temporarily store contents of (_SourcePointer_ -1l) 
store temporarily the sub-address at (_SourcePointer_ -1l) 


write BYTES +1 block of data 


restore contents of (..SeurcerPointer.. = 1) 


Issue a stop bit for slave to end transmission 


PRR RK IK KKK KKK KK RK KKK KK KKK KKK KK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KK KK KKK KKK KKK 


; Parameters 


7 BYTES 

5 SourcePointer 
; Sub Address 

; Sequence 


I2C_WR_ SUB SWINC 


#of bytes starting from RAM pointer SourcePointer_ (constant) 


Data Start Buffer pointer in RAM (file Registers) 


Sub-address of Slave (constant) 


S-S1vAW-A- (SubA+0) -A-D[0]-A-P 
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movet 
movwft 
movt 
movwt 


call 


° 
7 


PR KR KK KKEKKKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KK RK KKK KKK KKK KK KKK KK KKK KK KK KK KR KK RK KKK KK KK KKK 


S-SlvAW-A- (SubA+1) -A-D{1]-A-P 


and so on until #of Bytes 


If an error occurs then the routine simply returns and user should check 


for flags in Bus Status Reg (for eg. Txmt Success flag 


Returns : WREG = 1 on success, else WREG = 0 


COMMENTS : Very In-efficient, Bus is given up after every Byte Write 


Some I2C devices addresed with a sub-address do not increment 


automatically after an access of each byte. Thus a block of data 


sent must have a sub-address followed by a data byte. 


I2C_WR_SUB_SWINC MACRO _BYTES_, _SourcePointer_, _Sub Address_ 


variable i ; TEMP ???? : Assembler Does Not Support This 


-while (i < _BYTES ) 


( Source Pointer + i),w 
SECPEr 
( Sub Address _ + i),w 
SubAddr 
i2c_ byte wr sub ; write a byte of data at sub address 
i+ 
.endw 
ENDM 
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0025 
0026 
0027 
0028 
0029 
002A 
002B 
002C 
002D 
002E 
002F 
0030 
0031 
0032 
0033 
0034 


0035 
0036 


0037 
0038 


2057 
1091 
206B 
1E10 
2835 
0814 
008E 
2095 
1E10 
2835 
0815 
008E 
2095 
1E10 
2835 
2337 


205F 
3400 


205F 
3401 


; Write 1 Byte Of Data 


i2Zzc_ byte wr_sub: 

call TxmtStartBit 
bet Slave _ RW 

call Txmt_Slave Addr 
btfss Txmt_Success 
goto block _wrl fail 
movt SubAddr,w 
movwt DataByte 

call SendData 

btfss Txmt_Success 
goto block _wrl fail 
move SrePtr,w 

movwf DataByte 

call SendData 

befss:, Txumt. Success 
goto block wrl fail 
goto block wrl pass 
; Yeturn back. to, called 
block wrl_ fail: 

call TxmtStopBit 
retlw FALSE 
block_wrl_pass: 

call TxmtStopBit 


retlw TRUE 


pK KR RR KK RK KK KKK KK KKK KR RR KK KK KK KKK KK KKK KKK KK KKK RR KK KK KKK KKK KKK KKK KK KKK KKK KKK KK KK KKK K KK KK 


(in SrcPtr) to slave at sub-address (SubAddr) 


; send START bit 
; set for write operation 
7. if. Successtul, ‘chen. .Txmc success bit. 28: set 


; end 


; start from the first byte starting at DataPointer_ 


7 send next byte 


; end 


; Start: Erom “che “First byte “startling «el. DalaPoanter: 


7; send next byte 


; failed, return O in WREG 


; successful, return 1 in WREG 


routine from either block wrl_ pass or block _wrl_ fail 


; Issue a stop bit for slave to end transmission 


; Issue a stop bit for slave to end transmission 
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12C_WR MEM BYTE 


Some I2C devices like a EEPROM need to wait fo some time after every byte write (when entered into 
internal programming mode). This MACRO is same as I2C WR_SUB SWINC, but in addition adds a delay 
after each byte. Some EERPOM memories (like Microchip’s 24Cxx Series have on-chip data buffer), 
and hence this routine is not efficient in these cases. In such cases use I2C WR or I2C_WR_SUB for a 
block of data and then insert a delay until the whole buffer is written. 

Parameters 


BYTES #of bytes starting from RAM pointer _SourcePointer_ (constant) 


SourcePointer _ Data Start Buffer pointer in RAM (file Registers) 
Sub Address __ Sub-address of Slave (constant) 
Sequence 


S-Sl1vAW-A- (SubA+0) -A-D[0]-A-P 
Delay 1 mSec ; The user can chnage this value to desired delay 
S-SlvAW-A- (SubA+1) -A-D[1]-A-P 
Delay 1 mSec 


and so on until #of Bytes 


gs EKKRKKKK KEKE RIK KKK KEK KE KKK ERK KER KEE KKK KEKE KKK KEKE KEKE KER EKER KKK KER KEE KERR ERE KK ERK RE KEKE KREK KKK KEK KKEKEKEKKEKKKKKKEKE 


movft 
movwt 
movt 


movwt 


I2C_ WR_BYTE MEM MACRO BYTES , _SourcePointer _, Sub Address_ 
variable i ; TEMP ???? : Assembler Does Not Support This 
i= 0 


while: (1. < BYTES.) 
( Source Pointer + 1),w 
SroPLr 
( Sub Address + i),w 


SubAddr 
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call i2c_ byte wr sub ; write a byte of data at sub address 


call Delay50uSec 


i++ 


.endw 


ENDM 


PRAEKKKKK RK KKK KR RK KK KK RRR KKK KKK KKK KK KKK KK KK KK KKK KKK KR KK RR KK KK KR RRR KK KKK KK KKK KKK KKK KKK KK KK KKK KKK KK KKK KKK KKK KKK K 


; 12C_WR MEM BUF 


: This Macro/Function writes #of BYTES to an I2C memory device. However some devices, esp. EEPROMs must 


: wait while the device enters into programming mode. But some devices have an onchip temp data hold buffer 


; and is used to store data before the device actually enters into programming mode. For example, the 24C04 
; series of Serial EEPROMs from Microchip have an 8 byte data buffer. So one can send 8 bytes of data at a 
; time and then the device enters programming mode. The master can either wait until a fixed time and then 


; retry to program or can continiously poll for ACK bit and then transmit the next Block of data for programming 


; Parameters 


: BYTES _ # of bytes to write to memory 
SourcePoincter _ Pointer to the block of data 

; SubAddress _ Sub-address of the slave 

; Device BUF SIZE. The on chip buffer size: of the 12¢ slave 


; Sequence of operations 


I2C_SUB_WR operations are performed in loop and each time 


“Ne 


“ee 


data buffer of BUF SIZE is output to the device. Then 


the device is checked for busy and when not busy another 


“Ne 


block of data is written 


me 


“ee 


° 
f 


pK KR KK KK KR KK KK kK KK RK KK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK KKK KK KK 
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I2C_ WR BUF_MEM MACRO BYTES , 


variable i, j 


if 2 BYTES.) 
exitm 
elit .( “BYTES. <=. Device BUP SIZE) 


I2C_WR_SUB _BYTES , 


a. “==" 10) 


-sourcePointer..; 


_SourcePointer_, _SubAddress , 


_SubAddress__ 


exitm 


else 


j = (BYTES / Device BUF SIZE ) 


-while (i < 3) 


I2C_WR_SUB 


( SubAddress + i* Device BUF_ 


_Device BUF SIZE , 
SIZE_) 


{ SourcePointer_ + 


call IsSlaveActive 
btfss _SlaveActive 
goto Soe 
it+t+ 
.endw 
4 = (BYTES  - i* Device BUF _SIZE_) 
if (J) 


I2C_WR SUB j, 


( SourcePointer_ + 


i* Device BUF SIZE), 


_Device BUF SIZE_ 


i* Device BUF SIZE ), 


( SubAddress _ 


+ 


i* Device BUF SIZE ) 
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endif 


endif 


ENDM 


PRK KKK KKK KKK KKK KKK KKK KK KK KK KKK KK I AK I FAK KK A KK KO AK KO RK KOK KKK KK OK KKK 


; 12C_READ 


; The basic MACRO/procedure to read a block message from a slave device 


: Parameters 

; BYTES — ; constant : #of bytes to receive 

; _ DestPointer_ : destination pointer of RAM (File Registers) 

' Sequence 

7 S-SlvAR-A-D[0]-A-..... -A-D[N-1]-N-P 

: If last byte, then Master will NOT Acknowledge (send NACK) 

* NOTE : The address of the slave must be loaded into SlaveAddress Registers, and 
; 10 or 8 bit mode addressing must be set 


PRAKKKKKKKKKKKKKKKKK KKK KK KK KKK KKK KKK KKK RK KKK KKK KKK KK KK KR KK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KK KK KKK KKK KKK KK KK KK KK 


T2C_ READ MACRO BYTES , _DestPointer_ 


movilw (BYTES -1) 
movwf tempCount ; -1 because, the last byte is used out of loop 
moviw DestPointer_ 


movwf for ; FIFO destination address pointer 


call zc DLOck read 


ENDM 
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0039 
003A 
003B 
003C 
003D 
003E 
003F 
0040 


0041 
0042 
0043 


0044 
0045 
0046 
0047 
0048 
0049 
004A 
004B 
004C 


2007 
1491 
yi ip dee 
206B 
1A10 
2841 
205F 
3400 


20CC 
O80E 
0080 


OA84 
OB96 
2841 
fed 
20CC 
O80E 
0080 
205F 
3401 


call 
bsf 
ber 
call 
btfsc 
goto 
call 


retlw 


call 
movt 


movwt 


Incr 
decfsz 
goto 
bsf 
call 
movt 
movwft 
call 


retlw 


_i2c_block_read: 
TxmtStartBit 
Slave RW 
Last _ Byte Rcv 
Txmt_Slave_Addr 
Txmt_Success 
block_rdl_ loop 
TxmtStopBit 


FALSE 


_block_rdl_loop: 
GetData 
DataByte,w 
ingt 


fsr 

tempCount 
block rdl.tloop 
Last Byte Rcv 
GetData 
DataByte,w 
indf 

Txmt StopBit 


TRUE 


PRR KKK KKK KK KK RK KKK KK KK KKK KK KK KKK KKK KKK KKK KKK KK KK KKK KK KKK KK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KK KKK KKK KK 


This MACRO/Subroutine reads a message from a slave device preceeded by a write of the sub-address Between the 
sub-addrers write & the following reads, 
used so that an other master will not take over the bus, 


address of the same slave. 


send START bit 
set for read operation 
not a last byte to rcv 


if successful, then _Txmt Success bit is set 


end 
Issue a stop bit for slave to end transmission 


Error : may be device not responding 


start receiving data, starting at Destination Pointer 


loop until desired bytes of data transmitted to slave 


last byte to rcv, so send NACK 


Issue a stop bit for slave to end transmission 


I2C_READ SUB 


a STOP condition is not issued and a “REPEATED START” condition is 
and also that no other master will overwrite the sub- 


This function is very commonly used in accessing Random/Sequential reads from a 
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; memory device (e.g : 24Cxx serial of Serial EEPROMs from Microchip). 


: Parameters 


; BYTES _ # of bytes to read 
; DestPointer _ The destination pointer of data to be received. 
; BubAddress _ The sub-address of the slave 


; Sequence 


; S-SlvAW-A-SubAddr-A-S-S1lvAR-A-D[0]-A-..... =AjD(N=L) =N=P 


pRKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KK KKK KKK KK KKK KKK KK KKK KKK KR KK RK KKK KKK KKK KKK KKK KK KK KKK KK KKK KKK KK KK 


I2C_ READ SUB MACRO _BYTES , DestPointer_, _SubAddress_ 
DCL Slave_RW ; set for write operation 
call TxmtStartBit 7 send START bit 
call Txmt_Slave_ Addr ; if successful, then _Txmt_Success bit is set 


movlw SubAddress _ 
movwf DataByte ; START address of EEPROM(slave 1) 


call SendData ; write sub address 


; do not send STOP after this, use REPEATED START condition 


I2C READ BYTES , _DestPointer_ 


ENDM 


PRR KKK KK KKK KKK RK RK KK KK KKK KK KKK KR KK KKK KK KK KK KKK KK KR KK KR KKK KK KR KK KK KKK KKK KK KKK KKK KKK KKK KKKKKKKKKK KKK KKK KKK KK KK 
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€aid 
bet 
call 
btfsc 
goto 
call 


retlw 


bsf 
call 
movt 
movwt 
call 
btfss 
retlw 
retlw 


ENDM 


; This 


; upon 


I2C_READ STATUS 


Macro/Function reads a status word (1 byte) from slave. 


reception of a control byte. 


; For example, 


in a Serial EEPROM 


7 current address location 


e On success WREG = 1 else = 0 


° 
a, 


PRKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KK KKK KKK KK KKK KKK KKK KK KK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK 


I2C_READ STATUS MACRO _DestPointer_ 
TxmtStartBit 7 send START bit 
Slave_RW 7 set. for read operation 
Txmt_ Slave Addr ; af successful,. then _Txamt Success bit. 1s set 


Txmt_ Success 


byte _rdl_ loop ; 


TxmtStopBit 
FALSE 


~pyte Tdi Joep: 


° 
f 


Last Byte Rcv ; 


GetData 
DataByte,w 
DEStPoinrer. » 
Txmt StopBit 
Rcv_Success 
FALSE 


TRUE 


read a byte 
Issue a stop bit for slave to end transmission 


Error : may be device not responding 


last byte to rcv, so send NACK 


Issue a stop bit for slave to end transmission 


This is basically same as I2C READ MACRO for reading a single byte. 


(Microchip’s 24Cxx serial EEPROMs) will send the memory data at the 


Several I2C devices can send a status byte 
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PRKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KK KK KKK KKK KKK KKK KK KKK KK KKK KEK KKK KKK KKK KKK KKK KK KK KK KK 


I2C_READ BYTE MACRO “DestEPointer.. 
I2C_ READ STATUS MACRO _DestPointer _ 
ENDM 


pPRKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KK KKK KKK KKK KKKKKKKKKK KKK KKKKKKKKKKKKK KKK KK KK KK 


; 12C_WR SUB WR 


: This Macro write 2 Blocks of Data (variable length) to a slave at a sub-address. This may be useful for 


: devices which need 2 blocks of data in which the first block may be an extended address of a slave device. 


: For example, a large I2C memory device, or a teletext device with an extended addressing scheme, may need 
; multiple bytes of data in the 1st block that represents the actual physical address and is followed by a 


; 2nd block that actually represents the data. 


; Parameters 


: BYTES1 lst block #of bytes 

; SourcePointerl Start Pointer of the ist block 

; SubAddress _ Sub-Address of slave 

j BYTES2 _ 2st block #of bytes 

; SourcePointer2 Start Pointer of the 2nd block 

: Sequence 

P S-SivW-A=SubA-A=Di1 [0]—A=se.«-D1L[N-1] =A-D2 [0] —A=sec3 A-D2 [(M-1]-A-P 
; Note : This MACRO is basically same as calling I2C_WR_SUB twice, but 


: a STOP bit is not sent (bus is not given up) in between 


i the two I2C WR SUB 
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moviw 
movwf 
movilw 
movwft 
movft 
movwt 
movlw 


movwft 


call 


movf 


movwt 


movilw 
movwf 

moviw 
movwft 


call 


call 


ENDM 


; Check Txmt_Success flag for any transmission errors 


P RRR KK KK KR KKK KKK RK KR KK KKK KKK KKK KKK KK KK KKK KK KK KKK KR KKK KK KKK KK RAK KKK KK KK RAK KK KK KK IK KKK KK RK KK KKK KKK KKK RK KKK KKK 


12C_WR_SUB WR MACRO 


(_COUNT1_ + 1) 
tempCount 
(_SourcePointerl - 1) 
Est 
indf,w 
StoreTemp 1 ; 
_Sub_ Address _ 
_indf ; 
i2c_ block write ; 


StoreTemp_1,w 


( SourcePointerl - 1) + 


COUNT2 _ 

tempCount 
SsourcePolnter. — 
ESr 


block_wrl_ loop 


TxmtStopBit ; 


PRKKKKKKKKKKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KR KKK RK KK KKK KK KKK KKK KK KKK KK KKK KKK KKK RK KKK KKK KK KR KKK KKK KK RR KK 


_COUNT1_, _SourcePointerl_, _Sub Address_, _COUNT2_, SourcePointer2_ 


temporarily store contents of (_SourcePointer_ -1) 


store temporarily the sub-address at (_SourcePointer_ 1) 


write BYTES +1 block of data 


restore contents of (_ SourcePointer _ - 1) 
Block 1 write over 


Send Block 2 


Issue a stop bit for slave to end transmission 
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moviw 
movwft 
movilw 
movwf 
move 

movwft 
movilw 
movwf 


call 


movft 


movwt 


“eo 


“Ne 


12C_WR_SUB_RD 


This macro writes a block of data from SourcePointer of length _COUNT1 to a 


f Slave at sub-address and then Reads a block of Data of length _COUNT2_ to 


: destination address pointer 


: Message Structure 


; pS LVW-A-SUbA=A-D1 (0) As oes AD) (N=) RASS=SiVR-A=D2 [0] Ams ey. A-D2 [M-1]-N-P 


s Parameters 


; _COUNT 1 | Length Of Source Buffer 

; SSOUrcePOImter.. Source Pointer Address 

; _Sub Address __ The Sub Address Of the slave 

; ~COUNT2.~ The length of Destination Buffer 

;  DestPoinver. The start address of Destination Pointer 


e 
F 


PRKKKKKKKKKKKKKKKKKKKKKKKKKK KK KKK KKK KKK KKK KKK KKKKK KK KKK KKK KKK KKKKKKKKKKKK KKK KKK KKK IK KKK KKK KKK KKK KKK KKK KKK KK 


T2C_WR_SUB RD ~~ MACRO 


(COUNTS... ae 21) 
tempCount 
(SourcePointer  - 1) 
f£sr 

indf,w 

StoreTemp 1 

Sub Address _ 

indf 


i2c_ block write 


StoreTemp 1,w 


(SourcePointerl - 1) 


COUNTL , .SourcePointer , Sub Address , .COUNT2 , -DestPointer - 
temporarily store contents .of-»( SourcerPointer. —1) 
store temporarily ‘the. -sub-address .at {.sourcePointer . —L) 


write BYTES +1 block of data 


PSEStore: -COneeNnes. <6f. “|. SourcePointer = 2) 
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T2C_READ 


ENDM 





; Without sending a STOP bit, read a block of data by using a REPEATED 


: Start Condition 


_COUNT2_, _DestPointer_ 


PRAKKKKKKKKK KKK KK KK KK KKK KK KKK KK KK KKK KK KK KK KK KK KK KKK KK KKK KK KK KK KK KK KK KR KK KK RR KK I KK KK KK KK KK 


12C_WR_COM WR 


This Macro write 2 blocks of data buffers to a slave in one message. This 
way no need to give up the bus after sending the first block. 

For example, this kind of transaction is used in an LCD driver where a 
block of control & addresss info is needed and then another block of actual 


data to be displayed is needed. 


Message Structure 
S-SLVWHA=Dl [Oy =Amees es ADL Ne) RAR Oe PO) SAS eo ots oon -A-D2 [M-1]-A-P 
NOTE : This message is same as calling two I2C WR Macros, except that 
the bus is not given up between the sending of 2 blocks (this is 


done by not sending a STOP bit inbetween) 


Parameters 
_COUNT1 _ Length Of Source Buffer #1 
_SourcePointerl Source Pointer Address of Ist buffer 
_COUNT2 _ The length of Destination Buffer 


_SourcePointer2 Source Pointer Address of 2nd Buffer 


PRKKKKKKKKKKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK 
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moviw 
movwt 
moviw 
movwt 


call 


moviw 
movwft 
movlw 
movwf 


call 


call 


ENDM 


include 


I2C_WR_COM WR MACRO _COUNT1 , _SourcePointerl , _COUNT2_, _SourcePointer2_ 


COUNT _ 
tempCount 
pourcePointer! 
fsx 

i2c_ block write 
; First block sent, now send 2nd block of data 
COUNT2 _ 
tempCount 
SourcePointer2 _ 
ter 

block _wrl_ loop 


TxmtStopBit ; End of Double buffer txmt 


pRRKKKKKKKKKKKKK KKK KK KKK KKK KKK KKK KK KK KK KKK KK KR KK KK KK KKK KKK KK KK RK KOK KK KOK KR KO RR KK KK KK KK RR KK KR KK KK KK KK KK 


; INCLUDE I2C Low Level Routines Here 


PRRKKKKKKKKKKKKKK KKK KK KKK KKK KKKKKKKKKKKK KKK KK KKK KKK KKK KK KKK KKK KKK KK KK KKK RK KK KKK KKK KKK KKK KKK KKK RK KK KKK KK KK KK 


“220 low,asm” 


PRAEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KK KKK KKK KKK KKK KKK KK RK KKK KK KK KK RK KK KK RK RK KK KK KR KK KK RK KK KKK KK KK KK KK KK KK 


: Low Level I2C Routines 
: Single Master Transmitter & Single Master Receiver Routines 
i These routines can very easily be converted to Multi-Master System 


; when PIC16C6X with on chip I2C Slave Hardware, Start & Stop Bit 
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004D 
004E 
O04F 
0050 


0051 
0051 
0052 
0054 
0055 
0056 


0057 
0058 


; detection is available. 


=e 


; The generic high level routines are given in 1I12C_HIGH.ASM 


. 
av 


fp RRR RIK RK IKK AK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK IKI KKK KKK KK KKK KKK KKK KK KKK KKK RR KK KER IR KR KKK KKK RK KEK KK KKK KKK KKK 


PRK RR KK RK KR KKK IKK KKK RIK KKK IKK IKK KK KKK KK KK KKK KKK IK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KK RK KKK KR KK 


; L2C 


. 
7 


Bus Initialization 


fF RIK I IR KK IKK IK IK IKK IK KK KK I IK KK A IK III I IK IKK KKK KKK IK KK KK KKK IK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KEK KKK 


1283 
0806 
39FC 
0086 


1683 
1486 
1406 
0190 
OL9T 
0008 


bcf 
movt 
andlw 


movwt 


clrf 
clrf 


InitI2CBus Master 


_  xrpod 
_ portb,w 
OxFC ; 
portb ; 
Bus Status ; 
Bus_ Control ; 
return 


° 
, 


do not use BSF & BCF on Port Pins 
set SDA & SCL to zero. From Now on, simply play with tris 
RELEASE BUS 


reset status reg 


clear the Bus Control Reg, reset to 8 bit addressing 


g RAK KK KKH RK IK KHIR RIK IK IKK IKI KR KR KKK KIKI HK IKK KKK KKK KKK KER KERRIER KKK KER RRR KKK IKE ERE REE REE K ERK KKK 


7 Send Start Bit 


pK IKK KK IK KIRK KKK IKK KKK KKK KK IKK KK IK KK KK IK IK HK KKK KKK KKK IKE RK KKK IKK KKK IK KKK KK KK KKK KKK KK KKK EKER KKK KK KKK 


1683 
1486 


bsf 
bsf 


TxmtStartBit: 
rp0 
SDA 


; select page 1 
; set SDA high 
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0059 


OO5A 


005B 


005C 


0O05D 


O05E 


OOSF 
0060 
0061 
0062 
0063 
0064 


0065 


1406 


210D 


1086 


210B 


1410 


0008 


1683 
1006 
1086 
1406 
210D 
1486 


210B 


pst SCL Fe ock: s° high: 


; Setup time for a REPEATED START condition (4.7 uS) 


call Delay40uSec 7 only necesry for setup time 
bcf . SDA | give a falling edge on SDA while clock is high 
call Delay47uSec | only necessary for START HOLD time 
bsf Bus Busy | on a start condition bus is busy 
en 


pRKKKKKKKKKKKKKKKKKKK KKK KKK KK KKK KKK KK KK KK KKKKK KKK KKK KKK KKK KKK KKK KKK KKKKKKEKKKKKKKKKKKKKKEKK KKK KKKK KKK KKK KKK 
; Send Stop Bit 
; 


pRKKKRKKKKKKKKKKKKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KEK KK KKK KKK KKK KK KKK KKK KKK KEK KKK KKK KK KK KK KKK KK 


TxmtStopBit: 
bsf rp0 ; select page 1 
bert SCL 
DCL SDA ; set SDA low 
bsf SCE ; Clock is pulled up 
Gadd Delay40uSec ; Setup Time For STOP Condition 
bsft SDA 7; Qive a rising edge on SDA while CLOCK is high 


if ENABLE BUS FREE TIME 


; delay to make sure a START bit is not sent immediately after a STOP, 
7 ensure BUS Free Time tBUF 


° 
Ty 
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call Delay47uSec 
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0066 1010 
0067 0008 
0068 205F 
0069 1490 
006A 0008 


endif 


bcf Bus Busy ; on a stop condition bus is considered Free 


return 


p RRR KK KKK KK RK KKK RR KK KR KK KK KK KK RK KK RK KK KR KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KK KK 


; Abort Transmission 


: Send STOP Bit & set Abort Flag 


p RRR KKK KKK KKK KKK KKK KK RK KKK KKK KKK KKK KKK KK RK KKK KR KKK KKK KK KKK KKK RK KKK KKKKKEKKK KKK KKK KKK KK KKK KKK KKK KKK KK KK KKK KK 


AbortTransmission: 


call TamcStopBit 
bsf Abort 


return 


pK KK KK KK RK KKK KK KKK KKK KKK KKK KKK KK RK KK KKK KKK KKK KR KK KK KKK KKK KKK KKK KK KK KK KK KKK KKK KK KKK KK KK KK KKK KR KK KK KK K 


; Transmit Address (lst Byte)& Put in Read/Write Operation 


: Transmits Slave Addr On the lst byte and set LSB to R/W operation 


; Siave Address must be loaded into SlaveAddr reg 


Ja]SeW SNg 4,| JO UONe}UsWd|/dLU] BIeMYOS 


; The R/W operation must be set in Bus Status Reg (bit SLAVE RW): 0 for 
; Write & 1 for Read 


- On Success, return TRUE in WREG, else FALSE in WREG 


. If desired, the failure may tested by the bits in Bus Status Reg 


PRK KKK KR KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KKK 


Txmt_Slave_ Addr: 
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006B 
OOQ6C 
006D 


Q06E 


OO6F 


0070 
0071 
0072 
0073 
0074 
0075 


0076 
0077 
0078 
0079 
OO7A 


007B 
OQ7C 


1390 
AC La 
2886 


LCot 
287D 


1091 
207D 
1E10 
3400 
2057 
1491 


O80D 
OO8E 
140E 
2095 
288C 


1E10 
2890 


lerepa ACK Error 
btfiss 10BitAddr 
goto SevenBitAddr 
btfss Slave_ RW 
goto TenBitAddrWR 
TenBitAddrRd: 

bcf Slave RW 
call TenBitAddrWR 
btfss Txmt_Success 
retlw FALSE 

call TxmtStartBit 
bsft Slave _ RW 
movt SlaveAddr+1,W 
movwt DataByte 

bsft DataByte, LSB 
Cal SendData 
goto AddrSendTest 
btiss Txmt_Success 
goto _  AddrSendFail 
TenBitAddrwR: 


reset Acknowledge error bit 


For 10 Bit WR simply send 10 bit addr 


Required to READ a 10 bit slave, so first send 10 Bit for WR & Then 


Repeated Start and then Hi Byte Only for read opreation 


temporarily set for WR operation 


skip if successful 


send A REPEATED START condition 


For 10 bit slave Read 


Read Operation 
send ONLY high byte of 10 bit addr slave 
10 Bit Addr Send For Slave Read Over 


if successfully transmitted, expect an ACK bit 


if not successful, generate STOP & abort transfer 
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007D 
OO7E 
OO7F 


0080 


0081 
0082 


0083 
0084 
0085 


0086 
0087 
0088 
0089 
008A 


008B 


008C 
008D 


080D 
008E 
100E 


2095 


1E10 
2890 


080C 
008E 
288B 


080C 
O08E 
100E 
LSoL 
140E 


2095 


1E10 
2890 


movf SlaveAddr+1,W 
movwf DataByte 

bocf DataByte, LSB 
call SendData 
btfss Txmt_Success 
goto AddrSendFail 
movf SlaveAddr,W 
movwf DataByte 
goto EndTxmtAddr 
SevenBitAddr: 

movet SlaveAddr,W 
movwf DataByte 

bef DataByte, LSB 
btfsc Slave_Rw 

bsf DataByte, LSB 
EndTxmtAddr: 

call SendData 
_AddrSendTest : 
btfss Txmt_Success 
goto AddrSendFail 


4 


WR Operation 


Ready to transmit data If Interrupt Driven (i.e if Clock Stretched 


Enabled) then save RETURN Address Pointer 
send high byte of 10 bit addr slave 
if successfully transmitted, expect an ACK bit 


if not successful, generate STOP & abort transfer 


load addr to DatByte for transmission 


load addr to DatByte for transmission 


if skip then write operation 


Read Operation 


send 8 bits of address, bus is our’s 


if successfully transmitted, expect an ACK bit 


skip if successful 


LOW 
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O08E 0064 
OO8F 3401 
0090 0064 
0091 1F90 
0092 3400 
0093 205F 
0094 3400 
0093. 2896 


cirwdt 


retlw TRUE 


_AddrSendFail: 
CLowae 
btiss ACK Error 


retlw FALSE 


; Address Not Acknowledged, 
call Txmt StopBit 


retlw FALSE 


° 
ca 


PRKKKKKKKKKK KKK KKK KK KKK KK KK KKK KK KK KK KKK KKK KK KK KK KKK KR KKK KK KKK KK KKK KKK KKK KKK KKK KKKKKK KKK KKK KKK KKK KKK KK KKK KK 


; Transmit A Byte Of Data 


; The data to be transmitted must be loaded into DataByte Reg 
; Clock stretching is allowed by slave. If the slave pulls the clock low, 
; then, the stretch is detected and INT Interrupt on Rising edge is enabled 
; and also RTCC timeout interrupt is enabled The clock stretching slows down 
; the transmit rate because all checking is done in 
; software. However, if the system has fast slaves and needs no clock 
; Stretching, then this feature can be disabled during Assembly time by setting 


, _CLOCK STRETCH ENABLED must be set to FALSE. 


PRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KKK KKK KKK KKK KK KK KKK 


SendData: 


; TXmtByte & Send Data are 


; For future compatibility, 


goto TxmtByte 


; Addr Txmt Unsuccessful, so return 0 


so send STOP bit 


; Addr Txmt Unsuccessful, so return 0 


same, Can check errors here before calling TxmtByte 


the user MUST call SendData & NOT TxmtByte 
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0096 
0097 
0098 
0099 
OO9A 
009B 
009C 


009D 
009 
009F 


OOAO 
OOA1 
O0A2 
O0A3 
OOA4 
OOA5 
O0A6 
OOA7 


00A8 


OO0A9 
OOAA 
OOAB 
OOAC 


O80E 
0093 
1510 
1210 
3008 
OO8F 
1683 


0801 
3903 
0081 


0064 
1006 
OD93 
1086 
1803 


1486. 


210B 
1406 


210D 


1283 
0181 
110B 
168B 


TxmtByte: 

movet DataByte,w 
movwf DataByteCopy 
bsf Txmt_ Progress 
bcf Txmt_Success 
movlw 0x08 

movwf BitCount 

bsf rp0 

if |_CLOCK_STRETCH CHECK 


movt option,w 
andlw OPTION _ INIT 
movwf option 


endif 


TxmtNextBit: 


clrwdt 

bcf£ SCL 

pad Bs DataByteCopy 
bet SDA 

btfsc Cc 

bst SDA 


call Delay47uSec 
bsf SscL 


call Delay40uSec 


if CLOCK STRETCH CHECK 


bct rp0 
Clee EEGC 
Her ig on 
bsf rtie 


make copy of DataByte 
set Bus status for txmt progress 


reset status bit 


set RTCC to INT CLK timeout for 1 mSec 


do not disturb user’s selection of RPUB in OPTION Register 


defined in I2C.H header file 


clear WDT, set for 18 mSec 


MSB first, Note DataByte Is Lost 


guarantee min LOW TIME tLOW & Setup time 


set clock high , check if clock is high, else 
clock being stretched 


guareentee min HIGH TIME tHIGH 


clear RTCC 
clear any pending flags 


elable RTCC Interrupt 
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OOAD 


OOAE 
OOAF 
OOBO 
OOB1 
00B2 
00B3 
OO0B4 


OOB5 
OOB6 


00B7 
0OB8 
OOB9 
OOBA 
OOBB 
OOBC 
OOBD 


OOBE 


OOBF 
OO0CO 


Solow 
00C2 
00C3 
00C4 


1391. 


1B91 
28EC 
1283 
1C06 
28AE 
128B 
L683 


OB8F 
28A0 


1006 
1486 
210B 
1406 
210D 
1283 
1886 
Z8GCS 


1683 
1006 


£110 
1610 
1390 
0008 


bcf£ 


TIME OUT_ 


Check SCL 13 


btfsc TIME -OUT _ 
goto Bus Fatal Error 
bcf rp0 

btfss SCL 

goto Check: Sch. 1 
bcf rtie 

bsf rp0 

endif 

decfsz BitCount 
goto TxmtNextBit 
bcf SCL 

bsf SDA 

call Delay47uSec 
bsf SCL 

calt Delay40uSec 
bet rp0 

btfisc SDA 

goto TxmtErrorAck 
bsf rpo 

bcf SCL 

bet Txmt_Progress 
bsf Txmt_Success 
felons ACK Error 
return 
TxmtErrorAck: 


reset timeout error flag 


if RTCC timeout or Error then Abort & return 


Possible FATAL Error on Bus 


if clock not being stretched, it must be high 
loop until SCL high or RTCC timeout interrupt 


Clock good, disable RTCC interrupts 


Check For Acknowledge 


reset clock 

Release SDA line for Slave to pull down 
guareentee min LOW TIME tLOW & Setup time 
clock for slave to ACK 

guareentee min HIGH TIME tHIGH 

select PAGE 0 to test PortB pin SDA 

SDA should be pulled low by slave if OK 


reset clock 


reset TXMT bit in Bus Status 
transmission successful 


ACK OK 
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RELEASE BUS 


00C5 
00C5 
00C6 
00C8 
00C9 
OOCA 
00CB 


O0CC 


O00CD 
OOCE 
OOCF 
OODO 


OOD1 


1683 
1486 
1406 
LLL0 
1210 
1790 
0008 


28CD 


1590 
1290 
3008 
OO8F 


1683 





lorena Txmt_ Progress y reset. TXMT bit in Bus. Status 
Der Txmt_Success ; transmission NOT successful 
bsf ACK Error ; No ACK From Slave 

return 


. 
, 


PR RKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KK KK KKK KKK KKKKK KKK KKK KKK KKK 


: Receive A Byte Of Data From Slave 


H assume address is already sent 
; if last byte to be received, do not acknowledge slave (last byte is 
; tested from Last_Byte Rev bit of control reg) 


; Data Received on successful reception is in DataReg register 


PRK KKK KK KKKKKKKKKKKKKKKKKKKKK KKK KKK KK KKK KKK KK KKK RR KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KR KK KK KKK KKK KK KK KK KK KK KK KKK 


GetData: 


goto RcevByte 
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° 
, 


RevByte: 
bsft Rcev_Progress ; set Bus status for txmt progress 
bee Rev_Success ; veset status bit 


movlw 0x08 

movwf BitCount 

if _CLOCK_STRETCH_CHECK 
bsf rpo0 


; set RTCC to INT CLK timeout for 1 mSec 
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OOD2 
00D3 
00D4 


OOD5 
OOD6 
0OD7 
00D8 
00D9 
OODA 


OODB 


OODC 
OODD 
OODE 
OODF 
OOE0 


OOE1 
O0E2 
00E3 
O0E4 
OOE5 
OOE6 
O0OE7 


O0OE8 
OOE9 


0801 
3963 
0081 


0064 
L683 
1006 
1486 
210B 
1406 
210D 


HOA oS. 
0181 
110B 
168B 
L391 


1B91 
28FC 
1283 
1C06 
28E1 
128B 
1683 


1283 
1003 


movet 
andlw 


movwft 


clrwdt 
bsf 
bct 
bsf 
call 
bsf 
call 


bcf 
ere 
DCri 
bsf 
bef 


DEetsc 
goto 
bet 
btfiss 
goto 
Cr 
bsf 


bcf 
bcf 


option,w 


OPTION INIT 


option 


rpod 
SCL 
SDA 


endif 


RevNextBit: 


Delay47uSec 


SCL 


Delay40uSec 


rp0 
ECCC 
CELE 


rtie 


. 
oA 


° 
a 


. 
f 


do not disturb user’s selection of RPUB in OPTION Register 


defined in I2C.H header file 


clear WDT, set for 18 mSec 


page 1 for TRIS manipulation 


can be removed from loop 
guarantee min LOW TIME tLOW & Setup time 
clock high, data sent by slave 


guarantee min HIGH TIME tHIGH 


if _CLOCK STRETCH CHECK 


TIME OUT_ 


Check SCL2: 


TIME OUT_ 


Bus Fatal Error 


rp0d 
SCL 


Check SC 2 


rtie 


rp0 


rp0 


Cc 


endif 


clear RTCC 
clear any pending flags 
elable RTCC Interrupt 


reset timeout error flag 


if RTCC timeout or Error then Abort & return 


Possible FATAL Error on Bus 


if clock not being stretched, it must be high 


loop until SCL high or RTCC timeout interrupt 
Clock good, diable RTICC interrupts 


select page 0 to read Ports 
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OOEA 


OOEB 


OOEC 
OOED 
OOEE 


OOEF 
OOF 0 
OOF 1 
OOF 2 
O0F3 
OOF4 
OOF5 
OOF 6 


OOF7 
OOF8 
OOF 9 
OOFA 


OOFB 


1886 
1403 


OD8E 
OB8F 
28D5 


1683 
1006 
1086 
Loit 
1486 
210B 
1406 
210D 


1006 
1190 
1690 
1390 
0008 


btfsc SDA 


bsf 


rlf 


DataByte 


decfsz BitCount 


goto RevNextBit 


bsf 
bcf 
bcf 


rpo 
SCL 


SDA 


bttse Last Byte Rev 


bsf 


SDA 


call Delay47uSec 


bsf 


SCL 


call Delay40uSec 


RevEnd: 
ber SCL 
DCL Rev Progress 
bsf Rcev_Success 
bet ACK Error 
return 
if CLOCK STRETCH CHECK 


TEMP ???? DO 2 out of 3 Majority detect 


left shift data ( MSB first) 


Generate ACK bit if not last byte to be read, 
if last byte Generate NACK 


do not send ACK on last byte, main routine will send a STOP bit 


ACK by pulling SDA low 


if last byte, send NACK by setting SDA high 


guarantee min LOW TIME tLOW & Setup time 


guarantee min HIGH TIME tHIGH 


reset clock 
reset TXMT bit in Bus Status 
transmission successful 


ACK OK 
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. 
7 


e 
tf 


Fatal Error On I2C Bus 


Slave pulling clock for too long or if SCL Line is stuck low. 


This occurs if during Transmission, SCL is stuck low for period longer 


than approx. limS and RTCC times out (appox 4096 cycles : 256 * 16 —- 


prescaler of 16). 
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OOFC 


OOFD 
OOFD 


OOFE 


0100 
0101 
0102 
0103 


0104 


0105 


128B 


1683 
1486 
1406 


1490 
LTO 
1110 
1210 


Z205F 


0008 


bcf 


PRAKKKKKKKKK KKK KKK KKK KKK KK KKK KK KK KKK KKK KK KKK KR KKK KR KKK KK KKK KK KKK KK KKK KKK KK KKK KKK KKK AK KKK KK KKK KKK KKK KKK KKK KK 


Bus. Fatal Error: 


7; disable RTCC Interrupt 


rtie 


RELEASE BUS 


bsf 
bsf 
lolana 
bcf 


call 


; Set the Bus Status 
Abort 
Fatal Error 
Txmt_Progress 
Txmt_Success 
TxmtStopBit 

return 


* 
, 


; disable RTCC interrupts, until next TXMT try 


Bits appropriately 


; transmission was aborted 
; FATAL Error occured 
; Transmission Is Not in Progress 


; Transmission Unsuccesful 


; Try sending a STOP bit, may be not successful 


PRRKKKKKKK KK KKK KKK KKK KKK KKK KK KK KKK KKK KK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK RK KKK KK KKK KK KKK KK KK 


endif 


pRKKKKKKKKKKKKKK KKK KKK KKKK KKK KK KKK KK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KK KKK KKK KK KAR KKK KKKKK KK KK KK 


; General Purpose Delay Routines 


: Delay4uSis wait loop for 4.0 uSec 


; Delay47us is wait loop for 4.7 uSec 


; Delay50us is wait loop for 5.0 uSec 
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0106 3006 
0107 0092 
0108 0B92 
0109 2908 
010A 0008 
010B 3004 
010C 2907 
010D 3003 
010E 2907 
O010F 1011 
010F 30A0 


PREKKRERKKEAERAER EER KRKAKERREERKKE KERR EEK ER EER EEK EKRKRRRERKKK ERK ERK KE KEREKRER EKER ER ERE KE REE RERAREKREKRERERERER 


. 
, 


Delay50uSec: 

movlw ((.50uS Delay=5):/3 + 41) 
DlyK 

movwf DelayCount 

decfsz DelayCount 

goto $-1 

return 

Delay47uSec: 

movilw ((47uS Delay-8)/3 + 1) 
goto DlyK 

Delay40uSec: 

movlw ((_40uS Delay-8)/3 + 1) 
goto DlyK 


° 
, 


eERERREERERRERR ER EER EER ERLE LER REE ERE RRR ARE EERREER KK EEE ERK ERR EAE EERE ARK IR EE KARE RARE RAR RR AER REAR RAR SER KAR 


endif 


SA RAEKEERERLERARK RR EK EK EER KEARREARER RRA ELE KRERARKRER RA LEAEAEEKREEAAE RARER EE ERER RE ERE RE ER EER EK KERRIER RRS 


° 
f 
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ReadSlavel: 


: EEPROM (24C04) may be in write mode (busy), check for ACK by sending a 
; control byte 
LOAD ADDR_8 _Slave_1_ Addr 
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0110 


0112 
Q1l3 
0114 
Oi Re) 


0116 
0116 
OlL7 
O19 
0119 
O11A 
Clie 
OLEC 
011D 
O11E 
0120 


0121 
0121 
Gl22 


008C 


waitl: 


I2C_ TEST DEVICE 


2011 

1F1il 

2912 
0064 


btfss SlaveActive ; See If slave is responding 
goto waitl ; if stuck for ever, recover from WDT, can use other schemes 
clrwdt 


I2C_ READ SUB 8, DataBegintl, 0x50 


1091, 
2057 
206B 
3050 
008 
2095 
3007 
0096 
3021 
0084 
2039 


; Read 8 bytes of data from Slave 2 starting from Sub-Address 0x60 


. 
, 


LOAD ADDR _8 _Slave_2 Addr 


Lot 
30AC 
008C 
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0124 
0125 
0126 
0127 


0128 
0128 
0129 
012B 
012B 
012C 
O12E 
012E 
O12F 
0130 
0132 
0133 


0134 
0134 
0135 


12C_TEST DEVICE 


2011 
1Fll btfss 
2924 goto 
0064 


12C_ READ SUB 


1091 
2057 
206B 
3060 
OO8E 
2095 
3007 
0096 
3024 
0084 
2039 
0008 


LOAD ADDR_8 


AG aa 
30D6 
008C 


wait?2: 


SlaveActive ; See If slave is responding 
wait2 ; if stuck for ever, recover from WDT, can use other schemes 
clrwat 


8, DataBegint+l, 0x60 


return 
7 


pRAKKKK KKK KKK RK KKK KK KK KKK KKK KK KR KK KK RK KK KK KK RK RK OK KK KK KK OK KKK OK KK KK RK KK KK KK KK KKK KK 
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ReadSlave3: 


_Slave_3 Addr 
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0137 
0138 
0139 
013A 


OT3B 
Cisse 
GL3C 
013E 
013E 
OLS 
0141 
0141 
0142 
0143 
0145 


0146 


wait3: 


I2C_TEST DEVICE 


2011 

LPL...  Beies SlaveActive 
2937 goto wait3 

0064 clrwdt 


I2C_READ SUB 8, DataBegin, 


1091 
2057 
206B 
3000 
OO08E 
2095 
3007 
0096 
3020 
0084 
2039 


0008 


; See If slave is responding 


; if stuck for ever, recover from WDT, can use other schemes 


0 


return 


OR RK kk KK KK KKK KK KKK KK KKK RK KR KK KK KK KK KK KK KK KKK KICK KK KKK KK KK KK KKK KK KK KK 
; 

: Fill Data Buffer With Test Data ( 8 bytes of 0x55, OxAA pattern) 

; 


pO KR KK KK KK OK KKK KK KKK KKK KK KKK KK KKK KK KK KK RK KKK RK RK KK KKK KK KK KK KR KK KKK KK KK KKK KK KK KK 


FillDataBuf: 
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0147 3000 moviw 0x00 ; start address location of EEPROM array 


0148 OOAO movwf DataBegin ; list byte of data to be sent is start address 
0149 3021 movlw DataBegin+l ; data starts following address (RAM Pointer) 
014A 0084 movwf fsr 
014B 3008 moviw 8 ; fill RAM with 8 bytes , this data is written to 
; EEPROM (slave) 
014C OO09A movwf byteCount 
014D 3055 movlw 0x55 ; pattern to fill with is 0x55 & OxAA 
Q014E 009B movwft HoldData 
X1: 
O14F 099B comf HoldData 
0150 0O81B movét HoldData,w 
0151 0080 movwf indf 
0152 OA84 incf fsr ; point to next location 
0153 OB9A decfsz byteCount 
0154 294F goto cL 
0155 0008 return 


f 


RR KKK RK KKK KK RK KKK KKK KK RK KK KK KR KK KK KKK RRR KK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KK KK KK KK KK KKK 


y Main Routine (Test Program) 


; SINGLE MASTER, MULTIPLE SLAVES 


sR KKK KKK KKK KKK KEK KR KR RIK KKK IK KK ERK KKK KKK KKK KK KK KR KKK EK KK KKK KKK KK KK KK KKK KKK KK KK EKER KKK KK KK KKK KKEKKKKKKK KK KKK 


Start: 
0156 204D call Init lZcBus.Master ; anitzalize: .12C Bus 
0157 178B bsf gie ; enable global interrupts 
0158 2147 call FillDataBuf ; fi11 data buffer with 8 bytes of data (0x55, OxAA) 
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0159 1810 btfsc Bus _ Busy 
015A 2959 goto $-1 
LOAD ADDR 8 _Slave_1 Addr 
015B 1011 
015B 30A0 
O15C: «O08 
I2C_WR 0x09, DataBegin 
015E 3009 
O15E 0096 
O15F 3020 
0160 0084 


O62 2019 
0162 205F 


0164 1810 btfsc Bus _ Busy 


0165 2964 goto Sai 


Use high level Macro to send 9 bytes to Slave (1 & 2 : TWO 24C04) 
Addr 


Write 9 bytes to Slave 1, starting at RAM addr pointer DataBegin 


is Bus Free, ie. has a start & stop bit been 
detected (only for multi master system) 


a very simple test, unused for now 


Write 8 bytes of Data to slave 2 starting at slaves memory address 


is Bus Free, ie. has a start & stop bit been 
detected (only for muiti master system) 


a very simple test, unused for now 





of 8 bit 


0x30 
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LOAD ADDR_8 _Slave_2 Addr 


0166 1011 
0166 30AC 
0167 O008C 


I2C_WR_SUB 0x08, DataBegint+l, 0x30 


0169 3009 
0169 0096 
016B 3020 
016B 0084 
O16D 0800 
016D 0097 
016E 3030 
O16F 0080 
O17 “2019 
0172 0817 
0172 OOAO 
0174 205F 
0175 210F call ReadSlavel ; read a byte from slave from current address 


LOAD ADDR 8 _Slave_3 Addr 
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0176 1011 

0176 30D6 

O17 7 *-GO8C 

Q179 30CC movlw OxCC 

017A OO0AO movwf DataBegin 


I2C_WR_SUB 0x01,DataBegin, 0x33 


017B 3002 


6LL-€ 
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017B 
017D 
017D 
O1L7EF 
O17F 
0180 
0181 
0183 
0184 
0184 
0186 
0187 


0188 
0189 


0096 
SOLE 
0084 
0800 
0097 
3033 
0080 
2019 
0817 
OO9F 
205F 
2134 


0064 
2988 


call ReadSlave3 ; Read From Slave PIC 


. 
f 


self clrwdt 
goto self 
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Software Implementation of Asynchronous Serial I/O 





INTRODUCTION 


The PIC16CXX series from Microchip Technology, Inc., 
are mid-range, high performance EPROM based 8-bit 
microcontrollers. Some of the members of this series 
(like PIC16C71 and PIC16C84) do not have on-chip 
hardware asynchronous serial port. This application 
note describes the Interrupt driven Software implemen- 
tation of Asynchronous Serial I/O (Half Duplex RS-232 
Communications) using PIC16CXX microcontrollers. 
These microcontrollers can operate at very high speeds 
with a minimum of 250 ns cycle time (with input clock 
frequency of 16 MHz). To test the RS-232 routines, a 
simple Digital Volt Meter (DVM)/Analog Data Acquisition 
Systems has been implemented using P!IC16C71 in 
which upon reception of a command from host (IBM™ 
PC), an 8-bit value of the selected A/D channel is 
transmitted back to host. 


IMPLEMENTATION 


A half duplex Interrupt driven software implementation 
of RS-232 communications using PIC16C71 is described 
in detail below. The transmit pin used in the example 
code is RB7 and receive pin is connected to RTCC/RA4 
pin (See Figure 2). Of course these pins are connected 
with appropriate voltage translation to/from RS-232/ 
CMOS levels. The voltage translation is given described 
with schematics in the hardware section of this applica- 
tion note. 


Transmit Mode 


The transmit mode in software is quite straight forward 
to implement using interrupts. Once the input clock 
frequency and baud rate is known, the number of clock 
cycles per bit can be computed. The on-chip Real Time 
Clock Counter (RTCC) along with the prescaler can be 
used to generate interrupt on RTCC overflow. This 
RTCC overflow interrupt can be used as timing to send 
each bit. The Input clock frequency (“_ClkIn”) and the 
Baud Rate (“_BaudRate”) are programmable by the 
user and the RTCC time-out value (the period for each 
bit) is computed at assembly time. Whether the prescaler 
must be assigned to RTCC or not is also determined at 
assembly time. This computation is done in the header 
file “rs232.h”. Note that very high speed transmissions 
can be obtained if transmission is done with pulsery 
software delays instead of interrupt driven. However the 
processor will be totally dedicated to this job. 
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Transmission of a byte is performed by calling “PutChar’ 
function and the data byte in the “TxReg’” is transmitted 
out. Before calling this function (“PutChar’), the data 
must be ioaded into TxReg and also made sure that 
serial port is free. The serial port is free when both 
_txmtProgress and _rcvOver bits are cleared (see de- 
scription of these bits in the Serial Status/Control Reg 
table given later ). 


Summary of “PutChar” function : 
1) Makesure_txmtProgress &_rcvOver bits are cleared 
2) Load TxReg with data to be transmitted 
3) CALL PutChar function 


Receive Mode 


The reception mode implementation is slightly different 
from the transmit mode. Unlike the transmit Pin (TX pin 
inthe example code is RB7, but could be any I/O pin), the 
receive pin (RX Pin) must be connected to RTCC/RA4 
Pin. This is because in reception, the Start Bit which is 
asynchronous in nature, must be detected. To detect the 
start bit, when put in Reception mode, the RTCC module 
is configured to counter mode . The OPTION register is 
configured so that RTCC module is put in counter mode 
(increment on external clock on RTCC/RA4 Pin) and set 
to increment on falling edge on RTCC/RA4 pin with no 
prescaler assigned. After this configuration setup, RTCC 
(File Reg 1) is loaded with OxFF. A falling edge on RTCC 
Pin will make RTCC roll over from OxFF to 0x00, thus 
generating an interrupt indicating a Start Bit. The 
RTCC/RA4 pin is sampled again to make sure the 
transition on RTCC is not a glitch. Once the start bit has 
been detected, the RTCC module is reconfigured to 
increment on internal clock and the prescaler is as- 
signed to it depending on input master clock frequency 
and the baud rate (configured same way as the trans- 
mission mode). 


The software serial port is put in reception mode when 
a Call is made to function “GetChar’. Before calling this 
function make sure serial port is free (i.e._txmtProgress 
and _rcvOver status bits must be 0). On completion of 
reception of a byte, the data is stored in RxReg and 
_rcvOver bit is set to 0. 


Summary of “GetChar” function: 
1) Make sure_txmtProgress &_rcvOver bits are cleared 
2) CALL GetChar function 


3) The received Byte is in TxReg after _rcvOver bit is 
cleared 
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Parity Generation 


Parity can be enabled at assembly time by setting 
“ PARITY_ENABLE” flag to TRUE. If enabled, the 
parity can be set to either EVEN or ODD parity. In 
transmission mode, if parity is enabled, the parity bit is 
computed and transmitted as the 9th bit. On reception, 


Register (_ParityErr bit of SerialStatus reg). The parity 
bit is computed using the algorithm shown in Figure 1. 
This algorithm is highly efficient using PIC16CXX’s 
SWAPF and XORWF instructions (with ability to have 


_ the destination as either file register itself or W register) 





the parity is computed on the received byte and com- and the sub-routine (called “GenParity” ) is in file 
pared to the 9th bit received. If a match does not occur “txmtr.asm”. 
the parity error bit is set in the RS-232 Status/Control 


FIGURE 1 - AN EFFICIENT PARITY GENERATION SCHEME IN SOFTWARE 


Data Byte 


Parity Bit 


Assembly Time Options 


The firmware is written as a general purpose routines and the user must specify the following parameters before 
assembling the program. The Status/Control register is also described below: 


TABLE 1 - LIST OF ASSEMBLY TIME OPTIONS 


ClkIn Input clock frequency of the processor. 


_BaudRate Desired Baud Rate. Any valid value can be used. The highest Baud Rate achievable 
depends on Input Clock Freq. 600 to 4800 Baud was tested using 4 MHz Input Clock. 600 
to 19200 Baud was tested using 10 MHz Input Clock. Higher rates can be obtained using 
higher Input Clock Frequencies. , | 
Once the _BaudRate & _Clkin are specified, the program automatically selects all the 
appropriate timings. 


Can specify 1 to 8 data bits. 


StopBits Limited to 1 Stop Bit. Must be set to 1. 


_PARITY_ENABLE Parity Enable Flag. Set it to TRUE or FALSE. If PARITY is used, then set it to TRUE, else 
FALSE. See “ ODD_PARITY” flag description below. 


_ODD_PARITY Set itto TRUE or FALSE. If TRUE, then ODD PARITY is used, else mEVEN Parity Scheme 
is used. | 
This Flag is ignored if PARITY ENABLE is set to FALSE. 


_USE_RTSCTS RTS & CTS Hardware handshaking signals. If set to FALSE, no hardware handshaking is 


used. If set to TRUE, RTS & CTS use up 2 I/O Pins of PortB. 
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Software Implementation of Asynchronous Serial I/O 


TABLE 2 - BIT ASSIGNMENTS OF SERIAL STATUS/CONTROL REGISTER ("SERIALSTATUS" REG) 





Description 
_txmtProgress 1 = Transmission in progress. 
0 = Transmission line free. 
_txmtEnable Set this bit to 1 on initialization to enable transmission. This bit may be used 


to abort a transmission. The transmission is aborted if in the middle of a 
transmission (i.e. when _txmtProgress bit is 1) _txmtEnable bit is set to 0. 
This bit gets automatically set when PutChar function is called. 





_rcvProgress 1 = Middle of a byte reception. 
0 = Reception of a byte (in RxReg) is compiete and is set to 1 when a valid 
start bit is detected in reception mode. 


_rcvOver 1 = Completion of reception of a byte. The user’s code can poll this bit after 
calling “GetChar’” function and check to see if it is set. When set, the 
received byte is in RxReg. Other status bits should also be checked for 
any reception errors. 








_ParityErr 1 = Parity error on reception (irrespective of Even Or Odd parity chosen). Not 
applicable if No Parity is used. 
_FrameErr 1 = Framing error on reception. 
Unused 
_parityBit The 9th bit of transmission or reception. In transmission mode, the parity bit of 


the byte to be transmitted is set in this bit. In receive mode, the 9th bit (or 
parity bit) received is stored in this bit. Not Applicable if no parity is used. 
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Hardware 


The hardware is primarily concerned with voltage trans- 
lation from RS-232 to CMOS levels and vice versa. 
Three circuits are given below and the user may choose 
which ever best suits his application. The primary 
difference between each soluiion is cost versus number 
of components. Circuits in Figure 3 and 4 are very low 
cost but have more components than the circuit in 
Figure 2. Thecircuitin Figure 2 interfaces to RS-232 line 
using a single chip (MAX-232) and single +5V supply. 
The circuit in Figure 3 is a low cost RS-232 Interface but 
requires two chips and a single +5V supply source. 


Figure 4 shows a very low cost RS-232 Interface to an 
IBM PC with no external power requirements. The 
circuit draws power from RS-232 line (DTR) and meets 
the spec of drawing power less than 5mA. This requires 
that the host to communicate must assert DTR high and 
RTS low. The power is drawn from DTR line and this 
requires that DTR to be asserted high and must be at 
least 7V. The negative -5 to -10 V required by LM339 is 
drawn from RTS line and thus the host must assert RTS 
low. This circuit is possible because of the low current 
consumption of PIC16C71 (typical 2 mA). 


FIGURE 2 - SINGLE CHIP FOR RS-232 INTERFACE (SINGLE +5V SUPPLY) 


+5V 
ee 
Vpb 


10uF, 6.3V 


Vss 


PIC16C71 


RS-232 
Signals 


MAX-232A 





FIGURE 3 - LOW COST RS-232 INTERFACE (TWO CHIPS, SINGLE +5V SUPPLY) 


TX (RS-232) 
RTS (RS-232) 


(“Assert 
DTR low) MC14C88 


DS00555A-page 4 


RX (RS-232) 
CTS (RX-232) 
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FIGURE 4 - LOW COST, LOW POWER RS-232 INTERFACE (POWER SUPPLIED BY RS-232 LINES) 












BAT 42 


DTR +5V 
Pe LM2936 


100puF 10uF 


= 





+5V 
10K 
RTCC ZVN104 
Ain 10K 
1K. RAO aa RX (Pin 3 
ai /\. 1N4148 of DB9) 
0.1uF —t. 
+5V 
PIC16Cxx| RB7 
TX (Pin 2 
° Fay of DB9) 
10K S RTS (Pin 7 
10K of DB9) 
IN4148 





co 


Test Program FIGURE 5 - MS WINDOWS PROGRAM 
FETCHING A/D DATA FROM 
PIC16C71 VIA RS-232 


To test the transmission and reception modules, a main 
program is written in which the PIC16C71 waits to 
receive acommand from a host through the RS-232. On 
reception of a byte (valid commands are 0x00, 0x01, 
Ox02 & 0x03), the received byte is treated as the PIC16C71 : DVM - 
PIC16C71’s A/D channel number and the requested a eee 
channel is selected, an A/D conversion is started and 
when the conversion is complete (in about 20 uS) the 
digital data (8 bits) are transmitted back to the host. A 
Microsoft Windows program running on an IBM PC/AT 
was written to act as a host and collect the A/D data from 
PIC16C71 via an RS-232 port. The Windows program 
(DVM.EXE) runs as a background job and displays the 
A/D data in a small window (similar to the CLOCK 
program that comes with MS Windows). The windows 
program and the PIC16C71 together act like a data 
acquisition system or a digital volt meter (DVM). The 
block diagram of the system is shown in Figure 2. The 
input clock frequency is fixed at 4 MHz and RS-232 
parameters are set to 1200 Baud, 8-bits, 1 Stop Bit and 
No Parity. The program during development stage was 
also tested at 1200, 2400, 4800 Baud Rates @ 4 MHz 
Input Clock and up to 19200 Baud @ 10 MHz input clock 
frequency (all tests were performed with No Parity, Even 
Parity and Odd Parity at 8 and 7 Data Bits). 
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Software Implementation of Asynchronous Serial I/O 


Source Code 


AUTHOR: Amar Palacherla, 


The PIC16CXX source code along with the MS Win- Logic Products Division 
dows DVM Program (executable running on an IBM PC/ 
AT under MS Windows 3.1 or higher) is available on 
Microchip's BBS. The assembly code for PIC16CXX 
must be assembled using Microchip’s Universal Assem- 
bler MPASM. The code cannot be assembled using the 
older assemblers without significant modifications. It is 
suggested that user’s who do not have the new assem- 
bler MPASM, must change to the new version. 


The MS Windows Program (DVM.EXE) runs under MS 
Windows 3.1 or higher. The program does not have any 
menus and shows up as a small window displaying A/D 
Data and runs as a background job. There are a few 
command line options and are described below : 





-Px : x is the comm port number (e.g. - P2 selects 
COM2). Default is COM1 


-Cy : y is the number of A/D channels to display. 
Default is one channel (channel #1) 


-Sz : zis a floating point number that represents the 
scaling factor (For example - $5.5 would display 
the data as 5.5*<8bit A/D>/256). The default 
value is 5.0 volts. -SO will display the data in raw 
format without any scaling. 


Ra WR FI A OO a i cE a Se aes IE A TE SO ESC NE REL DS EN 
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Appendix A - RS232.H 


NOLIST 


PRKKKKKKKKK KKK KK KK KKK KKK KKK KKK KR RK KKK KK KK RK KOK KOK KK RK KK KK KR KK RK RK KO KK KK KK RK 


; RS-232 Header File 
; PIC1L6C6X/7X/8X 


PRK KKK KKK KK KKK KK KK KK KK KK KR KR KKK OK KK KK OK KK KK KK RK OK KKK KK KK OK KK KK AK KO KK KK KK KKK KK 


C1kOut equ (ClkIn >> 2) ; Instruction Cycle Freq = CLKIN/4 
CyclesPerBit set (ClkOut/ BaudRate) 
tempCompute set (CyclesPerBit >> 8) 


; 
PRKKKKKKKKKKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KR KKK KKK KKK KR KK RK KR KK KK KR KR KK A RK KKK KK RK KR RK KK KK 


: Auto Generation Of Prescaler & Rtcc Values 


; Computed during Assembly Time 
pRKRKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KKK KKK 


: At first set Default values for RtccPrescale & RtccPreLoad 


° 
tA 


RtccPrescale set 0 
RtccPreLoad set CyclesPerBit 
UsePrescale set FALSE 


if (_tempCompute >= 1) 


RtccPrescale set 0 

RtccPreLoad set (CyclesPerBit >> 1) 
UsePrescale set TRUE 

endif 


if (tempCompute >= 2) 


RtccPrescale set 1 
RtccPreLoad set (CyclesPerBit >> 2) 
endif 


if (tempCompute >= 4) 


RtccPrescale set 2 
RtccPreLoad set (CyclesPerBit >> 3) 
endif 


if (tempCompute >= 8) 


RtccPrescale set 3 
RtccPreLoad set (CyclesPerBit >> 4) 
endif 
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if (tempCompute >= 16) 


RtccPrescale set 4 
RtccPreLoad set (CyclesPerBit >> 5) 
endif 


if (tempCompute >= 32) 


RtccPrescale set 2) 
RtccPreLoad set (CyclesPerBit >> 6) 
endif 


if (tempCompute >= 64) 


RtccPrescale set 6 

RtccPreLoad set (CyclesPerBit >> 7) 

endif 

aie (tempCompute >= 128) 

RtccPrescale set 7 

RtccPreLoad set (CyclesPerBit >> 8) 

endif 

if (RtccPrescale == 0) && (RtccPreLoad < 60)) 

messg “Warning : Baud Rate May Be Too High For This Input Clock” 
endif 


; Compute RTCC & Presclaer Values For 1.5 Times the Baud Rate for Start Bit Detection 


e 
, 


SBitCycles set (ClkOut/ BaudRate) + ((_ClkOut/4)/ BaudRate) 
tempCompute set (SBitCycles >> 8) 

SBitPrescale set 0 

SBitRtccLoad Seu _SBitCycles 


if (tempCompute >= 1) 


SBitPrescale set 0 
SBitRtccLoad set (SBitCycles >> 1) 
endif 


if (tempCompute >= 2) 
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SBitPrescale set 1 
SBitRtccLoad set (SBitCycles >> 2) 
endif 
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1£ (tempCompute >= 4) 


SBitPrescale set 2 
SBitRtccLoad set (SBitCycles >> 3) 
endif 


if (tempCompute >= 8) 


SBitPrescale set 3 
SBitRtccLoad set (SBitCycles >> 4) 
endif 


if (tempCompute >= 16) 


SBitPrescale set 4 

SBitRtccLoad set (SBitCycles >> 5) 
endif 

if (tempCompute >= 32) 

SBitPrescale set 5 

SBitRtccLoad set (SBitCycles >> 6) 
endif 

if (_tempCompute >= 64) 

SBitPrescale set 6 

SBitRtccLoad set (SBitCycles >> 7) 
endif 

sim (tempCompute >= 128) 

SBitPrescale set i 

SBitRtccLoad set (SBitCycles >> 8) 
endif 


, 
PRK KKKKKKKKKKK KKK KKK KKK KKK KK KK KK KK KKK KK KK KKK KKK KKK KK KK KKK KK RK KK KK KKK KK KR KK KKK RK KK KK KK KK KKK 


#define Cycle Offseti. 18 


LOAD RTCC MACRO K, Prescale 
if (UsePrescale == 0) 
movlw -K + Cycle Offsetl 
else 
MOvViw=h, sf Cycle Orisetl -2> (Peescalert)) ; Re Leac RICO init value + INT Latency Offset 
endif 
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movwf rtcc ; Note treat Frescaler is cleared when RTCC is written 
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ENDM 


PRK RR KKK RK KK KR RK KK KR KR KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK RK RK RK RAKKKKK KKK KKK KKK KK KK KK 


LOAD BITCOUNT MACRO 


moviw DataBits+ StopBits 


movwf BitCount 


if _ PARITY ENABLE 
movilw 2 
movwt ExtraBitCount 
endif 
ENDM 


° 
, 


PORK KKK KK RK RK KK KK KK KKK KK KKK KR RR KK KKK KKKKKKKKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK KKK KK KK K 


F Pin Assignements 


pK RRR RK KK KK RR KK KK RK KKK KK RK KKK KKK KAKA KKK KKK KKK KKK KKK KK KKK RK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KKK KK KK 


#define RX MASK 
#define RX Pin 
#define RX 


#define TX 
#define RTS 
#define CTS 
#define txmtProgress 
#define txmtEnable 
#define rcvProgress 
#define rcvOver 
#define ParityErr 


#define FrameErr 


#define parityBit 


PORK KK KR KKK KKK KK KK RK KK KK KK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KK RK KK KK KKK KKK KK KK KK KK KKK KK KK KK KK KKK 


_OPTION SBIT set 


if UsePrescale 


_OPTION INIT set 


else 


_OPTION INIT set 


endif 


0x10 

porta, 4 
RxTemp, 4 
portb,7 
pOLrthb; 5 
porthb, 6 
SerialStatus,0 
SerialStatus,1l 
SerialStatus,2 
SerialStatus, 3 
SerialStatus, 4 


SerialStatus,5 


SerialStatus,7 


0x38 


0x00 


0x08 


; RX pin is connected to RA4, ie. bit 4 
; RX Pin : RA4 


; TX Pin , RB7 


; RTS Pin, RB5, Output signal 
; CTS Pin, RB6, Input signal 


; Increment on Ext Clock (falling edge), for START Bit Detect 


; Prescaler is used depending on Input Clock & Baud Rate 
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CBLOCK 0x0C 


TxReg ; 
RxReg ; 
RxTemp 
SerialStatus ; 
BitCount 
i _PARITY ENABLE 
ExtraBitCount : 
endif 
SaveWReg ; 
SaveStatus Ho 


templ1, temp2 
ENDC 


pO KKK KR KK KK KK KK KK IK KK I KK KR OK KR KK KR KK KR KK KK KK KR RRR KK RK KKK KK KK KK KK KKK RR KK KKK KK 


LIST 


Transmit Data Holding/Shift Reg 
Rev Data Holding Reg 


Txmt & Rev Status/Control Reg 


Parity & Stop Bit Count 


temp hold reg of WREG on INT 
temp hold reg of STATUS Reg on INT 
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Appendix B - RS232.ASM 


TITLE “RS232 Communications : Half Duplex : PIC16C6x/7x/8x” 
SUBTITLE “Software Implementation : Interrupt Driven” 


pK RIK KK IK IK IK KK I I I IK IK IK KKK KK KKK RRR KKK KK KK KKK KK KK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK AK KK KK KKK 


: Software Implementation Of RS232 Communications Using PIC16CXxX 


Half-Duplex 


: These routines are intended to be used with PIC16C6X/7X family. These routines can be 
: used with processors in the 16C6X/7X family which do not have on board Hardware Async 
; Serial Port. 

; MX.. 

: Description : 

; Half Duplex RS-232 Mode Is implemented in Software. 

; Both Reception & Transmission are Interrupt driven 

; Only 1 peripheral (RTCC) used for both transmission & reception 

; RTCC is used for both timing generation (for bit transmission & bit polling) 
; and Start Bit Detection in reception mode. 

; This is explained in more detail under Interrupt Subroutine. 

; Programmable Baud Rate (speed depnding on Input Clock Freq.), programmable 

; #of bits, Parity enable/disable, odd/even parity is implemented. 

: Parity & Framing errors are detected on Reception 


RS-232 Parameters 


; The RS-232 Parameters must be defined as shown below: 

; ClkIn Input Clock Frequency of the processor 

(NOTE : RC Clock Mode Is Not Suggested due to wide variations) 

; BaudRate Desired Baud Rate. Any valid value can be used. 

H The highest Baud Rate achievable depends on Input Clock Freq. 

; 600 to 4800 Baud was tested using 4 Mhz Input Clock 

; 600 to 19200 Baud was tested using 10 Mhz Input Clock 

; Higher rates can be obtained using higher Input Clock Frequencies. 
; Once the BaudRate & _ClkIn are specified the program 

; automatically selectes all the appropiate timings 

; DataBits Can specify 1 to 8 Bits. 

; StopBits Limited to 1 Stop Bit. Must set it to l. 

1 PARITY ENABLE Parity Enable Flag. Set it to TRUE or FALSE. If PARITY 

: is used, them set it to TRUE, else FALSE. See “ ODD PARITY” flag 
; description below 

; ODD PARITY Set it to TRUE or FALSE. If TRUE, then ODD PARITY is used, else 


EVEN Parity Scheme is used. 
This Flag is ignored if _PARITY ENABLE is set to FALSE. 
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Usage 


In 
as 
is 


example is given in the main program on how to Receive & Transmit Data 


the example, 


the processor waits until a command is received. The command is interpreted 


the A/D Channel Number of PIC16C71. Upon reception of a command, the desired A/D chennel 
selected and after A/D conversion, the 8 Bit A/D data is transmitted back to the Host. 


The RS-232 Control/Status Reg’s bits are explained below 


“SerialStatus” 


Bit 0 


Bie: 1 


Bie <2 


Bit. -3 


Bit 4 
Balt: 3 


Bit: *6 


Bit 7 


txmtProgress 


txmtEnable 


rcvProgress 


rcevOver 


ParityErr 
FrameErr 


unused _ 


parityBit 


To Transmit A Byte Of Data 


To Receive A Byte 


1) 
2) 
3) 


1) 
2) 
3) 


Make sure 


RS-232 Status/Control Register 


(1 if transmission in progress, 0 if transmission is complete) 

After a byte is transmitted by calling “PutChar” function, the 
user’s code can poll this bit to check if transmission is complete. 
This bit is reset after the STOP bit has been transmitted 

Set this bit to 1 on initialization to enable transmission. 

This bit can be used to Abort a transmission while the transmitter 
is in progress (i.e when txmtProgress = 1) 

Indicates if the receiver is in middle of reception.It is reset _ when 
a byte is received. 

This bit indicates the completion of Reception of a Byte. The user’s 
code can poll this bit after calling “GetChar” function. Once “GetChar” 
function is called, this bit is 0 and is set to 1 after receptior of 
a complete byte (parity bit if enabled & stop bit) 

A 1 indicates Parity Error on Reception (for both even & odd parity) 
A 1 indicates Framing Error On Reception 


Unimplemented Bit 


The 9 th bit of transmission or reception (status of PARITY bit 
if parity is enabled) 


_txmtProgress & _rcvOver bits are cleared 


Load TxReg with data to be transmitted 
CALL PutChar function 


Of Data 
Make sure 


_tamtProgress: & .revOver Dits 


re cleared 


9) 


CALL GetChar function 
The received Byte is in TxRes efter rcvOver bit is cleared 


16C71 


Processor 
Radix DEC 
EXPAND 
include 


PRR RR KR KKK KKK KKK KK RK KKK KK KR RK KK KK KR KK KKK KK RK KK KK RR RR RR Re RR KKK KK KK KKK KKK KK KKK KK KKK KK KKK KKK KK KKK KK KK 


“di \pictools\16C2x-h” 
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pRKKKKKKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK TY VR eee ee RR KKK KKKK KKK KK KKK KKK KKK KKKKK KKK KKKKKKKKEKE 


o 
, 


_Clikin 

_BaudRate 
_DataBits 
_StopBits 


equ 
set 
set 
set 


#define | PARITY ENABLE 
#define ODD PARITY 
#define _USE_RTSCTS 


include 


Setup RS-232 Parameters 
pK KR RK KKK RK KK KK KK KKK RK KK KK KKK KKK KKK KK KKK KKK KKK KR RR RTT Te RR KKK KKK KK KKK AK KK KK KKK KKK KKK KKK KK KKK KK KK 


1000000 
1200 

8 

1 


FALSE 
FALSE 
FALSE 


*rsZ232.h" 


Input Clock Freqzency is 4 Mhz 

Baud Rate (bits per second) is 1200 

8 bit data, can be 1 to 8 

1 Stop Bit, 2 Stop Bit is not implemented 


NO Parity 
EVEN Parity, if Parity enabled 
NO Hardware Handshaking is Used 


PRR KA KKK KKK RK KK RK KK KK KKK KK KK RK KK KK RK KKK KK RR KKK KR KK KKK KK KK KKK KR KK KKK KR RK KKK KKK KK KKK KK KKK KKK KK KKK KKK KKK KK 


. 
, 


ORG 
goto 


ORG 
goto 


ResetVector 
Start 


IntVector 
Interrupt 


KKK KKK KKK KKK KKK KKK KK KKK KEK KK KKK KEK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KE KKEKKKKKAKKKKKKKKKK 


Table Of ADCONO Reg 


; Inputs : WREG 


(valid values are O thru 3) 
; Returns In WREG, ADCONO Value, 


; Program Memory 


; Cycles 


. 
, 


6 locations 


5 


selecting the desired Channel 


RIOR IR FO RRAR A AI AIA IR, KR ARR He RO FIN KR RR RAR EK LAR RR EA A AAD RR RAIS BID RR Ie ete Me PO A NS EN Oe ay 


GetADCon0: 
andlw 
addwf 
retlw 
retlw 
retlw 
GetADCon0 End: 
retlw 


0x03 

pel 
(OxC1 
(OxC1 
(OxC1 


(OxC1 


if( (GetADConO & 
MESSG “Warning 


endif 


° 
, 


ens 40 
| (1 
| (2 
| (3 


Oxff) 


<< 
<< 
<< 


<< 


>= 


3)) 
3)) 
3)) 


3)) 


mask off all bits except 2 LSBs (for Channel # 0, 1, 2, 3) 


channel 0 
channel 
channel 2 


bh 


channel 3 


(GetADCon0 End & Oxff)) 
Crossing Page Boundary in Computed Jump, Make Sure PCLATH is Loaded Correctly” 


PEAKE EKER RA KERK EKA RARE ER AEK ERA ARERR EEK ERR A RARERLE KEKE EKER ERERKERE KEK EREARERARERREREALKEKRREREALERRERKEERRARE EX 
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: Initialize A/D Converter 
; <RAOQ:RA3> Configure as Analog Inputs, VDD as Vref 

; A/D Clock Is Internal RC Clock 

; Select Channel 0 


; Program Memory : 6 locations 
; Cycles : 7 


PRK KKKKKKKK KKK KKK KKK KR KKK KKK KKK KKK KKK KKK KK AK KKK KKK KK KKK KKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KK KK 


TInitAtoD: 
bsf rpod 
clrf adconl 
DCE rpo 
moviw OxCl1 
movwf adcon0 
return 


PRAKK KK KKK KKK KKK RK KK KK RK KKK KK KK KK RK KK RK KK KKK KK KR KK KK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KK KK KK 


: Main Program Loop 


; After appropriate initilization, The main program wait for a command from RS-232 
; The command is 0, 1, 2 or 3. This command/data represents the A/D Channel Number. 


; After a command is received, the appropriate A/D Channel is seleted and when conversion is 


; completed the A/D Data is transmitted back to the Host. The controller now waits for 
; command. 


a new 


PRK KKK KR KKK RR KK KKK RK KKK KKK KKK KKK KKK KKK KK KKK KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KK KK KKK KK 


Start: 
call InitSerialPort 
call InitAtoD 
WaitForNextSel: 
if USE_RTSCTS 
ber rp0 
bef RTS ; ready to accept data from host 
endif 
call GetChar ; wait for a byte reception 
btfsc rcevOver ; _rcevOver Gets Cleared when a 83yte Is Received (in RxReg) 
goto oo ; USER can perform other tors nere, can poll _revOver bit 
; A Byte is received, Select The Desired Channel & TMXT the desizvec A/D Channel Data 
ber rpo ; make sure to select vase 2 
movf RxReg, w ; WREG = Commanded Channel = ‘2 thru 3) 
call GetADCon0 ; Get ADCONO Reg Constant ‘firc7m Table Lookup 
movwft adcon0Q ; Load ADCONO reg, se-ectir:= tne desired channel 
nop 


bsf go ; start conversion 





O/| [eas SnouoUOUASyY JO UOI]e]USWWIS;AWWY BeMYOS 


9EL-€ 


9} eBed - yggsgoosa 


‘ou ABojouyoe| diyoouoiyy E661 © 


btfsc 
goto 


movt 
movwf 


done 


wk 


adres,w 


TxReg 


if _USE_RTSCTS 


bsf 
btfsc 
goto 
endif 
call 
btfsc 
goto 


goto 


; Loop Until A/D Conversion Done 


RTS ; Half duplex mode, transmission mode, ask host not to send data 
Crs ; Check CTS signal if host ready to accept data 
Sai 
PutChar 
= txmtProgress 
ond. ; Loop Until Transmission Over, User Can Perform Other Jobs 


WaitForNextSel ; wait for next selection (command from Serial Port) 


KKK KK KKK KKK KKK KKK KK KKK KEK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKK KKK KKK KKKEKKKKKKKKKKKKKAKKEEKEK 


RS-232 Routines 


ORK RK KK OR RK KKK KK KKK KK RK RK KK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KK KK KKK KKK KR RK KK KK KKK KK 


oA 
° 
, 


° 
Ul 


“e 


. 
, 


° 
v 


Interrupt Service Routine 


Only RTCC Interrupt Is used. RICC Interrupt is used as timing for Serial Port Receive & Transmit 
Since RS-232 is implemented only as a Half Duplex System, The RTCC is shared by both Receive & 
Transmit Modules. 


Transmission : 


Reception 


RTCC is setup for Internal Clock increments and interrupt is generated when 
RTCC overflows. Prescaler is assigned, depending on The INPUT CLOCK & the 
desired BAUD RATE. 


When put in receive mode, RTCC is setup for external clock mode (FALLING EDGE) 
and preloaded with OxFF. When a Falling Edge is detected on RTCC Pin, RTCC is 
rolls over and an Interrupt is generated (thus Start Bit Detect). Once the start 
bit is detected, RTCC is changed to INTERNAL CLOCK mode and RTCC is preloaded 
with a certain value for regular timing interrupts to Poll RTCC Pin (i.e RX pin). 


ERR RAR RRA ARK RERAREREE RARER EE RRAERE RR RERERERRRER ER EERE ER EERARE ERE EERE EKER RAEKERARRRER RRR RARE EE 


Interrupt: 


btfss 


rtif 


retfie 


Save Status On INT 


movwt 
swapf 
movwt 


btfsc 


; other interrupt, simply return & enable GIE 


WREG & STATUS Regs 


SaveWReg 
status,w ; affects no STATUS bits : Only way OUT to save STATUS Reg ????? 
SaveStatus 


txmtProgress 
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goto TxmtNextBit ; Txmt Next Bit 

btfsc rcevProgress 

goto RcevNextBit ; Receive Next Bit 

goto SBitDetected ; Must be start Bit 
RestoreiIntStatus: 

swapf SaveStatus,w 

movwft =. status ; restore STATUS Reg 

swapf SaveWReg 7; save WREG 

swapf SaveWReg,w ; restore WREG 

bef _ Lee 

retfie 


p RR RR KR KKK KKK RK RK KR KKK KK KK RK KK RK KKK KK KK KK KKK KK KKK RIK KK KK RK KKK KKK KKK KKK KK KKK KK KK KK KK KKK KKK KK KK KK KKK 


; Configure TX Pin as output, make sure TX Pin Comes up in high state on Reset 
; Configure, RX Pin (RTCC pin) as Input, which is used to poll data on reception 


; Program Memory : 8 locations 
; Cycles : 9 


pF RK AIA I A I IR KR KK KK RR RK KR KR RK KKK KKK KK KK RK KR KK KKK KKK KK KK KR KKK KKK KKK KK KK 


InitSerialPort: 
fon said SerialStatus 
ber rp0 ; select Page 0 for Port Access 
bSt TX ; make sure TX Pin is high on powerup, use RB Port Pullup 
DSE- |; rpod ; Select Page 1 for TrisB access 
leroy De ; set TX Pin As Output Pin, by modifying TRIS 
if _USE_RTSCTS 
bor RES ; RTS is output signal, controlled by PIC16Cxx 
bsf Crs ; CTS is Input signal, controlled by the host 
endif 
bsf RX Pan ; set RX Pin As Input for reception 
return 


, 
pK KK KK RK I KK I OK KKK KK RK KK RRR KK KK KR KK KKK KKK KKK KK RK KK KK KK KR KK KK KK KKK KKK KK KK KKK 


include “txmtr.asm” ; The Transmit routines are in file “txmtr.asm” 
include “rcvr.asm” ; The Receiver Routines are in File “rcvr.asm” 


PRK KR KK KR KKK KK KK RK RR KK RR KKK KK RK KR RK KK KKK KK KKK KK KK KKK KR KK KK KK KKK AK KKK KKK KK KK KK KK KK KK KK KK KK KK KK KKK 


END 





O/| |2UaeS SnoudiUoUASY JO UOT}E]}USWIA;]dUW] a1eMYOS 


8El-€ 


g| ebed - ysgsoosa 


‘Ou; ABojouydS | diydo10IW EGE L O 


Appendix C - RCVR.ASM 

PRAKKKKKKKKKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK 
; GetChar Function 

: Receives a Byte Of Data 

; When reception is complete, _rcvOver Bit is cleared 

i The received data is in RxReg 

: Program Memory : 15 locations (17 locations if PARITY is used) 

; Cycles : 16 (18 if PARITY is USED) 


PRKKKKKKKKKKKKKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KK KK KKK KK KKK KKK 
GetChar: 
bsf rcevOver ; Enable Reception, this bit gets reset on Byte Rcv Complete 
LOAD BITCOUNT 
eLet RxReg 


bef FrameErr 

PEt’ =) ParityErr ; Init Parity & Framing Errors 

bsi rpod 

movilw _ OPTION SBIT ; Inc On Ext Clk Falling Edge 
movwft _ option ; Set Option Reg Located In Page 1 
DOE: <> rpo0 7; make sure to select Page 0 

moviw OxFEF 

movwt _ EECC ; A Start Bit will roll over RTCC & Gen INT 
Der” =. TELE 

bsf _ LELe ; Enable RTCC Interrupt 

retfie ; Enable Global Interrupt 


ERASE BASED AAG AILSA SIRS AES SOONER IA LEEAE IIR BAAS BENE Ee eg SORE 
; Internal Subroutine 

; entered from Interrupt Service Routine when Start Bit Is detected. 

, 

; Program Memory 4 14 locations 

; Cycles : 12 (worst case) 

, 

PRKKKKKKKKKKKKKKKKKKK KKK KK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KK KK KK KK KKK KK KK KKK KK KKK KK KK KK KK KK KKK 


~SBLLDELECT Sa: 


DCE! rp0 

brise RA Pin # Make sure Start Bit Interrupt is not a Glitch 
goto _ FalseStartBit ; False Start Bit 

bsf _ rcevProgress 

pst rpod 

movilw (OPTION INIT | SBitPrescale) ; Switch Back to INT Clock 

movwt _ option ; Set Option Reg Located In Page 1 

bot. rp0 ; make sure to select Page 0 

LOAD: RTCC (SBitRtccLoad), SBitPrescale 

goto RestoreIntStatus 
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 FalsestartBit: 
moviw ORE FE 
movwt _ BeCS ; reload RTICC with OxFF for start bit detection 


goto RestoreIntStatus 


PREKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KA KKK KKK KK KKK KKK KK KK RK KKK KKK KK KKK KK KKK 
; Internal Subroutine 

; entered from Interrupt Service Routine when Start Bit Is detected. 

, 

: Program Memory : 28 locations ( 43 locations with PARITY enabled) 

: Cycles : 24 Worst Case 

; 

pRKRR RK KKK KKK KKK KKKK KKK KKK KK KK KKK KKK KKK KK KKK RK KK KKK RK KK KKK KKK KKK KK KKK KK KKK KKK KK KKK KK KK KK KKK 


_RevNextBit: 


bsf rpod 

moviw ( OPTION INIT | RtccPrescale) ; Switch Back to INT Clock 

movwt _ option ; Set Option Reg Located In Page 1 

Ber os rp0 

movE _ porta,w ; vead RX pin immediately into WREG 

movwt RxTemp 

LOAD _RTCC RtccPreLoad, RtccPrescale ; Macro to reload RICC 

movi _ porta,w 

xorwft RxTemp, w 

andlw RX_MASK ; mask for only RX PIN (RA4) 

DELSC - z 

goto _ PinSampled ; both samples are same state 
_SampleAgain: 

movft _ porta,w 

movwft RxTemp ; 2 out of 3 majority sampling done 
_PinSampled: 

DEC x: PARITY ENABLE 

movt BitCoune 

bEtse:... Z 

goto RevP_ Or S$ 

endif 

decfsz BitCount 

goto _ NextRcvBit 


if PARITY ENABLE 


_RevP Or 58:3 
decrsz ExtraBitCount 
GOLG.. RevParity 
endif 
. RCOVSTOPBIT: 
bttss RX 
bsft =. Framekrr 7; May: ‘be: Erarine eer ss sr Gliten 
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bcf 
bcf 
bef 
movt 
call 
moviw 
DEESC, -. 
movilw 
xorwft 
endif 
goto 
_NextRcvBit: 
per a, 
btfsc 
bsf 
rrf 
goto 


rtie 
rcvProgress 
rcevOver 
RxReg, w 
GenParity 

0 

parityBit 
Ox10 
SerialStatus 


RestoreIntStatus 


carry 
RX 

carry 

RxReg 
RestorelIntStatus 


if PARITY ENABLE 


_RevParity: 
ber =. 
btfsc 
bsf 
goto 
endif 


. 
, 


ParityErr 

RX 

ParityErr 
RestoreIntStatus 


disable further interrupts 
Byte Received, Can RCV/TXMT an other Byte if _PARITY ENABLE 
Generate Parity, for Parity check 


to mask off Received Parity Bit in ParityErr 
_ParityErr bit is set accordingly 


may be a glitch, check again 


shift in received data 


Temporarily store PARITY Bit in ParityErr 
Sample again to avoid any glitches 


KKK KKK KR KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KK KKK KR EK KK KK RK KKK KK KEK KR KKK KK KK KKK KK KK KK KKK KK KK KKK 
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Appendix D - TXMTR.ASM 


pRKKKKKEKKKKKKKKKKKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KK KKK KKK KK KKK AK KK 


: PutChar Function 


; Function to transmit A Byte Of Data 

; Before calling this routine, load the Byte to be transmitted into TxReg 

; Make sure txmtProgress & _rcvOver bits (in Status Reg) are cleared before 

; calling this routine 

; Program Memory : 6 locations (10 locations if PARITY is Used) 

; Cycles : 8 (13 if PARITY is Used) 

PRKKKKKKKRKKKKKKK KKK KKK KKK KK KKK KKK KKK KKK KK KK KR KKK KK KR KKK KK KK KKK KKK KKK KK KK KKK KKK KKK KKKK KKK KKK KKKKKK KKK KKK KK KKK 


PutChar: 


DSi, es txmtEnable ; enable transmission 

bst _ txmtProgress 

LOAD _ BITCOUNT ; Macro to load bit count 

ae PARITY ENABLE 

movt TxReg, W 

call GenParity ; If Parity is used, then Generate Parity Bit 
endif 

call _ TxmtStartBit 

bsf rtie ; Enable RTICC Overflow INT 

rettie ; yxeturn with GIB Bit: Set 


pK KKK KK I I KKK KK KK RK KR KK KK kk RK KKK KK KK KK KK KK KK KKK KK RK KKK KKK KK KR KK KK KK 


: Internal Subroutine 
; entered from Interrupt Service Routine when Start Bit Is detected. 


: Program Memory : 15 locations (25 locations if PARITY is used) 
; Cycles : 13 Worst Case 


pO KK KKK KK II KK KK RK OK RK KK KK KR KK KK KK KK KKK KKK KKK KKK RK KKK KKK KK RK KK RK KK KK KK KKK KKK KK KK KK KK KK RK KK 


_TxmtNextBit: 
bef _rpo 
LOAD _RTCC RtccPreLoad, RtccPrescale ; Macro to reload RT =CC 
eae PARITY ENABLE 
movft BitCount 
betsc: Z 
goto _ ParityOrStop 
endif 
decfsz BitCount 
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. 
F 


~ParatyOrstop: 


. 
ca 


goto 
if 
decfsz 


goto 
endif 


_StopBit: 


. 
, 


bsf 
ber 
bcf 
goto 


_NextTxmtBit: 


. 
ay 


rrf 
btfss _ 
bet 
btfsc 
bsf 


btfss _ 
bsf 


goto 


a 


_SendParity: 


PRARKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KK KK RK KK KKK KKK KKK KK KK KK KK KK KK RK KK RK KK RK KK KK KK KK KK KK KK KK 


. 
tf 
. 
f 
. 
f 


« 
t 


r 
PRARKRKKKKKKKKKKKK KK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK 


PANE STArCB Lt s 


btfiss _ 
bef 
Deise . 
bsf 
goto 
endif 


entered from Interrupt Service Routine when Start Bit Is detected. 


Program Memory : 9 locations 


Cycles 


bsf 
movilw 
movwf _ 


Next TxmtBit 
PARITY ENABLE 


ExtraBitCount 
SendParity 


TX *. STOP: Bit. 1s High 

rtie ; disable further interrupts 
txmtProgress 

RestoreIntStatus 


TxReg 
carry 
TX 
carry 
TX 


txmtEnable 
rtie ; disable further interrupts, Transmission Aborted 


RestoreiIntStatus 
PARITY ENABLE 
parityBit 

TX 

parityBit 


EX 
RestorelIntStatus 


Internal Subroutine 


10 
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° 


- VSSS00Sd 


ez ebed 


. 
, 


we Ne Ne 


me 


° 
f 
. 
tA 
. 
, 


° 
, 


ner = rp0 ; make sure to select Page 0 
bef TX ; Send Start Bit 

movilw -RtccPreLoad ; Prepare for Timing Interrupt 
movwt _ rtce 

bet .. Etat 

return 


KKRKEKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK UKE 


Generate Parity for the Value in WREG 


The parity bit is set in parityBit (SerialStatus,7) 
Common Routine For Both Transmission & Reception 


Program Memory : 13. locations 
Cycles : 14 


PRKKRKKKKKKKKKKKKKKK KKK KKKKKKKKKKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KK KKK KKK KK KK KK RK KK 


if PARITY ENABLE 


GenParity: 

movwft temp2 

swapf temp2,w 

xorwt temp2,w 

movwt temp1 

ree. temp1 

ELE temp1 

xorwf temp1 

are rE temp1 

Ere temp1 Po Darrey bac. ar Bais 0 


. 
, 


° 
, 


Parity bit is in Bit 0 of templ 


if _ODD_ PARITY 


DS o-. parityBit 

bEESsc temp1, 0 

BGE .. parityBit 
else 

per, «. parityBit 

btfsc temp1,0 

bsf _ parityBit 
endif 

return 

endif 


KEKE KKKKKKKKKKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KEK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KK KKK KKK KKKEKKK KKK KKK 
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Appendix E - RS232.LST 


MPASM BO.24 
*“RS232 Communications 
“Software Implementation 


Half Duplex 


Interrupt Driven” 


TITLE 


SUBTITLE 


PAGE 1. 
PIC16C6x/7x/8x” 
“RS232 Communications : Half Duplex : PIC16C6x/7x/8x” 
“Software Implementation : Interrupt Driven” 


PRKKKKKKKKKKKK KK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KR KKK KK KKK KK KKK KKK KK AK KKK KKK AK KKK KKK KA KK AK KKK KK KK KKK KKK KKK KKK 


cA 


° 
, 


Software Implementation Of RS232 Communications Using PIC16CXX 
Half-Duplex 


These routines are intended to be used with PIC16C6X/7X family. These routines can be 
used with processors in the 16C6X/7X family which do not have on board Hardware Async 


Serial Port. 


MX.. 


Description 


Half Duplex RS-232 Mode Is implemented in Software. 

Both Reception & Transmission are Interrupt driven 

Only 1 peripheral (RTCC) used for both transmission & reception 

RTCC is used for both timing generation (for bit transmission & bit polling) 
and Start Bit Detection in reception mode. 

This is explained in more detail under Interrupt Subroutine. 
Programmable Baud Rate (speed depnding on Input Clock Freq.), programmable 
#of bits, Parity enable/disable, odd/even parity is implemented. 

Parity & Framing errors are detected on Reception 


RS-232 Parameters 


;The RS-232 Parameters must be defined as shown below: 


° 
Lf 


CikiIn : Input Clock Frequency of the processor 


(NOTE : RC Clock Mode Is Not Suggested due to wide variations) 


BaudRate : Desired Baud Rate. Any valid value can be used. 


The highest Baud Rate achievable depends on Input Clock Freq. 

600 to 4800 Baud was tested using 4 Mhz Input Clock 

600 to 19200 Baud was tested using 10 Mhz Input Clock 

Higher rates can be obtained using higher Input Clock Frequencies. 
Once the _BaudRate & _ClkIn are specified the program 
automatically selectes all the appropiate timings 


DataBits : Can specify 1 to 8 Bits. 
StopBits : Limited to 1 Stop Bit. Must set it to 1. 
PARITY ENABLE 7 Parity Enable Flag. Set it to TRUE or FALSE. If PARITY 


is used, ‘then Set it: to “TRUE, else FALSE. See ™“ ODD PARITY” flag 
description below 
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ODD_ PARITY : Set it to TRUE or FALSE. If TRUE, then ODD PARITY is used, else 


EVEN Parity Scheme is used. 
This Flag is ignored if PARITY ENABLE is set to FALSE. 


Usage 
An example is given in the main program on how to Receive & Transmit Data 
In the example, the processor waits until a command is received. The command is interpreted 
as the A/D Channel Number of PIC16C71. Upon reception of a command, the desired A/D channel 
is selected and after A/D conversion, the 8 Bit A/D data is transmitted pack to the Host. 
The RS-232 Control/Status Reg’s bits are explained below 
“SerialStatus” : RS-232 Status/Control Register 

Bit 0 txmtProgress (1 if transmission in progress, 0 if transmission is complete) 

After a byte is transmitted by calling “PutChar” function, the 
user’s code can poll this bit to check if transmission is complete. 
This bit is reset after the STOP bit has been transmitted 

Bre 1 txmtEnable Set this bit to 1 on initialization to enable transmission. 

This bit can be used to Abort a transmission while the transmitter 
is in progress (1.e when _txmtProgress = 1) 

Bik 2 rcvProgress Indicates if the receiver is in middle of reception.It is reset when 
a byte is received. 

Bit. -3 rcvOver This bit indicates the completion of Reception of a Byte. The user’s 
code can poll this bit after calling “GetChar” function. Once “GetChar” 
function is called, this bit is 0 and is set to 1 after reception of 
a complete byte (parity bit if enabled & stop bit) 

Bit 4 ParityErr A 1 indicates Parity Error on Reception (for both even & odd parity) 

Batre 8 FrameErr A 1 indicates Framing Error On Reception 

Bit 6 unused _ Unimplemented Bit 

Bit 7 parityBit The 9 th bit of transmission or reception (status of PARITY bit 


if parity is enabled) 


To Transmit A Byte Of Data 


1) Make sure _txmtProgress & _rcvOver bits are cleared 
2) Load TxReg with data to be transmitted 
3) CALL PutChar function 


To Receive A Byte Of Data 


1) Make sure _txmtProgress & _rcvOver bits are cleared 
2) CALL GetChar function 
3) The received Byte is in TxReg after rcvOver bit is cleared 


Processor 16C71 
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Radix DEC 
EXPAND 


include Sd: \pictools \16Cxx h” 


PRKKRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KKKKKKKKKKKKKKAKKKKKKKKKKKKKKKKKKK KKK 


; Setup RS-232 Parameters 
PRK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKK KKK KK KKK KK 


OOOF 4240 Clkin equ 1000000 ; Input Clock Frequency is 4 Mhz 
04B0 BaudRate set 1200 ; Baud Rate (bits per second) is 1200 
0008 DataBits set 8 ; 8 bit data, can be 1 to 8 
0001 StopBits set 1 ; 1 Stop Bit, 2 Stop Bit is not implemented 
0046 #define _ PARITY ENABLE FALSE ; NO Parity 
0047 #define ODD PARITY FALSE ; EVEN Parity, if Parity enabled 
0048 #define _ USE_RTSCTS FALSE ; NO Hardware Handshaking is Used 
include “rsZ232,.h° 


PRR RRR KK KK KK KKKKKKKKKKKKKKKKK KKK KK KR KK KKK KK KKK KKK KK KKK KK KKK KK KK KK KK KK KK KK KR KK RR RK KKK KR KR RR KKK KKK KKK KKK KK KK 


. 
, 


ORG ResetVector 
0000 2811 goto Start 

ORG IntVector 
0004 2824 goto Interrupt 


0005 3903 andlw 0x03 


PR KKKKRKKK KKK KKK KKK KKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KK KK KK KKK KR KKK KKK KKK KK KKK KK 


; Table Of ADCONO Reg 

; Inputs : WREG (valid values are 0 thru 3) 

; Returns In WREG, ADCONO Value, selecting the desired Channel 

; 

; Program Memory : 6 locations 

; Cycles : 5 

; 

PRR RRR RR RK RR RR KK KK KKK KKK KK KKK KK KKK KR KKK KKK KK KK KKK KKK KKK KKKKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK 


GetADConO0: 
; mask off all bits except 2 LSBs (for Channel # 0, 1, 2, 3) 
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0006 0782 
0007 34C1 
0008 34C9 
0009 34D1 
OOOA 34D9 
O000OB 1683 
000C 0188 
OO00D 1283 
QOO00E 30C1 
OOOF 0088 
0010 0008 
0011 2034 
0012 200B 


addwf pcl 

retlw (UCT) 1) (O-x. 8h) ; channel 0 

retlw (OxC1l | (1 << 3)) ; channel 1 

retlw (ORCL. | {2 << 3)) ; channel 2 
GetADConO End: 

retlw (OxCl | (3 << 3)) ; channel 3 
i£( (GetADConO & Oxff) >= (GetADCon0 End & Oxff)) 

MESSG “Warning : Crossing Page Boundary in Computed Jump, Make Sure PCLATH is Loaded Correctly” 
endif 


° 
, 


PRR KK KKK KKK KR KKK KK KK KK KK KKK RK KK KR KK RK KKK KKK KK RK KK KK KKK KR KK RR KKK RRR KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KK KK 


. 
v 


. 
tv 


Initialize A/D Converter 
<RAO : RA3> Configure as Analog Inputs, VDD as Vref 
A/D Clock Is Internal RC Clock 
Select Channel 0 


Program Memory ; 6 locations 
Cycles ‘ a 


pO RR RR KK KK KKK KK KK KK KKK KKK KK KK KK KK KKK KKK KK KK KK KK KK KK KK KK KK KK KK KKK KK 


InLeAtCoD 
bsf rpo 
GLrt adconl 
bct rpo 


movilw OxCl 
movwft adconO 
return 


pO ROKK RK KKK KK RK KK KKK KK KK A OK KR RK KK KR KK RK KK KK KKK KK KK KK KK KK KK KKK KK KR KK KK KKK KK KR KK 


Main Program Loop 


After appropriate initilization, The main program wait for a command from RS-232 

The command is 0, 1, 2 or 3. This command/data represents the A/D Channel Number. 

After a command is received, the appropriate A/D Channel is seleted and when conversion is 
completed the A/D Data is transmitted back to the Hest. The controller now waits for a new 
command. 


pO KK IR KK KK KKK KK KK RK KK KK RR KR RK RRR KR RRR RR KK KK KKK RK KK KKK KK KKK KK KK KK KK KK KK KK KK KK KK KKK KK KK KK 


Start: 
call InitSerialPort 
call InitAtoD 
WaitForNextSel: 
if _USE _RTSCTS 
bet rp0 
bcf RTS ; 2e6esy [oO .accept data from host 
endif 
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0013 
0014 
0015 


0016 
0017 


| ke ead 
We at 


Lea Orme 
vn w 


OTD, 
Jol 


001B 
OO01C 
OO1D 


OO1E 
OO1F 


0020 
0021 
0022 


0023 


205D 
198F 
2814 


1283 
080D 


Vue 
LP ee 
BAGS 


naAnRr 
Yysue 


1508 
1908 
281C 


0809 
008C 


203B 
180F 
2621. 


2613 


° 
v 

. 
tA 


. 
, 


bef rp0 
TevVL RxReg, W 
bsf go 
btfsc done 
goto pol 
movet adres,w 
movwft TxReg 
if: USE ‘RESCTS 
bsf RTS 
btfsc Crs 
goto ed | 
endif 


call GetChar 
btfsc revOver 


goto Sei 


A Byte is received, 


call PutChar 


; wait fcr a pyte reception 
7; _revOver Gets Cleared when a Byte Is Received (in RxReg) 
; USER can perform other jobs here, can poll _rcvOver bit 


Select The Desired Channel & TMXT tne desired A/D Channel Data 


3; ®WREG = Commanded Channel # (0 thru 3) 


Coat 7; Set ADCONT Reg Constant from Table Lookup 


7; Loac SDCCNG reg, selecting the desired channel 


; start conversion 


; Loop Until A/D Conversion Done 


Half duplex mode, transmission mode, ask host not to send data 
; Check CTS signal if host ready to accept data 


so 


btfsc txmtProgress 


goto $-1 


; Loop Until Transmission Over, User Can Perform Other Jobs 


goto WaitForNextSel ; wait for next selection (command from Serial Port) 


oKKKKKKKKKKKKKKK KKK KKK KK KKK KK KKK KKK KK KKKKK KKK KKKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK RK KK KK KKKKKKKKKAKKKAEKE 


RS-232 Routines 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKKKKE KK KKK KKK KKK KKK KKKKKKKKKKKKKAKKKEKK 


° 
Lf 

° 
, 


° 
av 


Interrupt Service Routine 


Only RTICC Interrupt Is used. RTCC Interrupt is used as timing for Serial Port Receive & Transmit 
Since RS-232 is implemented only as a Half Duplex System, The RTCC is shared by both Receive & 


Transmit Modules. 
Transmission 


Reception 


RTCC is setup for Internal Clock increments and interrupt is generated when 
RTCC overflows. Prescaler is assigned, depending on The INPUT CLOCK & the 
desired BAUD RATE. 


When put in receive mode, RTCC is setup for external clock mode (FALLING EDGE) 
and preloaded with OxFF. When a Falling Edge is detected on RTCC Pin, RTCC is 
rolls over and an Interrupt is generated (thus Start Bit Detect). Once the start 
bit is detected, RTCC is changed to INTERNAL CLOCK mode and RTCC is preloaded 
with a certain value for regular timing interrupts to Poll RTCC Pin (i.e RX pin). 


pRKKKKKKRKKK KK KKK KKAK KKK KKK KK KKK KA KR K KKK KKK KKK KKK KK ARK KKK KKK KKK RK KKKKKKKKKK KK KEK KR KK KKK KK KKK KKK KK KK KK KK KK KKK 
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0024 
0025 


0026 
0027 
0028 


0029 
002A 
002B 
002C 
002D 


002E 
O002F 
0030 
0031 
0032 
0033 


0034 


0035 
0036 
0037 
0038 


0039 
003A 


1D0B 
0009 


0094 
OE03 
0095 


180F 
2842 
190F 
287A 
286C 


OE15 
0083 
0E94 
OE14 
110B 
0009 


O18F 


1233 
1786 
1683 
1386 


1605 
0008 


Interrupt: 
btfss 
retfie 


Leaet 
; other interrupt, simply return & enable GIE 


; Save Status On INT : WREG & STATUS Regs 


movwf SaveWReg 

swapf status,w ; affects no STATUS bits : Only way OUT to save STATUS Reg ????? 

movwt SaveStatus 

bErsc txmtProgress 

goto TxmtNextBit ; Txmt Next Bit 

btfsc rcvProgress 

goto RcevNextBit ; Receive Next Bit 

goto SBitDetected ; Must be start Bit 
RestoreintStatus: 

swapf SaveStatus,w 

movwf status ; restore STATUS Reg 

swapf SaveWReg ; save WREG 

swapf SaveWReg,w ; restore WREG 

bef pee sus 

retfie 


PRK KKK KK KKK KKK KK RK KK RK KK KK KR KK KK KK KKK KKK KK KK RK RR KKK KK KR KR RR KKK KK KKK RK KKK KKK KKK KKK KKK KK KK KKK KKK KK KKK KKK KKK 


; Configure TX Pin as output, make sure TX Pin Comes up in high state on Reset 
; Configure, RX Pin (RTCC pin) as Input, which is used to poll data on reception 


; Program Memory : 8 locations 


; Cycles 


g 


PRK KR RK KKK KKK RK KR KKK KK KKK KKK KKK KK KK KKK KKK RK KK RK KKK KR KK KK KKK KK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KK KK KK KK KK KKK 


InitSerialPort: 
clrer 


bcf 
bsf 
bsf 
bef 
if” USE RESCTS 
bcf 
bsf 
endif 
bsf 
return 


SerialStatus 

rpo ; select Page O for Port Access 

TX ; make sure TX Pin is high on powerup, use RB Port Pullup 
rpod ; Select Page 1 for TrisB access 

TX ; set TX Pin As Output Pin, by modifying TRIS 

RIS ; RTS is output signal, controlled by PIC16Cxx 

CUS ; CTS is Input signal, controlled by the host 

RX Pin ; set RX Pin As Input for reception 
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include “txmtr.asm” 


003B 148F 
003C 140F 
LOAD BITCOUNT 


003D 3009 
003E 0090 
. OOSE. 2053 
0040 168B 
0041 0009 


P RAK KK KKK KKK KK KK KKK KKK KKK KK KKK KKK KKK KKK KK KK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KK KKK KKK KKK KKK KKK KK 


; The Transmit routines are in file “txmtr.asm” 
PRR KKK RK KKK RK RK KKK RR KK KKK KR RK KK KEK KKK KKK KR KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKK KKK KKK KK KK KKK KKK KK KK KKK 


; PutChar Function 

; BUM CCG Do Sransris fo .syce Cs. Dave 

: Before calling “this roctine, ioaad the Byte to pe transmitted into TxReg 

; Make sure _txmtProgress & _rcvOver bits (in Status Reg) are cleared before 
: calling this routine 


; Program Memory 
: Cycles : S 42:3) 2 


6 locations (10 locations if PARITY is Used) 


PARITY is Used) 


DORIC I IO III III IC III III II III III II II III IO OR III II ICI ICA AI KOK 


PutChar: 
bsf txmtEnable : 
bsf txmtProgress 
movlw DataBits+ StopBits 
movwf BitCount 

if _PARITY ENABLE 


moviw 2 
movwt ExtraBitCount 


endif 


if PARITY ENABLE 
movf TxReg,W 
Cali GenParity 


“Ne 


endif 


call TxmtStartBit 
bsf rtie ; 
retfie 7 


enable transmission 


Macro to load bit count 


If Parity is used, then Generate Parity Bit 


Enable RTCC Overflow INT 
return with GIE Bit Set. 


PRR RRR KK KR KK KKKKKKKKKKKKKKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KK KKK KK KKK KKK KK KKK KKK KK KK KK KKK KK KK KKK KKK KK 


; Internal Subroutine 
; entered from Interrupt Service Routine when Start Bit Is detected. 


; Program Memory 


; Cycles 13 Worst 


15 locations 


(25 locations if PARITY is used) 
Case 
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0042 1283 
LOAD _RTCC 
0043 3042 
0044 0081 
0045 O0B90 
0046 284B 
0047 1786 
0048 128B 
0049 100F 
004A 2825 
004B O0C8C 
004C 1C03 
004D 1386 
004E 1803 
O04F 1786 
0050 1C8F 
0051 168B 


TxmtNextBit: 
bcf rpo 
RtccPreLoad, RtccPrescale ; Macro to reload RTCC 
if (UsePrescale == 0) 


. 
7 


PRK KKK KEK KK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KK KKK KK KKK KKK KKK KK KKK KKK KKK RK K KKK KKK KKKK KKK KKK KKK 


moviw 
else 
moviw 


endif 


movwt 


. 
, 


if _PARITY ENABLE 


movf 

btfsc 

goto 
endif 


decfsz 
goto 


. 
v 


if _PARITY ENABLE 


_ ParityOrStop: 
decfsz 
goto 

endif 

- SEOPBIt? 
bsf 
bef 
bcf 
goto 

_ Next TxmtBit: 
rrf 
btfss 
bcf 
btfisc 
bsf 


btfss 
bsf 


-“RtcePreload + Cycle Offserl 


“RtecPreload +. (Cycle Offset! >> .(RtecePrescaietl)) 
; Re Load RTCC init value + INT La 


rtcc ; Note that Prescaler is cleared when RTCC is written 


BitCount 
Zz 
ParityOrStop 


BitCount 
Next TxmtBit 


ExtraBitCount 
SendParity 


TX ? SBTORS Bak ss: Ton 

rtie ; disable further interrupts 
txmtProgress 

RestorelIntStatus 


TxReg 
carry 
TX 
carry 
TX 


txmtEnable 
rtie ; disable further interrupts, Transmission Aborted 


O/| [28S SnouolYyoUASyY Jo UOI]}e}USsWa|dW] BaeMYOS 





oGl-€ 


ze ebed - ysgsoosa 


‘ou; ABojouyoe | diyoouo1y~y E66}. © 


0052 


0053 
0054 
0055 
0056 
0057 
0058 
0059 
OOSA 
0OSB 


282E 


1663 
3008 
0081 
1283 
1386 
3030 
0081 
110B 
0008 


goto 


RestoreintStatus 


if PARITY ENABLE 


_SendParity: 
btfss 
bot 
betsc 
psf 
goto 

endif 


. 
as 


parityBit 

TX 

parityBit 

TX 
RestoreiIntStatus 


PRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK 


. 
, 


Internal Subroutine 


; entered from Interrupt Service Routine when Start Bit Is detected. 


. 
f 


7 Program Memory : 9 locations 


; Cycles 


e 
, 


10 


pRKRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KKK KKK KK KKK KK KK 


TxmtStartBit: 
bsf 
movlw 
movwf 
bef 
bcf 
movlw 
movwft 
bcf 
return 


rp0 

(OPTION INIT | RtccPrescale) 
option 

rp0 

TX 

~RtccPreLoad 

rtcc 

reLe 


‘ee 


Set Option Reg Located In Page 1 
make sure to select Page 0 

Send Start Bit 

Prepare for Timing Interrupt 


PRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKEKKKK KK KKK KKK KKK KKK KK KKK KK 


; The: parity ‘bit is. .set in. ~parityBit 


Generate Parity for the Value in WREG 


(SerialStatus, 7) 


; Common Routine For Both Transmission & Reception 
; Program Memory : 13. locations 
; Cycles 14 


° 
, 


PRRKKRKKKKKKKKKKKKKKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KK KKK KKK KK KK KK 


if | PARITY _ENABLE 


GenParity: 
movwft 
swapf 
xorwft 
movwt 
crf 


temp2 
temp2,w 
temp2,w 
templ 
temp1l 
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005C 0008 


include ‘“rcvr.asm 


005D 158F 
LOAD BITCOUNT 


OO5E 3009 
OO5F 0090 


ur 


na temp1 

xorwf templ 

2necr templ 

ErE temp1 ; parity bit in Bit 0 
; Parity bit is in Bit 0 of templ 


if _ODD PARITY 


bst parityBit 
btfsc temp1, 0 
bGE parityBit 
else 
bcf parityBit 
btfsc temp1, 0 
bsf parityBit 
endif 
return 
endif 


pO II IIA FOR KK IO OK AK KK IK KK KK KK KK RK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KK KKK 


; The Receiver Routines are in File “rcvr.asm” 


PRK KK RRR RK KK KKK KKK KK KKK KEK KK KKK KK KR KKK KK KK KK KK RK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KK KK 


; GetChar Function 

; Receives a Byte Of Data 

: When reception is complete, _rcvOver Bit is cleared 

: The received data is in RxReg 

‘ Program Memory : 15 locations (17 locations if PARITY is used) 
; Cycles : 16 (18 if PARITY is USED) 


° 
sa 


pK RR RR I KK KK RK RK I KK KK KKK KKK KK KK KKK KK KK KK KK KKK KKK 


GetChar: 
bsf rcvOver ; Enable Reception, this bit gets reset on Byte Rcv Complete 


movilw DataBits+ StopBits 
movwf BitCount 


if PARITY ENABLE 
movilw 2 


movwt ExtraBitCount 


endif 
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0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
OO6A 
006B 


006C 
006D 
O06E 
OO6F 
0070 
0071 
0072 
0073 


0074 


0075 


0076 


0077 
0078 


1283 
1A05 
ZO77 
150F 
1683 
3008 
0081 
1283 


3090 


0081 


282E 


30FF 
0081 


foul nena 
bee 
bet 
bsf 
moviw 
movwt 


Knot 
Mee 


MOVaw 
movwet 
bef 
bsé 
retfie 


. 
4’ 


RxReg 

FrameErr 

ParityErr ; Init Parity & Framing Errors 

rpd 

OPTION SBIT ; Inc On Ext Clk Falling Edge 
option ; Set Option Reg Located In Page 1 
ie O50 ; make sure to select Page 0 

CxFF 

aie oie: ; A Start Bit will roll over RTCC & Gen INT 
ape On 

rtie ; Enable RTCC Interrupt 


; Enable Global Interrupt 


pRAKKKKKKKKKKKKKKKKKKKKKKKKKKKK KK KKK KKK KKK KK A KKK KKK RK KR KKK KKK KKK KKK KKK KK KKK KK KK KKK KKK KKK KK 


° 
av 


Internal Subroutine 


; entered from Interrupt Service Routine when Start Bit Is detected. 


. 
, 


: Program Memory : 14 locations 


H Cycles 


. 
7 


12 (worst case) 


PREKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK 


SBitDetected: 
bcf rpd 
btise: RX Pin ; Make sure Start Bit Interrupt is not a Glitch 
goto FalseStartBit ; False Start Bit 
DSL revProgress 
bsf pO 
movilw ( OPTION INIT | SBitPrescale) ; Switch Back to INT Clock 
movwf option ; Set Option Reg Located In Page 1 
bel rpod ; make sure to select Page 0 
LOAD RTCC (SBitRtccLoad), SBitPrescale 
if (UsePrescale == 0) 


moviw 
else 
movlw 


endif 


movwft 


goto 


. 
, 


_ FalseStartBit: 


moviw 
movwf 


=(SBLtRGCCLOad) + Cycle Oftsert 


-(SBitRtccLoad) + (Cycle Offsetl >> (SBitPrescale+1l) ) 
; Re Load RTICC init value + INT La 


rtcec ; Note that Prescaler is cleared when RICC is written 
RestoreiIntStatus 

OxFF 

rtce ; reload RTCC with OxFF for start bit detection 
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0079 


OO7A 
007B 
OO7C 


007D 
007K 
OO7E 


0080 


0081 
0082 
0083 
0084 
0085 
0086 


0087 
0088 


0089 
008A 


282E 


1683 
3008 
0081 


1283 
0805 
O08E 


3042 


0081 
0805 
060E 
3910 
1903 
2889 


0805 
008E 


OB90 
2891 


goto 


. 
a 


RestoreIntStatus 


PRK KKK KKK KKK KKK KKK KKK KKK KK KKK KR KK KK RK KK KK KKK RK KKK KKK AK KKK AK KKK KKK KKK KA KKK KKK KKKK KK KKK KK 


. 
7 


. 
a, 


Internal Subroutine 
7 entered from Interrupt Service Routine when Start Bit Is detected. 


7 Program Memory 


; Cycles 


. 
7 


28 locations ( 43 locations with PARITY enabled) 


24 Worst Case 


pRKKKKKKKK KKK KK KK KR KK KR RK KK KK KR KKK KR KR KR KKK RK KKK KK KK KK KK RK KK KKK KK KKK KKK KKK KKK KKK KKK KKK 


RcvNextBit: 
bsf rp0 
movlw (OPTION. INIT. |. RtcePrescale) ; 
movwf option : 
bcf rpod 
movft porta,w ; 
movwf RxTemp 

LOAD RTCC RtccPreLoad, RtccPrescale ; 


if (UsePrescale 
movilw 
else 
movilw 


endif 


movwf 
movf 
xorwf 
andlw 
btfsc 
goto 
SampleAgain: 
mové 
movwft 
PinSampled: 


-RtccPreLoad + 


Cycle Offset 


=RUCGPrelioad’ =~ (Cycle Orrsstl 


rtcc 
porta,w 
RxTemp, w 
RX MASK 

z 
PinSampled 


porta,w 
RxTemp 


if  _PARITY ENABLE 


movt 

btfsc 

goto 
endif 


decfsz 


goto 


. 
ay 


BitCount 
Zz 
RCVE OTS 


BitCount 
NextRevBit 


if | PARITY ENABLE 


ROVE Or 5: 


. 
v 


. 
, 


Switch Back to INT Clock 
Set Option Reg Located In Page 1 


read RX pin immediately into WREG 


Macro to reload RTCC 


>> (RtccPrescaletl1) ) 
Re Load RTCC init value + INT La 


Note that Prescaler is cleared when RTCC is written 


mask for only RX PIN (RA4) 


both samples are same state 


2 out of 3 majority sampling done 
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008B 
008C 
008D 
008E 
O08F 


0090 


0091 
0092 
0093 
0094 
0095 


282E 


1003 
1A0E 
1403 
OC8D 
282E 


decfsz ExtraBitCount 
goto RevParity 
endif 
_ RevStopBit 
ciss RX 
st SrameErr 
bet rtie 
bet rcvProgress 
bef rcvOver 
if _ PARITY ENABLE 
movt RxReg, w 
call GenParity 
movilw 0 
btrsce: “<parityeie 
moviw 0x10 
xorwf SerialStatus 
endif 
goto RestorelIntStatus 
_ NextRcevBit: 
bcf carry 
btise Rx 
bsf carry 
ret RxReg 
goto RestoretIntStatus 


. 
7 


if _PARITY ENABLE 


RevParity: 
bet 
btfsc 
bsf£ 
goto 

endif 


. 
lA 


ParityErr 

RX 

ParityErr 
RestoreIntStatus 


may be framing Error or Glitch 
disable further interrupts 


Byte Received, Can RCV/TXMT an other Byte 


Generate Parity, for Parity check 


to mask off Received Parity Bit in ParityErr 
_ParityErr bit is set accordingly 


may be a glitch, check again 


shift in received data 


Temporarily store PARITY Bit in  ParityErr 
Sample again to avoid any glitches 


SKK KKK KR KKK KKK KK KKKKKKKKKKKKK KKK KKK KK KKK KKK KKK KKK KKK KKKKKKKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KK 


PRK RRR KKK KKK RK RK KKK KKK KK KKK RK KK KK KK RK KKK KKK KK KKK KKK KK KKK KKK KK KKK KKK KKK KK KK KKK KKK KK KK KKK KK 


END 
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INTRODUCTION 


The PIC16C71 is a member of a new family of 8-bit 
microcontrollers, namely the PIC16CXX. The salient 
features of the PIC16C71 are: 


¢ Improved and enhanced instruction set 
¢ 14-bit instruction word 

¢ Interrupt capability 

¢ On-chip four channel, 8-bit A/D converter 


This application note demonstrates the capability of the 
PIC16C71. To make this application note easier for the 
end user, it has been broken down into four sub-sec- 
tions: 
Section 1: Implements the multiplexing of four 7 seg- 
ment LEDs with the PIC16C71. 
Implements the multiplexing of four 7 seg- 
ment LEDs as well as the sampling of a 
4x4 Keypad. 

Implements the multiplexing of four 7 seg- 
ment LEDs as well as the sampling of one 
A/D channel. 

Implements the multiplexing of four 7 seg- 
ment LEDs, sampling a 4x4 keypad and 
four A/D channels. 


Section 2: 


Section 3: 


Section 4: 


IMPLEMENTATION 


SECTION 1: MULTIPLEXING FOUR 7 
SEGMENT LED DISPLAYS 


Hardware 


The PIC16C71's I/O ports have an improved sink/source 
specification. Each I/O pin can sink up to 25 mA and 
source 20 mA, in addition total Port B source current is 
100 mA and sink current is 150 mA. Port A is rated for 
50 mA source current and 80 mA sink current. This 
makes the PIC16C71 ideal for driving 7 segment LEDs. 
Since the total number of I/O is limited to 13, the 8-bit 
Port B is used to drive the 8 LEDs, while external sink 
transistors or MOSFETs are used to sink the digit current 
(See Figure 1). Another alternative is to use ULN2003 
open collector sink current drivers, which are available 
in 16 pin DIP or very small S0-16 packages. Each 
transistor on the ULN2003 can sink a maximum of 500 
mA and the base drive can be directly driven from the 
Port A pins. 


FIGURE 1 - MULTIPLEXING FOUR 7 SEGMENT LEDS 
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Software 


The multiplexing is achieved by turning on each LED for 
a5 msec duration every 20 msec. This gives an update 
rate of 50 Hz, which is quite exceptable to the human eye 
as a Steady display. The 5 msec time base is generated 


by dividing the 4.096 MHz oscillator clock. The internal — 


prescaler is configured to be a divide by 32 and assigned 
tothe RTCC. The RTCC is pre-loaded with a value = 96. 
The RTCC will increment to FF and then roll over to 00 
after a period = (256-96)*(32*4/4096000) = 5 msec. 
When the RTCC rolls over, the RTIF flag is set and since 
the RTIE and GIE bits are enabled, an interrupt is 
generated. 


The software implements a simple timer which incre- 
ments at a 1 second rate. Every second, the 4 nibble 
(two 8-bit registers MsdTime and LsdTime) are 
incremented in a BCD format. The lower 4 bits of 
LsdTime correspond to the least significant digit (LSD) 
on the display. The high 4 bits of LsdTime correspond 
to the second significant digit of the display and so on. 
Depending on which display is turned on, the corre- 
sponding 4 bit BCD value is extracted from either 
MsdTime or LsdTime, and decoded to a 7 segment 
display. The RTCC interrupt is generated at a steady 
rate of 5 msec and given an instruction time of 1 us. The 
entire display update program can reside in the interrupt 
service routine with no chance of getting an interrupt 
within an interrupt. The Code listing for Section 1 is in 
Appendix A. 


SECTION 2: MULTIPLEXING FOUR 7 
SEGMENT LED DISPLAYS AND 
SCANNING A 4X4 KEYPAD 


Hardware 


A 4x4 keypad can be very easily interfaced to the 
PIC16C71's Port B (see Figure 2). Internal pull-ups on 
pins RB4 to RB7 can be enabled and disabled by setting 
the RBPU bit in the OPTION register. The internal pull- 
ups have a value of 20K at 5V (typical). In order to sense 
a low level at the input, the switch is "connected" to 
ground through a 2.2K resistor. A key hit normally lasts 
from 50 msec to as long as a person holds the key down. 
In order not to miss any key hits, the keypad is sampled 
every 20 msec (just after the update of the MSD). 


Software 


To sample the keypad, the digit sinks are first disabled. 
Port B is then configured with RB4-RB7 as inputs and 
RBO -RB3 as outputs driven high. The pull-ups on RB4- 
RB7 are enabled. Sequentially RBO to RB3 are made 
low while RB4 to RB7 are checked for a key hit (a low 
level). One key hit per scan is demonstrated in this 
program. Multiple key hits per scan can very easily be 
implemented. Once the key hit is sensed, a 40 msec 
debounce period elapses before key sampling is re- 
sumed. No more key hits are sensed until the present 
key is released. This prevents erroneous key inputs. 


The program basically inputs the key hit and displays its 
value as a hexadecimal character on the multiplexed 7- 
segment LEDs. The Code Listing for Section 2 is in 
Appendix B. 


FIGURE 2 - MULTIPLEXING FOUR 7 SEGMENT LEDS WITH A 4X4 KEYPAD 
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SECTION 3: MULTIPLEXING FOUR 7 
SEGMENT LED DISPLAYS AND THE 
A/D CHANNEL 0 


Hardware 


The four analog channels are connected to RAO-RAS. If 
any of these pins are used normally as digital I/O, they 
can momentarily be used as analog inputs. In order to 
avoid interference from the analog source, itis advisable 
to buffer the analog input through a voltage follower op 
amp, however, itis not always necessary. Figure 3A and 
3B show some typical configurations. In this application, 
the analog input is a potentiometer whose wiper is 
connected through an RC network to channel 0. The RC 
is necessary in order to smooth out the analog voltage. 
The RC does contribute to a delay in the sampling time, 
however the stability of the analog reading is greatly 
improved. 


Software 


The analog input is sampled every 20 msec. The digit 
sinks and the drivers are turned off i.e. Port A is config- 
ured as an input and Port B outputs are made low. A 
1msec settling time is allowed for the external RC 
network connected to the analog input to settle and then 
the A/D conversion is started. The result is read then 
converted from an 8-bit binary value to a 3 digit BCD 
value which is then displayed on the 7 Segment LEDs. 
The Code Listing for Section 3 is in Appendix C. 


FIGURE 3A - TYPICAL CONNECTION FOR 
ANALOG/DIGITAL INPUT 










Digital I/O 
PIC16C71 


Analog 
input 


FIGURE 3B - TYPICAL CONNECTION FOR 
ANALOG/DIGITAL INPUT 
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SECTION 4: MULTIPLEXING FOUR 7 
SEGMENT LED DISPLAYS WITH A 
4X4 KEYPAD AND 4 A/D CHANNELS 


Hardware 


This section essentially incorporated Sections 1, 2 and 
3 to give a complete four channel voltmeter. Figure 4 
shows a typical configuration. The analog channels are 
connected through individual potentiometers to their 
respective analog inputs and are sampled every 20 
msec in around robin format. The sampling rate can be 
increased to as fast as once every 5 msec if required. 
The keypad sampling need not be any faster than once 
every 20 msec. 


Software 


The program samples the analog inputs and saves the 
result in four consecutive locations starting at 
"ADVALUE", with channel 0 saved at the first location 
and soon. By default, channel 0 is displayed. If Key 1 
is pressed, channel 1 is displayed and so on. Key hits 
> 3 are ignored. The Code Listing for Section 4 is in 
Appendix D. 


Code Size . 
Section 1: Program Memory: 139 
DataMemory: = 6 
Section 2: Program Memory: 207 
Data Memory: 13 
Section 3: Program Memory: 207 
Data Memory: 17 
Section 4: Program Memory: 
Data Memory: 
Conclusion 


The 4 A/D channels on the PIC16C71 can be multi- 
plexed with digital I/O, thus reducing overall pin counts 
and improving I/O pin usage in an analog application. 


AUTHOR: Stan D'Souza, Logic Products Division 





FIGURE 4 - FOUR CHANNEL VOLTMETER WITH DISPLAY AND KEYPAD 
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APPENDIX A 


MPASM BO.50 


000C 
000D 
OOO 
OO0F 
0010 
0011 
0001 
0002 
0026 
0027 


0000 


0004 


0005 
0006 


0007 


0008 
0009 
OOOA 
000B 
000C 
000D 
000E 
QOOF 
0010 
0011 


0012 
0013 
0014 
0015 


2805 


281D 


2008 
2012 


2807 


1683 
3003 
0108 
0205 
0206 
1283 
0185 
0186 
1585 
0008 


0190 
0191 
1683 
3084 


PAGE 1 


PRKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KR KK KR KKK KKK KKK KKK KKK KKK 


;This program is to demonstrate how to multiplex four 7 segment LED 
;digits using a PIC16C71. The four digits will start at 0000 and 


;increment at a 1 sec rate up to 9999. 
;The LEDS are updated every 5 msec, 


for a multiplexing rate of 20 msec. 


;The RTCC timer is used in internal interrupt mode to generate the 5 msec. 


2 
, 


. 
7 


Stan D'Souza 5/8/93 


PRK KKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KK KK KKK KK KKK KK KKK KR KK KK RK RK KK KK KKK 


LIST P=16C71, F=INHX8M 


include "picreg.equ" 


. 
, 


TempC equ Ox0c 
TempD equ Ox0d 
TempE equ Ox0e 
Count equ Ox0f 
MsdTime equ Ox10 
LsdTime equ Ox1l 
OptionReg equ i 
PCL equ 2 
BcdMsd equ 26 
Bcd equ ZY 
org 0 


goto Start 


;temp general purpose regs 


;count 
rmost significant Timer 
;Least significant Timer 


;skip over interrupt vector 


org 4 

goto ServicelInterrupts 
Start 

call InitPorts 

call InitTimers 
loop 

goto loop 
InitPorts 


bsf STATUS, RPO 
movlw 3 

movwf ADCON1 
clrf TRISA 

CLEL TRISB 

bot STATUS, RPO 
clrf PORT A 
clrf PORT B 
bsf PORT_A,3 
return 


. 
, 


;select pg 1 

;make RAO-3 digital I/0 
; 4 

ymake RAO-4 outputs 
;make RBO-7 outputs 
;select page 0 

ymake all outputs low 

; / 

;enable MSB digit sink 


7The clock speed is 4.096Mhz. Dividing internal clk. by a 32 prescaler, 
;the rtcc will be incremented every 31.25uS. If rtcc is preloaded 

ywith 96, it will take (256-96)*31.25uS to overflow i.e. 5msec. So the 
;end result is that we get a rtcc interrupt every 5msec. 


InitTimers 
elrer MsdTime 
CLer LsdTime 
bsf STATUS, RPO 
moviw B'10000100' 


;clr timers 

; i 

PSELECE: 3G: <1 
PASSION (pS tO-<rtce 
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0016 
0017 
0018 
0019 
OO1A 
001B 
O01C 


001D 
OO1E 
OO1F 
0020 
0021 


0022 
0023 
0024 
0025 
0026 
0027 


0028 
0029 
002A 
002B 
002C 
002D 


002E 
002F 
0030 
0031 
0032 
0033 
0034 
0035 


0036 
0037 
0038 
0039 
003A 
003B 
003C 
003D 
003E 


003F 
0040 
0041 
0042 
0043 
0044 
0045 
0046 


0047 
0048 
0049 
OO4A 
004B 
004C 
004D 
004E 
O04F 


0081 
1283 
3020 
008B 
3060 
0081 
0009 


190B 
2822 
3020 
008B 
0009 


3060 
0081 
110B 
2028 
2050 
0009 


OAOF 
3AC8 
1903 
282E 
OA8F 
0008 


018F 
OALL 
390F 
3A0A 
1903 
2836 
OA91 
0008 


OE11 
390F 
3E01 
0091 
OE91 
3A0A 
1903 
283F 
0008 


0191 
OA10 
S90F 
3A0A 
1903 
2847 
OA90 
0008 


0E10 
390F 
3E01 
0090 
OE90 
3A0A 
1903 
0190 
0008 


movwf OptionReg 
bet STATUS, RPO 
movlw B'00100000' 
movwf INTCON 


moviw .96 
movwft RTCC 
retfie 


ServiceInterrupts 
btisc INTCON, RTIF 
goto ServiceRTCC 
movlw B'00100000' 
movwf INTCON 


retfie 
ServiceRTCC 
movilw 96 
movwft RTCC 
bcf INTCON, RTIF 
call IncTimer 
call UpdateDisplay 
retfie 


;The display is incremented every 
IncTimer 

incf Count,w 

xorlw .200 

btfsc STATUS, Z 


goto DoIncTime 
enCer Count 
return 

DoIncTime 
clrf Count 
incf LsdTime,w 


andlw 0Ox0OF 

xorlw Ox0a 

btfsc STATUS, Z 

goto IncSecondLsd 

ine£t LsdTime 

return 
IncSecondLsd 

swapf LsdTime,w 

andlw Ox0OF 

addlw 1 

movwf LsdTime 

swapf LsdTime 

xorlw Ox0a 

btfsc STATUS, Z 

goto IncThirdLsd 


return 
IncThirdLsd 

engl ws LsdTime 

incf MsdTime,w 


andlw 0Ox0F 
xorlw 0Ox0a 
btfsc STATUS, Z 
goto IncMsd 
Sevens MsdTime 
return 

IncMsd 
swapf MsdTime,w 
andlw 0Ox0F 
addlw 1 
movwft MsdTime 
swapf MsdTime 
xorlw Ox0a 
btfsc STATUS, Z 
GLyE MsdTime 
return 


ips = 32 

;select pg 0 

;enable rtcc interrupt 
spreload rtcc 

;start counter 


;rtcc interrupt? 
;yes then service 
;else clr rest 


;initialize rtcc 


;clr int flag 
;inc timer 
;update display 


200*5msec = 1 Sec. 


rine. -count 

2=. 200? 

;no then skip 
;else inc time 


sciLr count 

;get lsd 

;ymask high nibble 
; = 10? 

;no then skip 
jinc next lsd 
;else inc timer 


;get hi in low nibble 
;mask hi nibble 

jinc it 

;restore back 

; / 

; = 10? 

;no then skip 

;else inc next lsd 


sget 3rd’ sda 
ymask hi nibble 
;= 10? 

;no then skip 
7;else Msd 

;else inc timer 


;get hi in lo nibble 
s;mask hi nibble 

sinc timer 

;restore back 

; f 

;= 10? 

;no then skip 

;clr msd 


lt tn Nh i 
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. 
f 


, 











UpdateDisplay 
0050 0805 movt PORT _A,w ;present sink value in w 
0051 0185 Glrt PORT A ;disable all digits sinks 
0052 390F andlw 0Ox0f 
0053 O008C movwf TempC ;save sink value in tempC 
0054 160C bsf TempC, 4 ;preset for lsd sink 
0055 0C8C ert TempC ;determine next sink value 
0056 1C03 btfss STATUS, CARRY ;c=1? 
0057 118C bce TempC, 3 ;no then reset LSD sink 
0058 180C btfsc Tempc,0 ;else see if Msd 
0059 286B goto UpdateMsd ;yes then do Msd 
COOSA. 188C bcfisc Tempc,i ;see if 3rdisd 
OO5B 2866 goto Update3rdLsd ;yes then do 3rd Lsd 
005C 190C btfsc Tempc, 2 ;see if 2nd Lsd 
O05D 2861 goto Update2ndLsd zyes then do 2nd lsd 
UpdateLsd 
OO5E O811 movft LsdTime,w ;get Lsd in w 
O0OSF 390F andlw Ox0f ; / 
0060 286F goto DisplayOut jenable display 
Update2ndLsd 
0061 2080 call Chk2LsdZero rmsd = 0 & 2 Isd 0? 
0062 1D03 btfss STATUS, 2 ;yes then skip 
0063 OEF11 swapf LsdTime,w ;get 2nd Lsd in w 
0064 390F andlw 0Ox0f ;mask rest 
0065 286F goto DisplayOut ;enable display 
Update3rdLsd 
0066 2088 call ChkMsdZero ;ymsd = 0? 
0067 1D03 btfss STATUS; Z ryes then skip 
0068 0810 movt MsdTime,w ;get 3rd Lsd in w 
0069 390F andlw Ox0f ;mask low nibble 
006A 286F goto DisplayOut ;enable display 
UpdateMsd 
O06B OE10 swapf MsdTime,w ;get Msd in w 
O006C 390F andlw 0Ox0f ;ymask rest 
O006D 1903 btfsc STATUS, 2 ;msd != 0 then skip 
OO6E 300A movlw 0Ox0a 
DisplayOut 
OO6F 2074 call LedTable jget digit output 
0070 0086 movwf PORT B ;drive leds 
0071 O80C movf TempC, w ;get sink value in w 
0072 0085 movwf PORT A 
0073 0008 return 
LedTable 
0074 0782 addwf PCL ;add to PC low 
0075 343F retlw B'00111111' j;led drive for 0 
0076 3406 retlw B'00000110' ;led drive for 1 
0077 345B retlw B'01011011' ;led drive for 2 
0078 344F retlw B'01001111' ;led drive for 3 
0079 3466 retlw B'01100110' jled drive for 4 
OO7A 346D retlw B'01101101' j;led drive for 5 
007B 347D retlw B'01111101' ;led drive for 6 
OO07C 3407 retlw B'O00000111' ;led drive for 7 
OO7D 347F retlw B'O01111111' jled drive for 8 
OO7VE 3467 retlw B'01100111' ;led drive for 9 
OO7E 3400 retlw B'00000000' ;blank led drive 
Chk2LsdZero 
0080 2088 call ChkMsdZero ;msd = 0? 
0081 1D03 btfss STATUS,Z 7yes then skip 
0082 0008 return 7else return 
0083 OE11 swapf LsdTime,w ;get 2nd isd 
0084 390F andiw Ox0f ;ymask of LSD 
0085 1D03 btfss STATUS,2Z 70? then skip 
0086 0008 return 


Se 
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0087 340A retlw ° 10 ;else return with 10 
ChkMsdZero 
0088 0810 movft MsdTime, w ;get Msd in w 
0089 1D03 btfss STATUS, Z ;= 0? skip 
008A 0008 return ;else return 
OO08B 340A retlw . 10 ;ret with 10 
end 


ORE RE RP IS ARE I a PSF RUT PI TN A RT OT I I a PR A a RIN SEA 
DS00557A-page 8 © 1993 Microchip Technology Inc. 
3-164 


Four Channel Digital Voltmeter with Display and Keyboard 





Appendix B 
MPASM BO.50 PAGE 1 
PRAEKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KK KKK KKK KKK KK KK KK KKK KK KK 
;This program is to demonstrate how to multiplex four 7 segment LED 
;digits and a 4X4 keypad using a PIC16C71. 
;The four digits will start as ‘0000’ and when a key is hit 
;it is displayed on the 7 segment leds as a hex value 0 to F. The last 
;digit hit is always displayed on the right most led with the rest of 
;the digits shifted to the left. The left most digit is deleted. 
;The LEDS are updated every 20msec, the keypad is scanned at a rate of 20 
msec. 
;The RTCC timer is used in internal interrupt mode to generate the 5 msec. 
; Stan D’Souza 5/8/93 
pRKKKKKKKKKK KK KK KK KK KK KKK KK RK KK KK KK KK KKK KK KK KKK KKK KK KKK KKK KK KK KK KKK KK KK 
LIST P=16C71, F=INHX8M 
include “picreg.equ” 
000C TempC equ Ox0c ;temp general purpose regs 
0O00D TempD equ Ox0d 
OOOE TempE equ Oxde 
0020 PABuf equ 0x20 
0021 PBBuf equ Ox21 
OOOF Count equ Ox0f 7count 
0010 MsdTime equ 0x10 ymost significant Timer 
0011 LsdTime equ Ox11l ;Least significant Timer 
0012 KeyFlag equ Ox12 ;flags related to key pad 
0000 keyhit equ 0 ;bit 0 — key-press on 
0001 DebnceOn equ 1 ;bit 1 — debounce on 
0002 noentry equ Z ;no key entry = 0 
0003 ServKey equ 3 jbit 3 —> service key 
0013 Debnce equ 0x13 ;debounce counter 
0014 NewKey equ Ox14 
002F WBuffer equ Ox2£ 
O02E StatBuffer equ Ox2e 
0001 OptionReg equ i: 
0002 PCL equ 2 
push macro 
movwf WBuffer ;save w reg in Buffer 
swapf WBuffer ;swap it 
swapf STATUS, w ;get status 
movwf StatBuffer ;save it 
endm 
pop macro 
swapf StatBuffer,w ;restore status 
movwf STATUS F / 
swapf WBuffer,w ;restore W reg 
endm 
org 0 
0000 280D goto Start ;skip over interrupt vector 
org 4 
;It is always a good practice to save and restore the w reg, 
;and the status reg during a interrupt. 
push 
0004 OOAF movwf WBuffer ;save w reg in Buffer 
0005 OEAF swapf WBuffer ;swap it 
0006 O0E03 swapf STATUS,w ;get status 
0007 OOAE movwf StatBuffer ;save it 
0008 2036 call ServicelInterrupts 


RR EES SM SSE SSS A RS TE SAE EE OE GS DTN EL 
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0009 
OO0A 
000B 


000C 


000D 
OO0E 


OOOF 
0010 
0011 


0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
001A 
001B 
001C 
001D 
OO1E 
0O1F 


0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 


002A 
002B 
002C 
002D 
002E 
002F 
0030 
0031 
0032 
0033 
0034 
0035 


0036 
0037 
0038 
0039 


OE2E 
0083 
OE2F 


0009 


2020 
202A 


1992 
2012 
280F 


0814 
008E 
0E10 
39F0 
0090 
OE11 
390F 
0490 
OE11 
39F0 
040E 
0091 
1192 
0008 


1683 
3003 
0108 
0205 
0206 
E283 
0185 
0186 
1583 
0008 


0190 
0191 
0192 
1683 
3084 
0081 
1283 
3020 
008B 
3060 
0081 
0009 


190B 
283B 
018B 
168B 


pop 

swapf StatBuffer,w 
movwf STATUS 

swapf WBuffer,w 


retfie 
Start 
call InitPorts 
call InitTimers 
loop 


btfsc KeyFlag,ServKey 
call ServiceKey 
goto loop 


. 
ay 


;ServiceKey, does the software service 
;the ServKey flag is reset, to denote 


ServiceKey 
move NewKey,w 
movwf TempE 
swapf MsdTime,w 
andlw B’11110000' 
movwf MsdTime 
swapf LsdTime,w 
andlw B’00001111' 
iorwf MsdTime 
swapf LsdTime,w 
andlw  B’11110000' 
ilorwf TempE, w 
movwf LsdTime 


bet KeyFlag, ServKey 
return 

InitPorts 
bsf STATUS, RPO 


moviw 3 

movwf ADCON1 

renal agi TRISA 

Chik TRISS 

pet STATUS, RPO 
oo Bog POR. & 
clrt PORT B 

bsf PORT A, 3 
return 


;The clock speed is 4.096Mhz. 


;restore status 
; / 


;restore W reg 


' ;key service pending 


;yes then service 


for a keyhit. After a key service, 
a completed operation. 


;get key value 
;save in TempkE 
;move MSD out 

;clr lo nibble 
;save back 

;get Lsd 

;mask off lsd 

jyand left shift 3rd 
;get Lsd again 
;mask off 2nd 

yor with new lsd 
;make Lsd 

;reset service flag 


;select pg 1 

;make RAO-3 digital I/O 
; / 

;make RAO-4 outputs 
;make RBO-7 outputs 
;select page 0 

;make all outputs low 

; / 

;enable MSB digit sink 


Dividing internal clk. by a 32 prescaler, 


;the rtcc will be incremented every 31.25uS. If rtcc is preloaded 
swith 96, it will take (256-96)*31.25uS to overflow i.e. 5msec. So the 
;end result is that we get a rtcc interrupt every 5Smsec. 


InitTimers 

Cire MsdTime 
Caer: LsdTime 

on Big KeyFlag 

bsf STATUS, RPO 
movlw B’10000100'! 
movwf OptionReg 
bef STATUS, RPO | 
movilw B’00100000' 
movwft INTCON 


moviw .96 
movwft RTCC 
retfie 


ServiceInterrupts 
bELSC INTCON, RTIF 
goto ServiceRTCC 
eClret INTCON 
bsf INTCON, RTIE 





;clr timers 

; / 

polr ail flags 

peelect pa = i 

passign’ ps to rtce 

;ps = 32 

;select pg 0 

jenable rtcc interrupt 
;preload rtcc 

;start counter 


jriece <anterrupt? 
;yes then service 
;else clr all int 
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003A 0008 return 
ServiceRTCC 
003B 3060 movilw 196 sinitializge rtcc 
003C 0081 movwf RTCC 
003D 110B ber INTCON, RTIF ‘clr Ant. flag 
OO3E 1805 btfsc PORT A,0O ;if msb on then do 
O03F 2042 call ScanKkeys ;do a quick key scan 
0040 20Al1 call UpdateDisplay jupdate display 
0041 0008 return 
;ScanKeys, scans the 4X4 keypad matrix and returns a key value in 
;NewKey (0 - F) if a key is pressed, if not it clears the keyhit flag. 
;Debounce for a given keyhit is also taken care of. 
;The rate of key scan is 20msec with a 4.096Mhz clock. 
Scankeys 
0042 1C92 btfss KeyFlag, DebnceOn ;debounce on? 
0043 2848 goto Scanl ;no then scan keypad 
0044 OB93 decfsz Debnce ;else dec debounce time 
0045 0008 return jnot over then return 
0046 1092 bcf KeyFlag, DebnceOn ;over, clr debounce flag 
0047 0008 return jand return 
Scanl 
0048 208A call SavePorts ;save port values 
0049 30EF movlw B’11101111' ;init TempD 
004A 008D movwf TempD 
ScanNext 
004B 0806 movf PORT B,w ;read to init port 
004C 100B bce INTCON, RBIF ecole oft Lag 
004D OC8D jas ap TempD ;get correct column 
Q04E 1C03 btfss STATUS,C F1E carry set? 
OO04F 2862 goto NoKey ;no then end 
0050 0O80D movt TempD, w ;else output 
0051 0086 movwf PORT B ;low column scan line 
0052 0000 nop 
0053 1COB btfss INTCON, RBIF ;flag set? 
0054 284B goto ScanNext ;yno then next 
0055". 1812 btfsc KeyFlag,keyhit ;last key released? 
0056 2860 goto SKreturn sno then exit 
0057 1412 bsf KeyFlag,keyhit ;set new key hit 
0058 O06 swapf PORT _B,w ;read port 
0059 O08E movwf TempE ;save in TempE 
OO5A 2064 call GetKeyValue ;get key value 0 - F 
005B 0094 movwf NewKey ;save as New key 
GUsC.. 1592 bsf KeyFlag, ServKey ;set service flag 
O005D 1492 bsf KeyFlag, DebnceOn ;set flag 
OO5E 3004 movlw 4 
OO5F 0093 movwf Debnce ;load debounce time 
SKreturn 
0060 2097 call RestorePorts ;restore ports 
0061 0008 return 
NoKey 
0062 1012 bcf KeyFlag,keyhit polr. Flag 
0063 2860 goto SKreturn 


. 
t 





;GetKeyValue gets the key as per the following layout 


, 


; Coll Col2 Col3 Col3 
; (RB3) (RB2) (RB1) (RBO) 
eee 0 1 Z 3 
eas 4 5 6 7 
saaeaues 8 9 A B 
eer € D EB F 


RR A mR ET EE MS a a I I a I YB Te a NT Ee a ES SP ES 
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0064 
0065 
0066 
0067 
0068 
0069 
006A 
006B 
O006C 
006D 


O06E 
OO6F 
0070 
0071 
0072 
0073 


0074 


0075 
0076 


0077 


0078 
0079 
OO7A 
007B 
007C 
007D 
0O7E 
OO7F 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 


OO8A 
008B 
008C 
008D 
008E 
OO8F 
0090 
0091 
0092 
0093 
0094 
0095 
0096 


0097 
0098 
0099 


018C 
1D8D 
286E 
OA8C 
1DO0D 
286E 
OA8C 
1C8D 
286E 
OA8C 


1COE 
2878 
1C8E 
2877 
1D0E 
2875 


150C 


158C 
2878 


L50¢ 


080C 
0782 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
340A 
340B 


340C 


340D 
340E 
340F 


0805 
OOA0 
0185 
0806 
OOA1 
30FF 
0086 
1683 
1381 
30F0 
0106 
1283 
0008 


0821 
0086 
0820 
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. 
, 


GetKeyValue 
Slat TempC 
btfss TempD, 3 ;first column 


goto RowValEnd 

incf TempC 

btfss TempD, 2 ;second col. 
goto RowValEnd 

iInort TempC 


btfss TempD,1 ford: COL. 

goto RowValEnd 

incf TempC plast: col, 
RowValEnd 

btfss TempE, 0 PROD LOW? 

goto GetValCom ;yes then get 0,1,2&3 

btfss TempE, 1 ;2nd row? 

goto Get 4567 ;yes the get 4,5, 6&7 

btfss TempE, 2 ;3rd row? 

goto Get 89ab ;yes then get 8,9,a&b 
Getcdef 

bsf TempC, 2 ;set msb bits 
Get 89ab 

bsf TempC, 3 ; / 

goto GetValCom ;do common part 
Get 4567 

bsf TempC, 2 
GetValCom 

movft TempC,w 

addwf PCL 

retlw 0 

retlw 1 

retlw 2 

retlw 3 

retlw 4 

retlw 5 

retlw 6 

retlw 7 

retlw 8 

retlw 9 

retlw 0a 

retiw Ob 

retlw Oc 

retlw Od 

retlw Oe 

retlw Of 


. 
, 


;SavePorts, saves the porta and portb condition during a key scan 


;operation. 

SavePorts 
mov£ PORT A,w ;Get sink value 
movwf PABuf ;save in buffer 
one PORT_A ;disable all sinks 
movt PORT B,w 79st. Hore bd 
movwf PBBuf ;save in buffer 
moviw Oxff ;ymake all high 
movwf PORT _B ;on port b 
bsf STATUS, RPO ;select page 1 
loyoun OptionReg, 7 ;enable pull ups 
movlw B’11110000' ;port b hi nibble inputs 
movwf TRISB ;lo nibble outputs 
bef STATUS, RPO ;page 0 
return 


;RestorePorts, restores the condition of porta and portb after a 
;key scan operation. 


REStorePorts 
movt PBBuf,w ;get port n 
movwf PORT B 
movet PABuf,w ;get port a value 





in NN tA A i 
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009A 0085 movwf PORTA 
009B 1683 bsf STATUS, RPO ;select page 1 
009C 1781 bsf OptionReg, 7 ;disable pull ups 
009D 0205 CLE TRISA ;make port a outputs 
OO9E 0206 clrf TRISB jas well as PORTB 
O09F 1283 bet STATUS, RPO jpage 0 
OOAO 0008 return 
UpdateDisplay 
OOA1l 0805 movf PORT A,w ;present sink value in w 
OOA2 0185 Girt PORT A ;disable all digits sinks 
O0A3 390F andlw 0Ox0f 
O0A4 O08C movwf£ TempcC ;save sink value in tempC 
OOA5 160C bsf TempcC, 4 ;preset for lsd sink 
OOA6 OC8C EYE TempcC ;determine next sink value 
OOA7 1C03 btfss STATUS, CARRY ;c=1? 
OOA8 118C bert TempC, 3 ;no then reset LSD sink 
OOAQ9 180C btfsc TempC, 0 ;else see if Msd 
OOAA 28B8 goto UpdateMsd ;yes then do Msd 
OOAB 188C btfsc Tempc,1 ;see if 3rdLsd 
OOAC 28B5 goto Update3rduisd ;yes then do 3rd Lsd 
OOAD 190C btfsc Tempc,2 ;see if 2nd Lsd 
OOAE 28B2 goto Update2ndLsd ;yes then do 2nd lsd 
UpdateLsd 
OOAF O811 movft LsdTime,w ;get Lsd in w 
OOBO 390F andlw 0Ox0f ' / 
OOB1 28BA goto DisplayOut 
Update2ndLsd 
OOB2 OE11 swapf LsdTime,w ;get 2nd Lsd in w 
00B3 390F andlw 0Ox0f ;ymask rest 
O0OB4 28BA goto DisplayOut ;enable display 
Update3rdLsd 
0OB5 0810 move MsdTime,w ;get 3rd Lsd in w 
OOB6 390F andlw 0Ox0f ;mask low nibble 
OOB7 28BA goto DisplayOut ;enable display 
UpdateMsd 
0OB8 OEF10 swapf MsdTime,w ;get Msd in w 
O0B9 390F andlw Ox0f ;mask rest 
DisplayOut 
OOBA 20BF call LedTable ;get digit output 
OOBB 0086 movwf PORT B sdrive leds 
OOBC O80C movt TempC,w 7get sink value in w 
OOBD 0085 movwf PORT A 
OOBE 0008 return 
LedTable 
OOBF 0782 addwf PCL ;add to PC low 
00CO 343F retlw B’00111111' ;led drive for 0 
OOC1 3406 retlw B’00000110' jled drive for 1 
00C2 345B retlw  B’01011011' sled drive for 2 
00C3 344F retlw B’01001111' ;led drive for 3 
00C4 3466 retlw B’01100110' ;led drive for 4 
00C5 346D retlw B’01101101' ;led drive for 5 
00Cé6é 347D retlw B’01111101' j;led drive for 6 
00C7 3407 retlw B’00000111' ;led drive for 7 
00C8 347F retlw B’01111111' ;led drive for 8 
00C9 3467 retlw B’01100111' ;led drive for 9 
OOCA 3477 retlw B’01110111' ;led drive for A 
OOCB 347C retlw B’01111100' ;led drive for b 
O0CC 3439 retlw B’00111001' ;led drive for C 
OOCD 3455 retlw B’01011110' jled drive for d 
O0CE 3479 retlw B’01111001' ;led drive for E 
OOCE 3471 retlw B’01110001' ;led drive for F 
end 
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Appendix C 


MPASM BO.50 


0026 
0027 
OO00C 
000D 
OOOE 
0020 
0021 
OOOF 
0010 
0011 
0012 
0005 
O02F 
002E 
0001 
0002 


0000 280D 


0004 OOAF 
0005 OEBAF 
0006 O03 
0007 OOAE 


0008 2039 


0009 OE2E 
OO0A 0083 


PAGE 1 


PRKKRKKKKKKK KKK KKK KKK KKK KK KK KK KKKK KKK KKK KKK KKK KKKKKKKKKKKEKKKK KKK KKK KKK 


;This program is to demonstrate how to multiplex four 7 segment LED 
;and sample chO of the a/d in a PIC16C71. The a/d-value is displayed 
jas a 3 digit decimal value of the a/d input (0 - 255). 


;The LEDS are updated every 20msec, 


the a/d is sampled every 20 msec. 


;The RTCC timer is used in internal interrupt mode to generate the 5 msec. 


. 
tA 


° 
, 


Stan D’Souza 5/8/93 


PRR KKKKKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK 


LIST P=16C71, 


include 


BcdMsd 
Bcd 
TempC 
TempD 
TempkE 
PABuf 
PBBuf 
Count 
MsdTime 
LsdTime 
ADF lag 
ADOver 
WBuffer 
StatBuffer 
OptionReg 
PCL 
push 
movwf 
swapf 
swapf 
movwft 
endm 
pop 
swapf 
movwt 
swapf 
endm 


.e 
, 


org 
goto 


org 


“picreg.equ” 
equ 26 
equ 27 
equ Ox0c 
equ Ox0d 
equ Ox0e 
equ 0x20 
equ 0x21 
equ Ox0f 
equ 0x10 
equ Ox11 
equ Ox12 
equ Bt. 6 
equ Ox2f 
equ Ox2e 
equ 1 
equ 2 
macro 
WBuffer 
WBuffer 
STATUS,w 
StatBuffer 
macro 
StatBuffer,w 
STATUS 
WBuffer,w 
0 
Start 
4 


F=INHX8M 


;temp general’ purpose regs 


,;count 

ymost Significant Timer 
;Least significant Timer 
;flags related to key pad 
sbit 5 — a/d over 


;save w reg in Buffer 


;swap it 
;get status 
;save it 


;restore status 
; / 
;restore W reg 


;skip over interrupt vector 


zIt is always a good practice to save and restore the w reg, 
;yand the status reg during a interrupt. 


push 

movwf 
swapf 
swapf 
movwft 


call 


pop 
swapf 


movwf 


WBuffer 
WBuffer 
STATUS,w 
StatBuffer 


ServiceInterrupts 


StatBuffer,w 


STATUS 


;save w reg in Buffer 


;Sswap it 
;get status 
;save it 


j;restore status 


/ 


rrr rr en eter tS PS i series 
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000B 


000C 


O0O00D 
OOO 
OOOF 


0010 
0011 
0012 


0013 
0014 
0015 
0016 
0017 
0018 
0019 
OO1A 
001B 
‘OO01C 
001D 
OO1E 
O01F 
0020 


0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
002A 


002B 
002C 
002D 
002E 
002F 
0030 
0031 
0032 
0033 
0034 
0035 


0036 
0037 
0038 


OE2F 


0009 


2021 
202B 
2036 


1A92 
2013 
2810 


1088 
0008 
0809 
OOA1 
01A0 
20AD 
0824 
0091 
0823 
0090 
1088 
1008 
1292 
0008 


1683 
3003 
0108 
0205 
0206 
1283 
0185 
0186 
L989 
0008 


0190 
0191 
1683 
3084 
0081 
£283 
3020 
008B 
3060 
0081 
0009 


30C8 
0088 
0008 


swapf 
retfie 


Start 
call 
call 
call 
loop 
btfsce 
call 
goto 
UpdateAd 
btfss 
return 
movft 
movwf 
clrf 
call 
movft 
movwf 
movt 
movwt 
bcf 
bet 
bcf 
return 
InitPorts 
bsf 
movlw 
movwt 
Girt 
elxrt 
ber 
Clrer 
clrf 
bsf 
return 


. 
7 


;The clock speed is 4.096Mhz. 


WBuffer,w 


InitPorts 
TInitTimers 
InitAd 


ADFlag, ADOver 
UpdateAd 
loop 


ADCONO, ADIF 


ADRES, W 
L byte 

H byte 

B2_BCD 

R2,W 

LsdTime 

R1,W 

MsdTime 
ADCONO, ADIF 
ADCONO, ADON 
ADFlag, ADOver 


STATUS, RPO 
3 

ADCON1 
TRISA 
TRISB 
STATUS, RPO 
PORT A 
PORT B 
PORT A,3 


;restore W reg 


ja/d over? 
;yes then update 


;a/d done? 
;no then leave 
;get a/d value 


;get LSd 

;save in LSD 

;get Msd 

;save in Msd 

;clr interrupt flag 
sturn. off ‘a/d 

role <f£lag 


;select pg 1 

;make RAO-3 digital I/0 
; / 

;make RAO-4 outputs 
;make RBO-7 outputs 
;select page 0 

;ymake all outputs low 

; / 

;enable MSB digit sink 


Dividing internal clk. by a 32 prescaler, 


;the rtcc will be incremented every 31.25uS. If rtcc is preloaded 


jwith 96, it will take 


(256-96) *31.25uS to overflow i.e. 5msec. So the 


rend result is that we get a rtcc interrupt every 5msec. 


InitTimers 
Clre 
eLrr 
bsf 
moviw 
movwft 
DCE 
movilw 
movwt 
moviw 
movwf 
retfie 


InitAd 
movlw 
movwft 
return 


MsdTime 
LsdTime 
STATUS, RPO 
B’10000100' 
OptionReg 
STATUS, RPO 
B’00100000' 
INTCON 

.96 

RTCC 


BY TLOOT O00" 
ADCONO 


;clr timers 

; / 

;select pg 1 

jassign ps to rtcc 

ips = 32 

;select pg 0 

;yenable rtcc interrupt 
;preload rtcc 

7start counter 


Finite. «asa 


rr i ni tS 
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0039 
003A 
003B 
003C 
003D 


003E 
003F 
0040 
0041 
0042 
0043 
0044 


0045 
0046 


0047 
0048 
0049 
004A 
004B 


004C 
004D 
004E 
004F 
0050 
0051 
0052 
0053 
0054 
0055 


0056 


0057 
0058 
0059 


OO5A 
005B 
005C 
005D 
OO5E 
OOSF 
0060 
0061 
0062 
0063 
0064 
0065 
0066 


190B 
283E 
018B 
168B 
0008 


3060 
0081 
110B 
1c05 
2045 
2071 
0008 


205A 
204C 


1908 
2847 
1692 
2067 
0008 


0186 
1683 
300F 
0105 
1283 
1408 
307D 
2056 
1508 
0008 


008C 


OB8C 
2857 
0008 


0805 
OOAO 
0185 
0806 
00A1 
30FF 
0086 
1683 
1381 
30F0 
0106 
1283 
0008 


° 
f 


ServiceInterrupts 


btfsc 
goto 
olrt 
bsf 
return 
ServiceRTCC 
moviw 
movwft 
bcf 
btfss 
call 
call 
return 
SampleAd 
call 
call 
AdDone 
btfsc 
goto 
bsf 
call 
return 


DoAd 
roms ti 
bsf 
moviw 
movwf 
bert 
bsf 
movilw 
call 
bsf 
return 


Wait 
movwft 
Next 
decfsz 
goto 
return 


. 
cf 


INTCON, RTIF 
ServiceRTCC 
INTCON 

INTCON, RTIE 


- 96 

RTCC 

INTCON, RTIF 
PORT _A,0 
SampleAd 
UpdateDisplay 


SavePorts 
DoAd 


ADCONO, GO 
AdDone 
ADFlag, ADOver 
RestorePorts 


PORT B 
STATUS, RPO 
Ox0f 

TRISA 
STATUS, RPO 
ADCONO, ADON 
“E25 

Wait 
ADCONO, GO 


TempC 


TempC 
Next 


;SavePorts, saves the porta and 


;Operation. 

SavePorts 
movf 
movwf 
Girt 
movt 
movwf 
moviw 
movwft 
bsf 
bet 
moviw 
movwft 
bet 
return 


;RestorePorts, 


PORT _A,w 
PABuf 
PORT A 
PORT _B,w 
PBBuf 

Oxff 

PORT _B 
STATUS, RPO 
OptionReg, 7 
B’11110000' 
TRISB 
STATUS, RPO 


;key scan operation. 


portb 


restores the condition 


;rtcce interrupt? 
;yes then service 


jinitialize rtcc 


sole: ant. tleg 

;last digit? 

;then sample a/d 
;else update display 


;do a ad conversion 


jad done? 

;no then loop 

;set a/d over flag 
;restore ports 


;turn off leds 
;select pg 1 
;make port a hi-Z 


; / 
;select pg 0 
;start a/d 


;start conversion 


;store in temp 


condition during a key scan 


;Get sink value 
;save in buffer 
;Gdisable all sinks 
;get port b 

;save in buffer 


;make all high 


von: pore 5b 

;select page 1 

;enable pull ups 

sport b hi nibble inputs 
;lo nibble outputs 

;page 0 


of porta and portb after a 


A earner Rss A 
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0067 
0068 
0069 
OO6A 
006B 
006C 
006D 
006E 
OO6F 
0070 


0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
OO7A 
007B 
007C 
007D 
OO7E 


OO7F 
0080 
0081 


0082 
0083 
0084 
0085 
0086 


0087 
0088 
0089 
008A 
008B 


008C 
008D 
008E 
O08F 


0090 
0091 
0092 
0093 
0094 


0095 
0096 
0097 
0098 
0099 
OO9A 
009B 
009C 
009D 
009 
O09F 


0821 
0086 
0820 
0085 
1683 
1781 
0205 
0206 
1283 
0008 


0805 
0185 
390F 
008C 
160C 
OC8C 
1C03 
118C 
180C 
288C 
188C 
2887 
190C 
2882 


0811 
390F 
2890 


20A1 
1D03 
OE11 
390F 
2890 


20A9 
1D03 
0810 
390F 
2890 


0E10 
390F 
L208 
300A 


2095 
0086 
080C 
0085 
0008 


0782 
343F 
3406 
345B 
344F 
3466 
346D 
347D 
3407 
347F 
3467 


RestorePorts 
movt 
movwft 
movft 
movwft 
bsf 
bsf 
real lian 3 
Clre£t 
bcf 


return 


UpdateDisplay 
movft 
Girt 
andlw 
movwf 
bsf 
rrf 
btfss 
bef 
btfse 
goto 
btfsc 
goto 
beLSc 
goto 
UpdateLsd 
movft 
andlw 
goto 
Update2ndLsd 
call 
btfss 
swapf 
andlw 
goto 
Update3rdLsd 
call 
btfss 
movft 
andlw 
goto 
UpdateMsd 
swapf 
andlw 
btfsc 
movlw 
DisplayOut 
call 
movwft 
movft 
movwt 


return 


LedTable 
addwf 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 


PBBuf,w 
PORT B 
PABuf,w 
PORT_A 
STATUS, RPO 
OptionReg, 7 
TRISA 
TRISB 
STATUS, RPO 


PORT _A,w 
PORT A 

Ox0f 

TempC 
TempC, 4 
TempC 
STATUS, CARRY 
TempC, 3 
TempC, 0 
UpdateMsd 
TempC, 1 
Update3rdLsd 
TempC, 2 
Update2ndLsd 


LsdTime,w 
Ox0f 
DisplayOut 


Chk2LsdZero 
STATUS, 4 
LsdTime,w 
Ox0f 
DisplayOut 


ChkMsdZero 
STATUS, Z 
MsdTime,w 
Ox0f 
DisplayOut 


MsdTime,w 
Ox0f 
STATUS,Z 
Ox0a 


LedTable 
PORT _B 
TempC, w 
PORT_A 


PCh 

BOOTLE? 
B’00000110' 
BeOLoL Lod * 
B oTooltTiit 
BYOLlloollo-* 
BY OL101101" 
Broil EEO. 
B’00000111' 
BY Olde 
B’01100111' 


;get port n 
;get port a value 


;select page 1 
;disable pull ups 
;make port a outputs 
;as well as PORTB 
jpage 0 


;present sink value in w 
;disable all digits sinks 


;save sink value in tempC 
;preset for lsd sink 
;determine next sink value 
;c=1? 

;no then reset LSD sink 
;else see if Msd 

7;yes then do Msd 

;see if 3rdLsd 

;yes then do 3rd Lsd 

;see if 2nd Lsd 

;yes then do 2nd lsd 


;get Lsd in w 
; f 
;enable display 


;msd = 0 & 2 I1sd 0? 
;yes then skip 

;get 2nd Lsd in w 
;mask rest 

;enable display 


smsd = 0? 

;yes then skip 
;get 3rd Lsd in w 
;mask low nibble 
;enable display 


;get Msd in w 
j;mask rest 
;msd != QO then skip 


;get digit output 
;drive leds 
;get sink value in w 


;add to PC low 
;led drive for 
;led drive for 
;led drive for 
;led drive for 
j;led drive for 
;led drive for 
;led drive for 
jled drive for 
;led drive for 
;led drive for 


WO OnAD OO SP WN FPF © 


rere rrr rennet rE Rn 
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OOAO 


OOA1 
OOA2 
00A3 
O0A4 
OOA5 
OOA6 
OOA7 
OO0A8 


OOA9 
OOAA 
0OAB 
OOAC 


0026 
0027 


0020 
0021 
0022 
0023 
0024 


OOAD 
OOAE 
OOAF 
OOBO 
OOB1 
OOB2 
00B3 
00B4 
OOB5 
OOB6 
00B7 


00B8 
OOB9 
OOBA 


O0OBB 
OOBC 
OOBD 


OOBE 
OOBF 
00CO 


00C1 
00C2 
00C3 


00C4 


00C5 
00C6 
00C7 
00C8 
00C9 
O0OCA 
0OCB 
OO0CC 


3400 


20A9 
1D03 
0008 
0E11 
390F 
1D03 
0008 
340A 


0810 
1D03 
0008 
340A 


1003 
3010 
QOA6 
O1A2 
01A3 
01A4 
ODA1 
ODAQ 
ODA4 
ODA3 
ODA2 


OBA6 
28BB 
3400 


3024 
0084 
20C5 


B0Z3 
0084 
20C5 


3022 
0084 
20C5 


28B3 


3003 
0700 
OOA7 
19A7 
0080 
3030 
0700 
OOA7 


° 
v 


. 
a, 


retlw 


Chk2LsdZero 


call 
btfss 
return 
swapf 
andlw 
btfss 
return 
retlw 


ChkMsdZero 


count 

temp 

H byte 
L. byte 
RO 


Rl 
R2 


B2_BCD 


loop16 


ad jDEC 


. 
, 


adjBCD 


movt 
btfss 
return 
retlw 


equ 
equ 


equ 
equ 
equ 
equ 
equ 


ber 
movilw 
movwf 
CLret 
elrtr 
Glee 
mir 
UE 
rlf 
clft 
pl pa 


decfsz 
goto 
RETLW 


moviw 
movwt 
call 


movilw 
movwt 
call 


moviw 
movwf 
call 


goto 


movlw 
addwf 
movwft 
btfsc 
movwt 
movilw 
addwf 
movwft 


B’00000000' 


ChkMsdZero 
STATUS,Z 


LsdTime,w 
Ox0f 
STATUS, Z 


“10 


MsdTime, w 
STATUS, Z 


.10 


26 
27 


20 
21 
ae 
2S 
24 


STATUS, 0 
kG 
count 
RO 

Rl 

R2 
L_byte 
H_byte 
R2 

R1 

RO 


count 
ad jJDEC 
0 


R2 
FSR 
adjBCD 


R1 
FSR 
adjBCD 


RO 
FSR 
adjBCD 


loop16 


0,W 
temp 
temp, 3 


30 
0,W 
temp 


;blank led drive 


;msd: = 0? 

syes then skip 
;else return 
;get 2nd lsd 
;mask of LSD 
;0? then skip 


;else return with 10 


;get Msd in w 


;= 0? skip 


;else return 


;ret with 10 


; RAM Assignments 


; clear the carry bit 


; test if result > 7 


tn en ra 
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QOOCD 1BA7 btfisc 


temp, 7 ; test if result > 7 
OOCE 0080 movwf 0 ; save as MSD 
OOCF 3400 RETLW 0 
end 
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APPENDIX D 
MPASM BO0.50 PAGE 1 
PRKKKKKKKKKKKKK KKK KKK KKK KKK KKK KK KKK RK KKK KK KKK KK KK KKK KKK KKK KKK KK KKK KK KK 
;This program is to demonstrate how to multiplex four 7 segment LED 
;digits and a 4X4 keypad using a PIC16C71, along with 4 channels of A/D. 
;At start the display reads the A/D value of channel 0. When a key is hit 
;the A/D value of the corresponding channel's 0 to 3 is displayed. 
;All key hits >= 4 are ignored. 
;The LEDS are updated every 20msec, the keypad is scanned at a rate of 20 msec. 
;The RTCC timer is used in internal interrupt mode to generate the 5 msec. 
; | Stan D’Souza 5/8/93 
RRA KK RK RK AK KK KKK KKK KKK KKK KKK KK KK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KK 
LIST P=16C71, F=INHX8M 
include “picreg.equ” 
000C TempC equ Ox0c ;temp general purpose regs 
000D TempD equ 0x0d 
OOOE TempE equ Ox0e 
0020 PABuf equ 0x20 
0021 PBBuf equ Ox21 
OOOF Count equ OxO0f ;count 
0010 MsdTime equ 0x10 ;ymost Significant Timer 
0011 LsdTime equ Ox11 ;Least significant Timer 
0012 Flag equ Ox12 ;general purpose flag reg 
0001 #define keyhit Flag,0 ;bit 0 —> key-press on 
0002 #define DebnceOnFlag,1 sbit 1 -> debounce on 
0003 #define noentry Flag, 2 ;no key entry = 0 
0004 #define ServKey Flag, 3 ;bit 3 -> service key 
0005 #define ADOver Flag,4 jbit 4 —> a/d conv. over 
0013 Debnce equ 0x13 ;debounce counter 
0014 NewKey equ 0x14 
0016 ADTABLE equ 0x16 74 locations are reserved here 
;from 0x16 to O0x19f 
002F WBuffer equ Ox2t 
002E StatBuffer equ Ox2e 
0001 OptionReg equ 1 
0002 PCL equ Z 
push macro 
movwf WBuffer ;save w reg in Buffer 
swapf WBuffer ;Swap it 
swapf STATUS, w ;get status 
movwft StatBuffer ;save it 
endm 
pop macro 
swapf StatBuffer,w ;restore status 
movwf STATUS ; / 
swapf WBuffer,w ;restore W reg 
endm 
org 0 
0000 280D goto Start ;skip over interrupt vector 
org 4 
;It is always a good practice to save and restore the w reg, 
yand the status reg during a interrupt. 
push 
0004 OOAF movwt WBuffer ;save w reg in Buffer 
0005 OEAF swapf WBuffer ;swap it 


SA Rs IS a ae TN OO a a a A RS BT a EE EN I eT rr PE PIS EN ID 
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0006 
0007 


0008 


0009 
OOOA 
000B 


000C 


000D 
QOOK 
OOOF 


0010 
0011 
0012 
0013 
0014 


0015 
0016 
0017 
0018 
0019 
001A 
001B 
001C 
001D 
001E 
OO1F 
0020 
0021 
0022 
0023 
0024 
0025 


0026 
0027 
0028 
0029 
002A 
002B 
002C 
002D 
002E 
002F 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 


0038 
0039 
003A 


0E03 
OOAE 


204E 


OE2E 
0083 
OE2F 


0009 


2038 
ZOBKA 
2042 


1992 
2015 
1A12 
2026 
2810 


0814 
3C03 
1C03 
0008 
3016 
0714 
0084 
0800 
OOA1 
01A0 
2102 
0824 
0091 
0823 
0090 
ble 
0008 


0808 
008C 
3008 
0708 
1A88 
30C0 
0088 
3016 
0084 
OD8C 
OD8C 
ODOC 
3903 
0784 
0809 
0080 
E2LZ 
0008 


1683 
3003 
0088 


swapf 
movwf 


call 
Pop 
swapf 
movwft 
swapf 


retfie 
Start 
call 
call 
call 
loop 

btfsc 
call 
btfsc 
call 
goto 


;ServiceKey, does the 


;the ServKey flag is reset, 


ServiceKey 
movft 
sublw 
btfss 
return 
moviw 
addwf 
movwf 
movft 
movwf 
clirf 
call 
movt 
movwft 
movf 
movwft 
bef 
return 


. 
, 


STATUS,w 
StatBuffer 


ServiceInterrupts 


StatBuffer,w 


STATUS 
WBuffer,w 


InitPorts 
initAd 
InitTimers 


ServKey 
ServiceKey 
ADOver 
ServiceAD 
loop 


software service 
to denote 


NewKey, w 
3 
STATUS,C 


ADTABLE 
NewKey, w 
FSR 

O,w 
L_byte 
H byte 
B2_BCD 
R2,W 
LsdTime 
R1,W 
MsdTime 
ServKey 


;get status 
;save it 


;restore status 
: / 
, 


;restore W reg 


;key service pending 
;yes then service 
ja/d pending? 

;yes the service a/d 


for a keyhit. After a key service, 
a completed operation. 


;get key value 
rkey <> 32 

;no then skip 
;else ignore key 
;get top of table 
;add offset 

7iInLt; FSR 

;get a/d value 


;get LSd 

;save in LSD 

;get Msd 

;save in Msd 

;reset service flag 


;This rountine essentially loads the ADRES value in the table location 
;determined by the channel offset. 


jin location ADTABLE. 

ServiceAD 
movt 
movwft 
moviw 
addwf 
btfsc 
moviw 
movwft 
moviw 
movwft 
rlf 
rl1lf 
rlt 
andlw 
addwf 
movft 
movwf 
bet 
return 

InitPorts 
bsf 
movilw 
movwt 


ADCONO,w 
TempC 
B’00001000' 
ADCONO,w 
ADCONO, 5 
B’11000000' 
ADCONO 
ADTABLE 
FSR 

TempC 
TempC 
TempC,w 

3 

FSR 
ADRES, w 

0 

ADOver 


STATUS, RPO 
8 
ADCON1 


If channel O then ADRES is saved 
If channel 1 then ADRES 


is saved at ADTABLE + 1 and so on. 


;get adcond 

;save in temp 

;select next channel 

; / 

sif <= ch3 

;select ch0 

;now load adres in the table 


;load FSR with top 


;get in w reg 

;ymask off all but last 2 
;add offset to table 
;get a/d value 

;load indirectly 

;clear flag 


pselect. pg. 1 
;make RAO-3 digital I/0 
; / 


rt rr SSS c= St A NACE 
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003B 0185 Cleft ' TRISA ;make RAO-4 outputs 
003C 0186 eler TRISB ;make RBO-7 outputs 
003D 1283 bef STATUS, RPO ;select page 0 

O03E 0185 cir PORT -A ;make all outputs low 
003F 0186 Cire PORT B ; / 

0040 1585 bsf PORT A, 3 ;enable MSB digit sink 
0041 0008 return 


;The clock speed is 4.096Mhz. Dividing internal clk. by a 32 prescaler, 
;the rtcc will be incremented every 31.25uS. If rtcc is preloaded 
;with 96, it will take (256-96)*31.25uS to overflow i.e. 5Smsec. So the 


;end result is that we get a rtcc interrupt every 5msec. 


InitTimers 
0042 0190 CLer MsdTime ;clr timers 
0043 0191 clre LsdTime ; / 
0044 0192 elre Flag jolr all. flags 
0045 1683 bsf STATUS, RPO ;select pg 1 
0046 3084 moviw B’10000100' jassign ps to rtcc 
0047 0081 movwf OptionReg ;ps = 32 
0048 1283 ber STATUS, RPO ;select pg 0 
0049 3020 movilw B’00100000' ;enable rtcc interrupt 
004A 008B movwf INTCON ; 
004B 3060 moviw 96 ;preload rtcc 
004C 0081 movwf RTCC ;start counter 
004D 0009 retfie 
ServicelInterrupts 
OO4E 190B btfisce INTCON, RTIF ;rtcc interrupt? 
O04F 2853 goto ServiceRTCC ;yes then service 
0050 018B elre INTCON ;else clr all int 
0051 168B bsf INTCON, RTIE 
0052 0008 return 
ServiceRTCC 
0053 3060 moviw .96 finitialize rtec 
0054 0081 movwf RTCC 
0055. -L0B bef INTCON, RTIF reli an. “blag 
0056 1805 btfsc PORT A, 0 ;if msb on then do 
0057 205C call Scankeys ;do a quick key scan 
0058 1985 bEisc PORT A, 3 7if isb on then do 
0059 20ED call SampleAd ;do a/d sample 
OO5A 20BB call UpdateDisplay ;update display 
005B 0008 return 
;ScanKeys, scans the 4X4 keypad matrix and returns a key value in 
;NewKey (0 - F) if a key is pressed, if not it clears the keyhit flag. 
;Debounce for a given keyhit is also taken care of. 
;The rate of key scan is 20msec with a 4.096Mhz clock. 
Scankeys 
O005C 1C92 btfss DebnceOn ;debounce on? 
OO5D 2862 goto Scanl ;no then scan keypad 
OO5E O0B93 decfsz Debnce ;else dec debounce time 
OO5F 0008 return ;not over then return 
0060 1092 bcf DebnceOn ;over, clr debounce flag 
0061 0008 return ;and return 
Scanl 
0062 20A4 call SavePorts ;save port values 
0063 30EF movlw b= Bal es 3 @ Us ;init TempD 
0064 O08D movwf TempD 
ScanNext 
0065 0806 movet PORT _B,w ;read to init port 
0066 100B bef INTCON, RBIF ;clr flag 
0067 OC8D ere TempD ;get correct column 
0068 1C03 btfss STATUS,C ;if carry set? 
0069 287C goto NoKey ;no then end 
OO6A O80D movft TempD, w ;else output 
O06B 0086 movwf PORT B ;low column scan line 
006C 0000 nop 
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Q06D 1COB btfss INTCON, RBIF ;flag set? 
OO6E 2865 goto ScanNext ;no then next 
OO6F 1812 btEsc keyhit j;last key released? 
0070 287A goto SKreturn sno then exit 
0071 1412 bsf keyhit ;set new key hit 
0072 OE06 swapf PORT _B,w ;read port 
0073 OO08E movwf TempE ;save in TempE 
0074 207E call GetKeyValue ;get key value 0 - F 
0075 0094 movwt NewKey ;save as New key 
0076 1592 bsf ServKey ;set service flag 
0077 1492 bsf DebnceOn ;set flag 
0078 3004 moviw 4 
0079 0093 movwf Debnce ;load debounce time 
Skreturn 
OO7A 20B1 call RestorePorts ;restore ports 
007B 0008 return 
NoKey 
OO07C 1012 bcf keyhit ;clr flag 
007D 287A goto SKreturn 


;GetKeyValue gets the key as per the following layout 


. 
v 





; Coll Col2 Col13 Col3 
; (RB3) (RB2) (RB1) (RBO) 
; Rowl (RB4) 0 1 2 3 
; Row2 (RB5) 4 5 6 7 
; Row3 (RB6) 8 9 A B 
; Row4 (RB7) Cc D E F 
GetKeyValue 
O07E 018C Cire TempC 
OO7F 1D8D btfss TempD, 3 ;first column 
0080 2888 goto RowValEnd 
0081 OA8C inet TempC 
0082 1D0D btfss TempD, 2 ¢seécond. col. 
0083 2888 goto RowValEnd 
0084 OA8C Le E TempC 
0085 1C8D btfss TempD, 1 7ord ol, 
0086 2888 goto RowValEnd 
0087 OA8C LHeE TempcC plase -col: 
RowValEnd 
0088 1COE btfss TempE, 0 ;top row? 
0089 2892 goto GetValCom ;yes then get 0,1,2&3 
008A 1C8E btfss TempE, 1 ;2nd row? 
008B 2891 goto Get4567 ryes the get 4,5, 6&7 
008C 1D0E btfss TempE, 2 ;3rd row? 
O08D 288F goto Get 89ab ;yes then get 8,9,a&b 
Getcdef 
OO08E 150C bsf TempcC, 2 ;set msb bits 
Get 89ab 
OO8F 158C bsf TempC, 3 ; if 
0090 2892 goto GetValCom ;do common part 
Get 4567 
0091. 150C bsf TempC, 2 
GetValCom 
0092 OQ80C movf TempC, w 
0093 0782 addwf PCL 
0094 3400 retlw 0 
0095 3401 retlw dl 
0096 3402 retlw Z 
0097 3403 retlw 3 
0098 3404 retlw 4 
0099 3405 retlw 5 
OO9A 3406 retlw 6 
009B 3407 retlw 7 
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009C 3408 retlw 8 

009D 3409 retlw 9 

009E 340A retlw Oa 
OO9F 340B retlw Ob 
QOOAO 340C retlw Oc 
OOA1 340D retlw 0d 
QOOA2 3405 retlw Oe 
00A3 340F retlw Of 


° 
, 


;SavePorts, saves the porta and portb condition during a key scan 


;operation. 

SavePorts 
OOA4 0805 movf PORT_A,w ;Get sink value 
OOA5 OQOAO movwf PABuf ;save in buffer 
OOA6 0185 Cine PORT A ;disable all sinks 
OOA7 0806 movft PORT _B,w ;get port b 
OOA8 OQOAL movwf PBBuf ;save in buffer 
OOA9 30FF movlw Oxff ;make all high 
OOAA 0086 movwf PORT B ;on port b 
OOAB 1683 bsf STATUS, RPO ;select page 1 
OOAC 1381 bct OptionReg, 7 ;enable pull ups 
OOAD 30F0 movlw B’11110000' ;port b hi nibble inputs 
OOAE 0086 movwft TRISB ;lo nibble outputs 
OOAF 1283 bef STATUS, RPO ;page 0 
OOBO 0008 return 


° 
Ld 


;RestorePorts, restores the condition of porta and portb after a key scan opera- 


LON: 
RestorePorts 
OOB1 0821 movt PBBuf,w ;get port b 
OOB2 0086 movwt PORT B 
OOB3 0820 movf PABuf,w ;get port a value 
O0B4 0085 movwf PORT A 
OOB5 1683 bsf STATUS, RPO ;select page 1 
OOB6 1781 bsf OptionReg,7 ;disable pull ups 
OOB7 0185 GLE TRISA ;make port a outputs 
OOB8 0186 CLre TRISB ;as well as PORTB 
OOB9 1283 DCE STATUS, RPO ;page 0 
OOBA 0008 return 
UpdateDisplay 
OOBB 0805 movf PORT _A,w ;present sink value in w 
OOBC 0185 clre PORTA ;disable all digits sinks 
OOBD 390F andlw Ox0f 
OOBE 008C movwf TempC ;save sink value in tempc 
OOBF 160C bsf TempC, 4 ;preset for lsd sink 
O0CO O0C8C Pree TempC ;determine next sink value 
00C1 1C03 btfss STATUS, CARRY ;c=1? 
00C2 118C bcf TempC, 3 ;no then reset LSD sink 
00C3 180C btfsc Tempc, 0 ;else see if Msd 
00C4 28D2 goto UpdateMsd ;yes then do Msd 
00C5 188C btfsc Tempc, 1 ;see if 3rdLlsd 
00C6 28CF goto Update3rdLsd ;yes then do 3rd Lsd 
00C7 190C btfsc TempC, 2 ;see if 2nd Lsd 
00C8 28CC goto Update2ndLsd ;yes then do 2nd lsd 
UpdateLsd 
00C9 0811 movft LsdTime,w ;get Lsd in w 
OOCA 390F andlw Ox0f ; 4 
OOCB 28D4 goto DisplayOut 
Update2ndLsd 
00CC OF11 swapf LsdTime,w ;get 2nd Lsd in w 
OOCD 390F andiw Ox0f ;mask rest 
OOCE 28D4 goto DisplayOut ;enable display 
Update3rdLsd 
OOCF 0810 movft MsdTime, w ;get 3rd Lsd in w 
OODO 390F andlw Ox0f ;mask low nibble 
OOD1 28D4 goto DisplayOut ;enable display 
UpdateMsd 
O0D2 O0E10 swapf MsdTime,w ;get Msd in w 
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00D3 


00D4 
OOD5 
00D6 
OOD7 
OOD8 


OOD9 
OODA 
OODB 
00DC 
OODD 
OODE 
OODF 
00E0 
O0B1 
OO0E2 
00E3 
OOE4 
OOE5 
OOE6 
OOE7 
O0E8 
O0E9 


OOEA 
OOEB 


OOEC 


OOED 
OOEE 


OOEF 
OOF 0 
OOF 1 
OOF2 
00OF3 


OOF 4 
OOF5 
OOF 6 
OOF7 
OOF8 
OOF9 
OOFA 
OOFB 
OOFC 
OOFD 


OOFE 
OOFF 


0100 
0101 


0026 


JOOF 


20D9 
0086 
080C 
0085 
0008 


0782 
343F 
3406 
345B 
344F 
3466 
346D 
347D 
3407 
347F 
3467 
3477 
347C 
3439 
345E 
3479 
3471 


30C0 
0088 


0008 


20A4 
20F4 


1908 
28EF 
1612 
20B1 
0008 


0186 
1683 
300F 
0085 
1283 
1408 
307D 
20FE 
1508 
0008 


008C 


OB8C 
28FF 
0008 


andlw 
DisplayOut 
call 
movwft 
movf 
movwt 
return 
LedTable 
addwf 
retlw 
retlw 
retlw 
retlw 
retlw 
retiw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
InitAd 
moviw 
movwft 


return 


SampleAd 
call 
call 
AdDone 
btfsc 
goto 
bsf 
call 
return 
DoAd 
Cire 
bsf 
moviw 
movwt 
bot 
bsf 
moviw 
call 
bsf 
return 
Wait 
movwf 
Next 
decfsz 
goto 
return 


count 


Ox0f 


LedTable 
PORT _B 
TempC, w 
PORT A 


PCL 

B*OOLL ET? 
B’00000110' 
R’01011011! 
BB OLO01L LL?" 
B’ OL100110" 
Br OLLO1L101" 
Bolo 
B’00000111' 
BOD aa 
B’01100111' 
B’01110111' 
B OLE Loo" 
BY O0LIOOL* 
BOLO bo" 
BOF LO0L" 
B’OLLLO0OL" 


B’11000000' 
ADCONO 


SavePorts 
DoAd 


ADCONO, GO 
AdDone 
ADOver 
RestorePorts 


PORT B 
STATUS, RPO 
Ox0f 

TRISA 
STATUS, RPO 
ADCONO, ADON 
wb25 

Wait 
ADCONO, GO 


TempC 


TempC 
Next 


equ 26 


mask rest 


rget digit output 
;drive leds 
;get sink value in w 


yadd to PC low 
;led drive for 
;led drive for 
sled drive for 
;led drive for 
;led drive for 
;led drive for 
;led drive for 
;led drive for 
;led drive for 
;led drive for 
;led drive for 
;led drive for 
;led drive for 
;led drive for 
;led drive for 
;led drive for 


NO rF © 


WHA nNnOoO PO WAI AHDO BW 


jinternal rc for tad 
: / 


;note that adconl is set in InitPorts 


;do a ad conversion 


;ad done? 

sno then loop 

;set a/d over flag 
;restore ports 


sturn off leds 
rselect pg 1 
;ymake port a hi-Z 


; / 
;select pg 0 
;start a/d 


;start conversion 


;store in temp 


a tn sR 
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0027 


0020 
0021 
0022 
0023 
0024 


0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
O10A 
010B 
010C 


010D 
010E 
O10F 


O110 
Olid 
0112 


OLi3 
0114 
0115 


0116 
0117 
0118 


0119 


O11A 
011B 
O11Cc 
011D 
O11E 
O11F 
0120 
0121 
Q122 
0123 
0124 


1003 
3010 
OOA6 
O1A2 
01A3 
O01A4 
ODA1 
ODAO 
ODA4 
ODA3 
ODA2 


OBA6 
2910 
3400 


3024 
0084 
211A 


3023 
0084 
211A 


3022 
0084 
211A 


2908 


3003 
0700 
O0A7 
19A7 
0080 
3030 
0700 
Q0A7 
1BA7 
0080 
3400 


loop16 


. 
, 


ad jDEC 


ad BCD 


temp 

H byte 
L byte 
RO 

R1 

R2 

B2 BCD bef 
moviw 
movwft 
ele 
elrr 
clrft 
rif 
rl1lf 
rit 
rl1lf 
rl1f 


decfsz 
goto 
RETLW 


moviw 
movwft 
call 


movilw 
movwft 
call 


movilw 
movwft 
call 


goto 


movilw 
addwf 
movwft 
btfsc 
movwft 
movilw 
addwf 
movwf 
bDELSC 
movwt 


equ 


equ 


equ 


equ 
equ 
equ 


24 


20 
ea 
22 ; RAM Assignments 
page 
24 


STATUS,0 ; clear the carry bit 


oL6 
count 
RO 

R1 

R2 

L byte 
H_ byte 
R2 

R1 

RO 


count 
adjDEC 


R2 
FSR 
ad jBCD 


Rl 
FSR 
ad jBCD 


RO 
FSR 
adjBCD 


loop16 


0,W 
temp 
temp, 3 


30 

O,W 
temp 
temp, 7 


; test if result > 7 


; test if result > 7 
; save as MSD 
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Saving and Restoring Status on Interrupt (Implementing a Parameter Stack) 





INTRODUCTION 


The PIC17C42 has a 16 level deep hardware stack. The 
program counter is pushed into this stack on interrupts 
and subroutine calls. However, other key registers are 
not saved in the stack. Registers such as W, ALUSTA 
(which has carry, zero and other flag bits) and the bank 
select register (BSR) must be saved in an interrupt 
service routine. The following macros, PUSH and POP 
implement a parameter stack in data memory to accom- 
plish this. 


Main prog obIF FSRO 
BCF ALUSTA, FSO 
BCF ALUSTA, FS1 
PUSH MACRO 
BCF ALUSTA, FSO 
MOVFP ALUSTA, INDO 
MOVFP BSR, INDO ; 


MOVFP W, INDO ; 
MOVFP RAM x, INDO 


The indirect addressing register FSRO is used to imple- 
ment this parameter stack. It is assumed that FSRO and 
its control bits are not used or modified elsewhere. The 
stack pointer (FSRO) is initialized at the highest RAM 
location (FFh). 


;Initialize and dedicate FSRO as stack pointer 


;Set-up FSRO for auto-dec 


;Set-up FSRO for auto-dec 
;Save ALUSTA first 


;Now save general 


MOVFP RAM y, INDO ;Purpose registers 
ENDM 

POP MACRO 
BSF ALUSTA, FSO ;Set-up for auto-inc 
INCF FSRO ; 


MOVPF INDO, RAM y ; 
MOVPF INDO, RAM x : 
MOVPF INDO, W ; 
MOVPF INDO, BSR : 
MOVFP INDO, ALUSTA 


interrupt_routine 


PUSH 7save 
;main body of interrupt service 

POP ; restore 

RETFIE ;return 


;restore ALUSTA last 


DECF FSRO ;Adjust stack pointer 


registers 


status 
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While the macros are quite self-explanatory, the user 
should note a few subtle points. 


iF MOVFP instruction does not affect status flags while 
MOVPF does. | | 


2. MOVFP and MOVPF are used such that any register can 
be saved and restored. Note that register being 
saved or restored has address f (which can be 00h to 
FFh) and other address is INDO (indirect), therefore 
can be any address. 


3. FSR auto-increments or auto-decrements after the 
operation (‘post’). Therefore in the POP macro pre- 
increment is simulated. 


Using this scheme, interrupts and subroutine calls can 
be nested, since the stack will grow and shrink. The 
stack can be used to pass parameters to subroutines. 


Author: Stanley D'Souza 


Logic Products Division 
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Implementing Table Read and Table Write 





INTRODUCTION 


This application brief discusses how to read data from 
program memory to data memory and write data from 
data memory to program memory. 


RETLW K Instruction 


As in all PIC17CXX family parts, the simplest method 
used to retrieve data from program memory to data 
memory is to use the RETLW K instruction. For example: 
; Simple program to transfer 


; table values to PortB 


Main 
movlw 5,W ;load offset 
call SimpleTableRead 
movwf PortB poutput to PortB 
SimpleTableRead 
addwf PC ;add offset to PC 
Table retlw 0 ;return a known 
;table value based 
;on the OFFSET. 
retlw 10 


In the example above, OFFSET is loaded with the 
required offset to the Table and the subroutine 
SimpleTableRead is called. The table value is returned 
in the W register. In this manner program memory can 
be transferred to data memory. 


Table Read Instruction 


The PIC17C42 has an expanded instruction set which 
includes the TABLRD and TLRD instructions. These 
instructions are specifically constructed to transfer data 
from program memory to data memory. 

The instruction syntax is: TABLRD t,i, f. 


The sequence in which this instruction is executed is as 
follows: 


¢ ift=1 then the high byte of the table latch (TBLATH) 
is loaded in the file register f. 


¢ else (if t = 0) the low byte of the table latch (TBLATL) 
is loaded in the file register f. 


¢ next, the 16 bit data pointed to by the table pointer 
(TBLPTR) is loaded into the table latch. 


¢ lastly, ifi=1thetable pointer (TBLPTR) is incremented. 


Note: The first time this instruction is executed in a 
sequence, the table latch will not be initialized, 
hence an unknown value will be loaded in the file 
register. This is not a problem if the user over- 
writes the same f register in the next subsequent 
instruction. 


The instruction syntax is: TLRD t, f. 


The sequence in which this instruction is executed is as 
follows: 


¢ ift= 1 then the high byte of the table latch (TBLATH) 
is loaded in the file register f. 


¢ else (if t = 0) the low byte of the table latch (TBLATH) 
is loaded in the file register f. 


FIGURE 1 - TABLE READ 


Program 


16 Bits 
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Read In Line 


A simple method of transferring data from program 
memory to data memory is to use the tablrd and tird 
instruction in sequence as shown in the example below: 


jtransfer 6 bytes of data in program memory at 


0x500, to ;data memory at 0x80: 
ReadInLine 
movlw 05 ;load table pointer with 
7; 0x500 
movwf TBLPTRH : i 
clrf TBLPTRL ; j 


tablrd 0,1,0x80 ;get 16 bit value in 


stable latch. 


tird  +0,;0x80 ;low byte (lst) E 80 
tablrd 1,1,0x81 ;high byte (2nd) FE 81 
tird 0,0x82 ;3rd byte E 82 
tablrd1,1,0x83 ;4th byte E 83 

tird 0,0x84 75th byte EB 84 


tablrd 1,1,0x85 ;6th byte E 85 


Reading a Block of Data 


In instances where a block of N bytes needs to be 
transferred from program memory to data memory, the 
tablrd and tlrd instruction need to be included in a loop 
which checks for N transfers. 


;transfer 'COUNT' bytes (even values only) of 
;data at program memory 'MESSAGE' to data memory 
pat: 

; "RAM BUFFER' 


ReadBlock 

movlw high MESSAGE ;load table pointer 

movpf W, TBLPTRH ; ff 

movlw low MESSAGE : / 

movpf W, TBLPTRL 7 ri 

bcf ALUSTA,5 ;enable post auto 
;increment of FSRO 

movlw RAM BUFFER yinitialize FSRO to 
;RAM BUFFER 

movfp W,FSRO : / 

movlw COUNT/2 ;initialize count 

tablrd 1,1,RAM BUFFER j;initialize table 
7 latch 

ReadBlockLoop 

tird 1,0x00 ;do indirect read of 
thigh byte 

tablrd 0,1,0x00 ;do indirect read of 
;low byte 

decfsz W ;check if count = 0 

goto ReadBlockLoop 7no then do next 

return 7;else end of 


;transfer. 







Transfer Rate 


Simple Table Read| N+3 
(using RETLW) 
Read In-Line 44+N+N/2 


Read Block 14+N/2 
(using loop) 










6 cycles/byte 






1.5 cycles/byte 





3 cycles/byte 






N = Number of bytes to transfer 












Simple Table Read | Read In-Line | Read Block 


9 
z 


Conclusion: 






In cases where the number of bytes to be transferred is 
small, the Read In-Line offers small code size for fast 
transfer rate. However, as the number of bytes to be 
transferred increases, the Read Block offers optimum 
code size for a decent transfer rate. 


oeeeeeeeraesennenestcnnensaneeenneseingnaseetinentttntt ane ee entrant np eeeespennesnenanntanatasnantsnaysiestynnnnnneninset SSS 


DS00548B-page 2 


4-4 


© 1993 Microchip Technology Inc. 


Implementing Table Read and Write in PIC17C42 





Table Write Instruction 


The PIC17C42 has a TABLWT and a TLWT instruction 
which transfer data from data memory to program 
memory. Note in cases where the table pointer points to 
internal EPROM, the table write instruction will try to 
program the EPROM, hence the programming voltage 
must be present on the VPP line to successfully program 
the part. 


The instruction syntax is: TABLWT t,i,f. 


The sequence in which this instruction is executed is as 
follows: 


¢ ift=1 then the file register f is loaded to the high byte 
of the table latch (TBLATH). 


¢ else (if t = 0) the file register f is loaded to the low byte 
of the table latch (TBLATL). 


* next, the 16 bit data in the table latch is transferred to 
the program memory pointed to by the table pointer 
(TBLPTR). 


¢ lastly, ifi=1 the table pointer (TBLPTR) is incremented. 


The instruction syntax is: TLWT t, f. 


The sequence in which this instruction is executed is as 
follows: 


¢ ift=1 then the file register f is loaded to the high byte 
of the table latch (TBLATH). 


¢ else (if t= 0) the file register f is loaded to the low byte 
of the table latch (TBLATL}. 


FIGURE 2 - TABLE WRITE 


Program 


16 Bits 





Write in Line 


A simple method of transferring data from data memory 
to program memory is to use the tablwt and tlwt 
instruction in sequence as shown in the example below: 
;transfer 6 bytes of data in data memory at 0x80, 
to ;program memory at 0x5000: 

ReadInLine 


jload table pointer with 
;0x5000 


movwf TBLPTRH~ ; / 
alrf TRLPTRI. : / 
tlwt 1,0x80 ;high byte # table latch. 


tablwt 0,1,0x81 j;low byte E table latch; 
;latch EE prog. mem. 


;3rd and 4th byte E prog. 


movlw 50 


tiwt 1,0x82 


;mem. 

tablwt 0,1,0x83 ; / 

tlwt 1,0x84 ;5th and 6th byte E prog. 
;mem. 

tablwt 0,1,0x85 ; / 


Writing a Block of Data 


In instances where a block of N bytes needs to be 
transferred from data memory to program memory, the 
tablwt and tlwt instruction need to be included in a loop 
which checks for N transfers. 

;transfer 'COUNT' bytes (even values only) of 


data at ;program memory at 'RAM BUFFER' to 
program memory ;at ‘'MESSAGE' 


WriteBlock 
movlw high MESSAGE ;load table pointer 
movpf W,TBLPTRH 5 re 
movlw low MESSAGE : ‘ 
movpf W,TBLPTRL ; / 
bcf ALUSTA, 5 ;enable post auto 


;increment of FSRO 


s;initialize FSRO to 
;RAM BUFFER 


movlw RAM BUFFER 


movfp W,FSRO ; / 
movlw COUNT/2 jinitialize count 
WriteBlockLoop 

tlwt 1,0x00 ;high byte E table 
;latch 

tablwt 0,1,0x00 ;low byte E table 
;latch; 
;table latch FE prog. 
;mem. 

decfsz W ;check if count = 0 


goto WriteBlockLoop ;no then do next 


return ;else end of transfer. 


Author: Stanley D'Souza 


Logic Products Division 
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Frequency and Resolution Options for PWM Outputs 





INTRODUCTION 


The PIC17C42 is equipped with two high frequency 
Pulse Width Modulation (PWM) outputs. Ina pulse width 
modulated signal the period of the signal is (usually) kept 
fixed, while the duty cycle is varied. In this application 
note, we will discuss options in selecting their frequency 
and resolution. 


This application brief assumes that internal clock is used 
for the time-base, which is typically the preferred set-up. 
Also, throughout this application brief, PWM1 output is 
used in examples, timer1 is assumed to be the time- 
base. 


Definition of terms: 


Period of a PWM output is the duration after which the 
PWM pattern will repeat itself. 


Frequency of a PWM output is = 1/Period. 


Resolution of a PWM output is the granularity with which 
the duty cycle can be modulated. 


In the case of the PIC17C42, when using PWM1 with 
timer1 as time-base the: 


PWM1 period = [(PR1) + 1] x 4tosc 
PWM1 duty cycle = (DC1) x tosc 
PR1 = _ period register for timer1 


DC1 = PW1DCH, PW2DCL concantenated 
(10-bit value) 


oscillator period 


where 


tosc = 


At 16 MHz oscillator frequency, tosc = 62.5ns. The user 
can control the frequency of the PWM output by altering 
the 'period' value of the time-base. For example, if period 
is chosen to be 100 tosc (PR1 = 18h), then PWM 
frequency is 1/(100 x 62.5) ns = 160 KHz. Note however 
that duty cycle resolution is a little less than 7-bits. 


FIGURE 1 - PWM OUTPUT 


Duty-cycle 
Period —————_> 


PWM frequency = 1/period 


© 1993 Microchip Technology Inc. 


Useful and Common PWM Modes 


While a variety of period values can be selected, the 
following modes would be most commonly used: 


10-Bit Mode: In this mode PWM duty cycle has full 
10-bit resolution (maximum offered by the PIC17C42). 
The period register PR1 is set at FFh. PWM period is 
1024tosc = 64 us. PWM frequency is 15.625 KHz. The 
user must write both PW1DCH and PW1DCL to update 
PWM output. See Appendix A for an example that code 
modules 10-bit resolution PWM output (PWM10.LST). 


8-Bit Hi-Resolution Mode: In this mode, the user has 
only an 8-bit quantity to write to the duty-cycle register. 
Period register is set at 3Fh (63 decimal), such that PWM 
period is 256 tosc. To write the 8-bit duty-cycle value, 
first the 8-bit is right shifted two bits. The upper six bits 
are written to PW1 DCH and the lower two bits are written 
to PW1DCL as follows: 


;8-bit duty-cycle value is in W reg 


CLRF TEMP ; 

RRCF WREG , 

RRCF TEMP ; 

RRCF WREG ; 

RRCF TEMP ;Shift right twice 
ANDLW 00111111b ;Mask off two-high bits 
MOVPF WREG,PW1DCH ;Write duty-cycle values 
MOVFP TEMP,PWIDCL ; 


Note that in 8-bit, hi-resolution mode, maximum PWM 
frequency is attained. For example, at 16 MHz clock, 
PWM period = 256 tosc = 16 us; PWM frequency = 62.5 
KHz. See appendix B for an example code that gener- 
ates 8-bit low high resolution PWM output 
(PWMS8HI.LST). 
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FIGURE 2 - VARIOUS PWM MODES 


DC9 DC2 
PWIDCH 
DC9 DC2 
PWIDCH 

DC7 DC2 
pose |< PIE ae ae ea 
PWIDCH 


Note: DC registers suited for 16 bit computation; utilizing 10 MSB only. 


8-Bit Low Resolution Mode 


In this mode, the user still has only an 8-bit quantity to 
write to duty cycle register. However, the desired 
frequency of the PWM output is less, due to the nature 
of the application. For example, if the PWM output is 
being used to drive a motor through a power stage, the 
power transistors (or devices) due to their switching time 
will prefer PWM frequency not to exceed certain fre- 


~ quency. In the previous section, we derived an 8-bit 


resolution PWM output at 62.5 KHz. 


To attain a low-resolution PWM output, the PW1DCL is 
always kept at zero. The 8-bit value is written to 
PW1DCH. The period (PR1) is set at FFh, i.e. 256 Tcy 
equals 1024 tosc (15.625 KHz). See Appendix C for an 
example code that produces 8-bit low resolution PWM 
output (PWM8LO.LST). 


Choosing Resolution and Frequency of PWM 
Output 


Actually, the resolution and the frequency of the PWM 
output is selectable within certain limits. The user will 
need to first define the requirements based on the 
application. There may be an upper limit to the fre- 
quency if the PWM is being used to drive motors. On the 


FIGURE 3 - PWM FREQ VS RESOLUTION 








DCi DCO 
PWIDCL 
DC1 DCO 
8 bit low 
resolution 
PWIDCL 
DC1 DCO 





PWIDCL 


8 bit high 
=] resolution 








other hand, if the PWM is being filtered to generate an 
analog signal, higher frequency may be desirable. In 
any case, the lowest frequency achievable (using inter- 
nal clock for the timer) is (OSC freq/1024). At 16 MHz 
oscillator input, the lowest PWM frequency possible is 
15.625 KHz. At resolutions less than 10-bit higher 
frequencies are possible (see Figure 3). For example if 
7-bit resolution is chosen, then the PWM frequencies 
can be 15-625 KHz, 31.25 KHz, 62.5 KHz or 125 KHz. 
The reader will note that its how the 7-bits are placed 
within the 10-bit possible duty cycle value. 


Conversely, if a certain frequency is desired, such as 
44 KHz, then referring to Figure 1, resolution can be 8.5- 
bit or 7.5-bit or 6.5-bit etc. 


Summary 


The frequency and resolution of the PWM outputs of the 
PIC17C42 can be traded off against each other to best 
suit the application. The oscillator frequency can also be 
varied to adjust PWM frequency, if necessary. External 
clock should be used as timer time-base to generate 
very low frequency PWM output. 


Authors: Stanley D'Souza 


Sumit Mitra 
Logic Products Division 








PWM frequency vs resolution 
for osc freq = 16 MHz 
Timer time-base = internal clock 


PWM freq (KHz) 
Log scale 


(44 KHz, 8.5 bit) 


PWM resolution 
aaa NaNER 


At a given oscillator frequency (16 MHz in this figure), 
a family of curves represents the PWM freq/resolution combinations possible. 
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APPENDIX A: PWM10.LST 


MPASM BO.54 PAGE 1 
PULSE WIDTH MODULATION 10 BIT RESOLUTION 


TITLE “PULSE WIDTH MODULATION 10 BIT RESOLUTION” 
LIST P=17C42, C=80, T=ON 
include SL1C4 2h” 

0021 PWM HI equ 0x21 

0020 PWM LO equ 0x20 

0022 TEMP equ 0x22 


:The user would generate a 16 bit value which is saved in r 
;locations PWM HI and PWM_LO byte. In 10 bit mode, the prog 
stransfers these values directly to the Duty Cycle (DC) reg 
rgenerate the required 10 bit PWM. 


. "ae eo 


;This is a short program to demonstrate how to generate PWM 
710 bit resolution. Since a 10Mhz crystal was used in the t 
>The max. period = 1024x100nS = 102.4 uS or 9.8 KHz. This p 
;keeps the period constant and varies the duty cycle (which 
sto the most significant 10 bits of the 16 bit value PWM_LO 
:This program is interrupt driven, i.e. the update to the D 
tis done in the rtcc interrupt, which then enables the pwm 
;The period update is done during the pwm interrupt. The pw 


sramps up from 0% to 100% duty cycle and then repeats. The 
ssweep takes approx. 52 secs, 


° 
c 
s 
‘ 


ORG 0 
0000 C058 goto start 
ORG 0x10 svector for rtcc interrupt 
ELCG. Ant 
0010 cO04C goto service rtcc ;service rtcc 
ORG 0x0020 svector for pwm interrupt 
pwm int 
0020 CO3E goto service pwm ;service pwm only 
ORG 0x0030 
rinitialize internal hardware to generate the output 
;for 10 bit resolution pwm., 
init _pwml0 
0030 B802 movlb 2 
0031 2910 foals tmrl ;clear timer 1 
sused to “drive” pwml 
0032 2B14 setf pri sset period=9.8 khz 
0033 B803 movib 3 
0034 7221 movfp PWM _HI,pwldch yload duty cyl. hi byte 
0035 7920 movfp PWM_LO,pwidcl zload duty cycle lo byte 
0036 2916 clre Lconl rtmrl inc. internally 
yas 8 bit counter 
0037 BO1B movilw 00010001B ;start tmril and 
0038 4A17 movpf wreg,tcon2 ;enable pwml 
0039 B80l1 movib 1 
003A 2917 eret pie sclr all int. enables 
003B 2916 Glrt ble sclear all interrupts 
003C 8307 bsf -peie rexcept peripheral int. 
003D 0005 retfie 


“ss “es 





SSR ERE STI SE I DE a EE IE TE SIT TEE IE LE TRE ET LE TE aN EET ee 
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003E B802 
003F 2B14 
0040 B801 
0041 8C17 
0042 0005 


0043 BOOB 
0044 650A 
0045 290B 
0046 290C 
0047 BO80 
0048 0121 
0049 2920 
004A 8107 
004B 0002 


004C 8D07 


004D 8804 
004k BOOB 
O04 OF 20 
0050 9804 
N01 LS2i 


0052 B803 
0053 7020 
0054 7221 
0055 B801 
0056 8417 
0057 0005 


0058 8406 
0059 E043 


005A E030 
005B COSB 


Errors H 
Warnings : 


reverytime a new value is written to the PWM_HI, PWM_LO reg 
*tmrl interrupts is enabled. The DC value are written just 
sthe “pwm interrupt” is enabled. Here the new period regist 
yupdated., In this example, period is kept constant at Oxff 


service _pwm 
sif the period changed, 


write new value here, 


movlb 2 s;select bank 2 
setf pri speriod <— Oxff 
movlb a sdisable tmri int 
bet _tmlie ; / 

retfie 


=e Ye ese we 


This part of the program is basically used to simmulate a 
which would be used to drive the pwm output. 


sthe rtcc is set up to interrupt every 52 mS. 


init rtce 


movlw 00100000b ;set up rtce timer 
movfp wreg,rtcsta , / 

cirt reeci ;clear rtcc 

Girt rtcech ; / 

moviw 0x80 ;start pwm at 50% 
movwf PWM HI ; / 

clrf PWM_LO ; f 

bsf _rtcie renable rtcc int. 
return 


~e te te Oe 


service rtcc 


Every rtcc interrupt, the PWM_HI&PWM_LO bytes are incremen 
Only the 10 most significant bits are incremented. Once th 


bcf aEtear rreset int flag 

;do a pseudo inc of the 10 bit PWM_HI, PWM_LO. 
Det _carry ;clear carry 

movlw 01000000b sload lsb for 10 bit 
addwf PWM LO, 1 radd to LSB 

btfsc _carry SCarry? 

incf PWM_HI ryes then inc PWM HI 


snow load the values into the Duty Cycle registers 


movib 3 ;bank 3 
movfp PWM LO,pwldcl ;load lo value 
movfp PWM HI,pwldch ;load hi value 
movib 1 
bsf _tmlie reenable tmrl int 
retfie 
start 
bsf _glintd rdisable interrupts 
call Init 2tee yinitailize the RTCC tmr 
;for test purposes 
call init_pwm10 rinitialize pwm 
loop goto loop ;spin wheels 
END 
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Appendix B: PWM8HI.LST 


MPASM BO0.54 PAGE 1 
PULSE WIDTH MODULATION 8 BIT HIGH RESOLUTION 


TITLE “PULSE WIDTH MODULATION 8 BIT HIGH RESOLUTION” 


LIST P=17C42, C=80, T=ON 
include “17c42.n” 
0021 PWM HT equ 0x21 
0020 PWM LO equ 0x20 
0022 TEMP equ 0x22 


;The user would generate a 16 bit value which is saved in r 
;locations PWM_HI and PWM_LO byte. In 8 bit hi-res mode, th 
stransfers the 8 bit values to the lo Duty Cycle (DC) regis 
sgenerate the required 8 bit hi-res PWM. 


a 7a 46 


;This is a short program to demonstrate how to generate PWM 
78 bit resolution. Since a 10Mhz crystal was used in the te 
;The max. period = 256x100nS = 25.6uS or 39KHz. This progra 
;keeps the period constant and varies the duty cycle (which 
;to the most significant 10 bits of the 16 bit value PWM _LO 
;This program is interrupt driven, i.e. the update to the D 
zis done in the rtcc interrupt, which then enables the pwm 

;The period update is done during the pwm interrupt. The pw 
;ramps up from 0% to 100% duty cycle and then repeats. The 

;sweep takes approx. 13.3 secs. 


. 
‘ 
® 
, 





ORG 0 
0000 C063 goto Start 
ORG 0x10 svector for rtcce interrupt 
ECC Ant 
0010 C054 goto service rtce ;service rtcc 
ORG 0x0020 rvector for pwm interrupt 
pwm_ int 
0020 C046 goto service pwm ;service pwm only 
ORG 0x0030 


sinitialize internal hardware to generate the pwm output 
init _pwm8hi 


0030 B802 movlb 2 
0031 2910 Cire tm. ;clear timer 1 

yused to “drive” pwml 
0032 B062 moviw 62 ;set period=39khz 
0033 0114 movwf pri : / 
0034 B803 movlib 3 
0035 2922 GlTre TEMP ;TEMP = mask for pwldcl 
0036 6A21 movfp PWM HI,wreg ;get duty cyl. hi byte 
0037 190A rreft wreg yrotate hi through carry 
0038 1922 Tre TEMP ;rotate into lo byte 
0039 190A rreet wreg ;repeat for 2nd lsb 
003A 1922 rrcet TEMP ; / 
003B B53F andlw bool iii" smask hi bits 
003C 4012 movpf W, pwidch ;save in high 
003D 7022 movfp TEMP, pwlidcl ;save in low 
003E 2916 CLL tconl stmrl inc. internally 

vas 8 bit counter 
003F BO11 movilw b’00010001' ;start tmrl and 
0040 4017 movpf W,tcon2 ;enable pwml 
0041 B801 movilb E 
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0042 2917 clirt pie ?clr all int. enables. 
0043 2916 Clre pir ;clear all interrupts 
0044 8307 bsf _peie sexcept peripheral int. 


0045 0005 retfie 


“es "=e 


reverytime a new value is written to the PWM_HI, PWM_LO reg 
;tmrl interrupts is enabled. The DC value are written just 
sthe “pwm interrupt” is enabled. Here the new period regist 
rupdated. In this example, period is kept constant at 62 Tc 
service pwm 

;if the period changed, write new value here. 


0046 B802 movib 2 ;select bank 2 
0047 BOGé2 moviw 62 speriod = 62 Tcyl. 
0048 0114 movwf pr ; / 

0049 B801 movilb 1 ;disable tmrl int 
004A 8C17 bet _tmlie ; / 

004B 0005 retfie 


° 
‘ 
e 
‘ 


This part of the program is basically used to simmulate a 


;which would be used to drive the pwm output. 


sthe rtcc is set up to interrupt every 52 mS. 
init. rtec 


004C B020 . movlw b’00100000' rset up rtcc timer 
004D 650A movfp wreg,rtcsta : / 

004EF 290B Cirt PECE I. sclear rtcc 

004F 290C Clete rtcch : / 

0050 BO31 moviw ou sinit pwm at 50% 
0051 0121 movwf PWM_HI ;save in high 

0052 8107 bsf _rtcie senable rtcce int. 
0053 0002 return 


;Every rtcc interrupt, the PWM HI&PWM_LO bytes are incremen 


;Only the 8 most significant bits are incremented. 


s 
‘ 


service rtcc 


0054 8D07 bef eteir ;reset int flag 
;do a pseudo inc of the 8 bit PWM_HI. 
0055 1521 ince PWM_HI ;inc PWM _HI 


rnow load the values into the Duty Cycle 


0056 B803 movilb a ;bank 3 
0057 2922 clrf TEMP ;TEMP = mask for pwidcl 
0058 6A21 movfp PWM_HI,wreg sget duty cyl. hi byte 
0059 190A Erect wreg ;rotate hi through carry 
005A 1922 rreft TEMP ;rotate into lo byte 
005B 190A rreet wreg ;repeat for 2nd lsb 
005C 1922 rret TEMP ; / 
005D B53F andlw beoertt iia mmask hi bits 
OOSE 4A12 movpf wreg,pwldch ;save in high 
OOSEF 7022 movfp TEMP, pwidcl ;save in low 
0060 B801 movib d. 
0061 8417 bsf _tmlie yenable tmrl int 
0062 0005 retfie 
start 
0063 8406 bsf _glintd ;disable interrupts 
0064 EO4C call Int rece yinitailize the RTCC tmr 
;for test purposes 
0065 E030 call init_pwm8hi yinitialize 8 bit pwm 
0066 C066 loop goto loop 7spin wheels. 
END 
Errors : 0 
Warnings : 0 


DS00539B-page 6 © 1993 Microchip Technology Inc. 
4-12 


PWM Frequency and Resolution 





Appendix C: PWM8LO.LST 


MPASM B0.54 PAGE 1 
PULSE WIDTH MODULATION 8 BIT LOW RESOLUTION 


TITLE “PULSE WIDTH MODULATION 8 BIT LOW RESOLUTION” 
LIST P=17C42, T=ON, C=80 


include “17¢c42.h” 


0021 PWM HI equ 0x21 
0020 PWM LO equ 0x20 
0022 TEMP equ Ox22 


;The user would generate a 16 bit value which is saved in r 
;locations PWM_HI and PWM _LO byte. In 8 bit lo-res mode, th 
;transfers the 8 hi-byte value directly to the PW1IDCH regis 


« “e 8 


;This is a short program to demonstrate how to generate PWM 
78 bit low resolution. Since a 5.068Mhz crystal was used in 
7;The max. period = 1024x100nS = 102.4 uS or 9.8 KHz. This p 
;keeps the period constant and varies the duty cycle (which 
;to the most significant 8 bits of the 16 bit value PWM _LO& 
;This program is interrupt driven, i.e. the update to the D 
sis done in the rtcc interrupt, which then enables the pwm 

;The period update is done during the pwm interrupt. The pw 
;ramps up from 0% to 100% duty cycle and then repeats. The 

;sweep takes approx. 52 secs. 


-e 8 





ORG 0 
0000 C053 goto Start 
ORG 0x10 svector for rtce interrupt 
FCCC int : 
0010 c04c goto service rtcc sservice rtccec 
ORG 0x0020 svector for pwm interrupt 
pwm_int 
0020 CO3E goto service pwm ;service pwm only 
ORG 0x0030 


° 
’ 


sinitialize internal hardware to generate the output 
;for 8 bit low resolution pwm 
init_pwm8lo 


0030 B802 movib Z 
0031 2910 clrt tmrl ;clear timer 1 
sused to “drive” pwml 
0032 2B14 setf pes yset period=9.8 khz 
0033 B803 movib 3 
0034 7221 movfp PWM _HI,pwldch sload duty cyl. hi byte 
0035 2910 eLrt pwidcl ;clear lo byte 
0036 2916 Girt tconl ;tmrl inc. internally 
yas 8 bit counter 
0037 BO11 movlw b’00010001' ;Start tmrl and 
0038 4A17 movpf wreg,tcon2 ;enable pwml 
0039 B801 movlb A 
003A 2917 GLEE pie sclr all int. enables 
003B 2916 elre pir rclear all interrupts 
003C 8307 bsf _peie sexcept peripheral int. 
003D 0005 retfie 


=e ™“e 
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everytime a new value is written to the PWM_HI, PWM_LO reg 
;tmrl interrupts is enabled. The DC value are written just 
;the “pwm interrupt” is enabled. Here the new period regist 
supdated. In this example, period is kept constant at Oxff 
service pwm 

;if the period changed, write new value here. 


003E B802 movlb 2 sselect bank 2 
003F 2B14 setf pe speriod <— Oxff 
0040 B801 movlb ea ydisable tmrl int 
0041 8C17 bef _tmlie : / 

0042 0005 retfie 


This part of the program is basically used to simmulate a 
which would be used to drive the pwm output. 


=e TY ™e =e 


sthe rtcc is set up to interrupt every 52 mS, 
init .rtee 


0043 BO20 moviw b’00100000' ;set up rtce timer 
0044 6500 movfp W,rtcsta : / 

0045 290B GLEE reeet ;clear rtcc 

0046 290C clrf rtcch : / 

0047 BO80 movlw 0x80 sbegin PWM at 50% de 
0048 0121 movwf PWM_HI ; / 

0049 2920 CLrt PWM LO ; / 

004A 8107 bsf _rtcie renable rtce int. 
004B 0002 return 


. 
e 


;Every rtcc interrupt, the PWM_HI&PWM_LO bytes are incremen 
;Only the 8 most significant bits are incremented. 


service rtcc 
004C 8D07 bef ~TteLe ;reset int flag 
;do a inc of the 8 bit PWM_HI 


004D 1521 inert PWM HI 
;now load the values into the Duty Cycle 
0O04E B803 movlb 2 
OO04F 7221 movfp PWM HI,pwidch ;load hi byte 
0050 B801 movlb 1 
0051 8417 bsf _tmlie renable tmrl int 
0052 0005 retfie 
start 
0053 8406 bsf _glintd ;disable interrupts 
0054 E043 call lf alg aia au eso yinitailize the RTCC tmr 
‘for test purposes 
0055 E030 call init _pwm8lo ;initialize pwm 
0056 C056 loop goto loop ;spin wheels. 
END 
Errors : 0 
Warnings ; 0 
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Using PWM to Generate Analog Output 





Pulse Width Modulated (PWM) waveforms which are 
basically digital waveforms, can be used as cheap 
Digital-to-Analog (D/A) converters with few external 
components. A wide variety of microcontroller applica- 
tions exists that need analog output but do not require 
high resolution D/A converters. Some speech applica- 
tions ( talk back units, speech synthesis systems in toys, 
etc.) also do not require high resolution D/A converters. 
For these applications, Pulse Width Modulated outputs 
may be used to convert to analog outputs. 


Conversion of PWM waveforms to analog signals in- 
volves the use of analog low-pass filters. This brief 
application note describes the design criteria of the 
analog filters necessary and the requirements of the 
PWM frequency. Later in this application note, a simple 
RC low-pass filter is designed to convert pulse-width 
modulated speech signals of 4 KHz bandwidth. 


In atypical PWM signal, the base frequency is fixed, but 
the pulse width is a variable. The pulse width is directly 
proportional to the amplitude of the original unmoudulated 
signal. In other words, ina PWM signal, the frequency of 
the waveform is a constant while the duty cycle varies 
(from 0 % to 100 %) according to the amplitude of the 
original signal. A typical PWM signal is shown in 
Figure 1. 


FIGURE 1 - A TYPICAL PWM WAVEFORM 


Fixed period 


A Fourier analysis of a typical PWM signal (like the one 
depicted in Figure 1) shows that there is a strong peak 
at frequency Fn = 1/T. Other strong harmonics also exist 
at F = K/T, where K is an integer. These peaks are 
unwanted noise and should be eliminated. This requires 
that the PWM signal be low-pass filtered, thus eliminat- 
ing these inherent noise components (see Figure 2). 





FIGURE 2 - FREQUENCY SPECTRUM OF 
A PWM SIGNAL 





Fundamental 
component Harmonics 


Frequency 
spectrum of 


baseband signal 





The band-width of the desired signal should thus be 
fbw <= ( fpwm = 1/T ) 


If fow is selected such that fow=fpwm, then the external 
low-pass filter should be a brick-wall type filter. Brick- 
wall type analog filters are very difficult and expensive to 
build. So, for practical purpose, the external low-pass 
filter should be as shown in Figure 3. 


FIGURE 3 - EXTERNAL LOW-PASS FILTER 






Unwanted spectra 
due to PWM pulses 





Bandwidth of 
desired signal 





This means, fbw << fpwm 


or fpwm >> fow 
=> fpwm = K*fow (1) 
where, K is a constant such that K >> 1 


The value of K should be chosen depending upon by 
how many GB the inherant fundamental noise compo- 
nent of PWM be rejected. An example follows : 


Example : It is required to design a simple RC low-pass 
filter to obtain an analog output from a pulse 
width modulated speech signal of bandwidth 
4 KHz. 


From egn (1), choosing arbitrarly K = 5, 
fpwm = K*fbw = 5*4 KHz = 20 KHz. 
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Using PWM to Generate Analog Output 





FIGURE 4- RC FILTER CONNECTED TO For many applications, this rejection of -14 dB will not 
- PWM1 OF PIC17C42 suffice. Therefore instead of a simple RC low-pass filter, 


a higher order active low-pass filter may be necessary. 
Or if the microcontroller is capable of modulating at 
higher PWM frequencies, the rejection of noise will be 
more. 


For example, using 8-bit resolution, the PIC17C42 can 
generate PWM frequency of 62.5 KHz. 


At this frequency the attenuation of the PWM frequency 
is: 


PIC17C42 (dB)62.5KHz = -10*log[1+ (2m f.RC)2] = -24 dB. 


The higher frequency of the PIC17C42 PWM outputs 
makes it easier to generate analog output. 





Choosing, the -3 dB point at 4 KHz, and using the 
relation RC = 1/(2*n*f), we get R = 4 KQ, if C is chosen 
as 0.01 uF: 


R 
C 


40KQ Author: Amar Palacherla 


0.01 pF 

Since the PWM frequency is selected as 20 KHz, the 
fundamental noise peak to be filtered is at 20 KHz. Now, 
lets calclulate by how many dB the main peak of PWM 
signal is cut-off at 20 KHz : 


(dB)20KHz = -10*log[1+ (27 f.RC)?] = -14 dB. 


Logic Products Division 
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® 
Microchip AN564 
Using the PWM 
INTRODUCTION The listing file for the Variable Period / Variable Duty 


The PIC16/17 family of RISC-like microcontrollers has 
been designed to provide advanced performance and a 
cost-effective solution for a variety of applications. This 
application report provides examples which illustrate the 
uses of Pulse Width Modulation (PWM) using the 


Cycle example can be found in Appendix A. The source 
files can be found on the Microchip BBS. On directions 
on how to access the Microchip BBS please refer to 
DS30128, which can also be found in the Microchip 
Embedded Control Handbook (Literature Number 
DS00092). 


PIC17C42 Timer1 or Timer2 modules. These examples 
may be modified to suit the specific needs of your 
application. 


This Application Note describes the operation of the 
PWM. They include the following topics: 


1. Simple PWM Operation 
2. Variable Period / Variable Duty Cycle PWM 


3 External Clock for Timer Timebase 
(ramifications/issues) 


FIGURE 1 - TIMER1 AND TIMER2 BLOCK DIAGRAM WITH PWM MODE 


PR1 <8> 
TMR1 <8> 










OSC/4 i 


TMR2C 
(TCON1<1>) 


TMR1ON 
(TCON2 <0>) 


Comparator <10> = 


Slave Latch <10> | | 


PW1DCH DCL 
x 
ys 
RB4/TCLK12 PW2DCH DCL 


Slave Latch <10> Me 


Comparator <10> re | 


.Q Cycle (0:1) 


2:1 MUX TM2PW2 


(PW2DCL<5>) 


Reset 
TMR2 <8> 
PR2 <8> 


OSc/4 i 


TMR2C 
(TCON1<1>) 
TMR1ION 
(TCON2 <0>) 
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The control registers that are utilized by Timer1 and 
Timer2 are show in Table 1. Shaded Boxes are control 
bits that are not used by the Timer1 nor Timer2 module. 


TABLE 1 - REGISTERS ASSOCIATED WITH TIMER3 AND CAPTURE 


[Name 
Timer1 Register 
Timer2 Register 


Timer1 Period Register 
Timer2 Period Register 


Rt __ 


PW1DCL PWM1 Duty Cycle Low Register 
PW2DCL PWM2 Duty Cycle Low Register 


PW1DCL PWM1 Duty Cycle High Register 
PW2DCL PWM2 Duty Cycle High Register 


Care must be taken when loading values into the PWM 
registers. These registers are the duty cycle registers 
(PWxDCH:PWxDCL) and the period register (PRx). 
Figure 2 shows the proper update timing of these values. 





FIGURE 2 - TIMING FOR UPDATING THE DUTY CYCLE REGISTERS AND PERIOD REGISTER 


Timer Overflow Duty Cycle Timer Overflow 
interrupt (old period value) compare equal __ interrupt (new period value) 
Cc 


Load duty cycle value for next pulse 


Load new period value for this cycle 
C = new desired period 


: When updating the period register, the value loaded must be greater than the timer value. If the period value is less then 
the timer value, the duty cycle value is not latched and the timer is not reset (to 00h) until the next Timer = Period match. 
This causes the current cycle to not output as expected and cause a “glitch”. 


: It is generally good practice to load the new period value into the PRx register as soon as possible after Point A. 





‘eter A a rN 
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SIMPLE PWM OPERATION 


Simple PWM operation is where the period of the PWM 
output remains constant, and only the duty cycle is 
modified. The PWM can operate in either of two modes: 


¢ Hi-resolution mode-the PWxDCL register is modified 


¢ Standard resolution mode - the PWxDCL register is 
not modified 


When operating in the high-resolution mode, only the 
PW-DCH register is ever modified. Since this tales only 
a single cycle, this can be done at any time. Also since 
the period is remaining constant this may be done 
without any PWM interrupt software overhead. 


When operating in the high-resolution mode both the 
PWxDCH:PWxDCL register pair is modified. Since this 
is a multicycle update, care needs to be taken that the 
"new" PWM duty cycle value is not latched until the 
update is complete. If the duty cycle is latched before 
this update is complete, the duty cycle will display a 
“glitch”. If the PWxDCH is written first, the maximum 
erroris 3 Q-cycles (187.5ns @ 16 MHz). Ifthe PWxDCL 
is written first, the maximum error is also 3 Q-cycles 
(187.5ns @ 16 MHz), with the PWxDCH delayed by one 
PWM period. This may be acceptable for some applica- 
tions. If this is not acceptable for your application then a 
subroutine can be written to ensure that these duty cycle 
writes are not done when the timer will equal the period. 
One implementation of this subroutine (PWM_UD) is 
used in the Variable Period / Variable Duty Cycle PWM 
example. This is discussed in the following section, with 
the listing in Appendix A. 


Additional code examples can be found in application 
note AN539 in the Embedded Control Handbook. 





VARIABLE PERIOD / VARIABLE 
DUTY CYCLE PWM 


In a variable period / variable duty cycle PWM both the 
duty cycle of the PWM as well as the frequency (period) 
of the PWM are modified. 


The 17C42’s hardware double buffers the duty cycle 
registers, but the period registers are not double buff- 
ered. What this means is that you can modify the duty 
cycle registers, but the value will only be latched when 
the timer register equals period register. Since the 
period register is not buffered, as the period register is 
modified this becomes the “new” period. This means 
that care must be taken when modifying the period 
register. The most common problem would be to modify 
the period register resulting in a “glitch” to occur. This 
“glitch” occurs when the period register is modified with 
a value that is less than the present timer value. The 
timer does not have a match with the old period value, 
and continues to count until the timer register equals 
period register. 


Figure 3, shows an example where the period (PR1) 
register = 7Fh. Then the period is modified to a smaller 
value (PR1 = 1Fh) without checking that the value in 
Timer1 (TMR1) register = 3Eh. Since the new period 
(PR1) value is less then the present timer (TMR1) value, 
a glitch has occurred. 


FIGURE 3 - MODIFYING PERIOD REGISTER “GLITCH” 


Duty Cycle 
registers = TMR1 


Duty Cycle 
registers = TMR1 


TMR1 = PR1 = 7Fh 
00h — TMR1 
Duty Cycle registers latched 


TMR1 = 7Fh 


TMR1 = 3Eh 
Modify PR1 = 1Fh 





Duty Cycle 
registers = TMR1 


Duty Cycle 
registers = TMR1 


TMR1 = PR1 = 1Fh 
00h — TMR1 
Duty Cycle registers latched 


Stet TRAY 
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Care must be taken when writing a 10-bit duty cycle 
value. Since this requires two register writes, the Timer 
equals period could occur between these two writes, 
which would give a duty cycle that was not as expected. 
The cases are as follows: 


1. Ifthe duty cycle low (DCL) register is written, and then 
the Timer equals period. The old DCH register and 
the new DCL register becomes the duty cycle. 


2. If the duty cycle high (DCH) register is written, and 
then the Timer equals period. The new DCH register 
and the old DCL register becomes the duty cycle 


At the following occurance of the timer equaling the 
period, the second register written would be updated. 
The subroutine PWM_UD (Appendix A) ensures that 
these duty cycle writes are not done when the timer will 
equal the period. 


A software example of a variable period / variable duty 
cycle is shown in appendix A. In this example the period 
is double buffered in software, and the new period value 
is loaded in the timer overflow interrupt service routine. 
When the new duty cycle needs to be loaded. The 
device connections are shown in Figure 4. This program 
has two PWM settings (period / duty cycle combina- 
tions) that are switched between depending on the level 
on pin RBO. A frequency generator was used to give a 
low frequency signal on the RBO pin. Figure 5 shows an 
example of the input and output waveforms. 


FIGURE 5: EXAMPLE APPLICATION WAVEFORMS. 








FIGURE 4- APPLICATION HARDWARE 
SETUP 


PIC17C42 


Vpp RBO 


Frequency 
Generator 


MCLR 


The program listing in appendix A implements this 
example, Figure 8 is the flowchart of the program. This 
example may be modified to suit the particular needs of 
your application. The Table 3 is a summary of the 
requirements for this program (@ 16 MHz): 


TABLE 3 - PROGRAM REQUIREMENTS 


RAM used: 
Interrupt Service Routine time 3.0 usec 


Subroutine time 4.5 usec 


52 Words 


6.0 usec 


Maximum PWM frequency: 200 KHz 


PWM Accuracy: 62.5 nsec 





ER 
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EXTERNAL CLOCK FOR TIMER 
TIMEBASE 


The counters used for the time base of the PWM outputs 
can be software selected to operate from an external 
clock source. This allows a lower frequency PWM to be 
achieved. Doing this brings up new issues that must be 
understood for the application. 


One of these issues is clock synchronization. All exter- 
nal clocks must be synchronized to the internal operat- 
ing speed of the microcontroller, as shown in figure 9. 
When this synchronization occurs the PWM output is not 
truly operating from the external clock, but actually the 
internal synchronized clock. This leads to a “jitter” of the 
output to the clock. This jitter is caused from the delta 
time between the external clock and the synchronized 
clock not being constant. The synchronization errors 


are: 
Duty cycle error = +/- Tcy 


Period error = +/- Tcy 


FIGURE 6 - EXTERNAL CLOCK SYNCHRONIZATION 


External Clock 
(TCLK12) 


Synced Clock 


+Tcy +Tcy 





If you needed to run the PWM at a low frequency, and 
also want to reduce the “jitter” from the use of an external 
asynchronous clock, a PWM output could be used as the 
synchronous clock source. When the clock is synchro- 
nized to the device the clock error is always constant, so 
there is no jitter. Figure 7 shows this example. 


FIGURE 7 - PWM OUTPUT TO GENERATE A 
SYNCHRONOUS CLOCK 


RB2/PWM1 
TMR1 PWM output 


RB4/TCLK12 


RB3/PWM2 


TMR2 PWM output 








arent STS A A LAS 
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Another use is where precise timing of updates need to | 


be done, but not at the frequency of the PWM output. In 
this discussion, TMR1 is used as the time-base of a 
constant frequency PWM output. TMR?1 uses the inter- 
nal clock of the device and TMR2 uses the external clock 
input. TMR2 will get the clock input from the PWM2 
output. 


The PWM output is a constant frequency variable duty 
cycle output. The PW1DCH:PW1DCL register pair con- 
tain the variable duty cycle value of PWM1 output. The 
PW2DCH:PW2DCL register pair is set for a fixed duty 
cycle (50%) for the PWM2 output. 


FIGURE 11 - SAMPLING SCHEME 


Servo-update 
interrupt 


The PWM outputs could be programmed to have a 
frequency of 20 KHz, so to reduce audible noise. The 
PWM2 signal is connected to the RB4/TCLK12, as 
shown in Figure 11. The PR2 register could be loaded 
with 14h (20), to give a interrupt every 1 KHz. This 
interrupt can then trigger tasks, such as updating the 
duty cycle of PWM1. This is useful in motor control as 
well as other applications where the update rate is less 
then the PWM frequency. 


CONCLUSION 


The PIC17C42s PWM features offer a high performance 
solution at a lower system cost then previously avail- 
able. The versatility of PWM’s make the PIC17C42 ideal 
for motor control applications (ses AN532) and many 
industrial control applications. 


Author: Mark Palmer 
Logic Products Division 
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APPENDIX A: LISTING FILE 


MPASM B0.54 PAGE 1 


LIST P=17C42, T=ON, C=120, N=0 


This is the basic outline for a program that generates a 
variable PWM output. The PWM’s period and duty cycle can 

be varied. The new period (NEW PR1) and the new duty cycle 

(NEW _DCl and NEW _DC1Q) are loaded by the user program. 

The peripheral interrupt routine loads the new period value 
(frequency) into the PR1 register. A subroutine (PWM UD) 

is also used to ensure that the 10-bit duty cycle registers 

are updated in the same PWM cycle, i.e. the timer match does not 
occur between two duty cycle register writes. 


“e 2 82 se Se “8s *s “Ee 


=e 


“ss 


The duty cycle value gets latched on the overflow (Period match) 

of the timer. The period value gets modified as soon as the period 
register is changed. Therefore care must be taken in updating 

the period register. In cases where the period value is modified 

to a smaller value, we must ensure that the Timer counter is less 
then this value when the period register is updated (TMR1 < new PR1). 
If TMR1 is greater then PR1, the counter will count to FFh, rollover 
to OOH, and only cause the overflow interrupt when it then reaches 
the period value. This would give a wrong PWM output. 


“s 


“se 


In this example the event which cause the PWM to be updated 
is an asynchronous event. A low frequency signal was placed on 
port pin RBO. 
For a high level the PWM registers are updated as follows: 
PR1 = 7Fh, PW1DCH = 3Fh, and PW1IDCL = 40h 
For a low level the PWM registers are updated as follows: 
PR1 = 1Fh, PWI1DCH = O7h, and PWLDCL = 80h 





Do the EQUate table 


-e *s Te “se Se Fs Se Fe Te Fe Te Te “Ss Fe “HS MA Te MS 


0020 NEW _DC1 EQU 0x20 ; New PWM1 duty cycle value 
0021 NEW _DC1Q EQU Ox21 M 

0022 NEW PRI1 EQU 0x22 ; New PWM1 period value 

0025 PWM WIN EQU 0x25 ; Register for the PWM window cycle 
count 

0026 CALC _PR EQU 0x26 ; Calculated period value 
0027 FLAG REG EQU Ox27 ; Register for flag bits 
OO1A DC1H EQU Ox1A ; PWM registers for high time 
001B DC1QH EQU 0x1B 

001C PR1H EQU Ox1Cc 

001D DELL EQU Ox1D ; PWM registers for low time 
001E DC1QL EQU Ox1lE 

OO1F PRiL EQU Ox1F 

O7FF END OF PROG MEM EQU 0x07FF 

0004 ALUSTA EQU 0x04 

0006 CPUSTA EQU 0x06 

0007 INTSTA EQU 0x07 

OOOA W EQU Ox0A 

0011 DDRB EQU Oxil ; Bank 0 

0012 PORTB EQU 0x12 

0016 PIR EQU 0x16 ; Bank 1 

0017 PIE EQU Ox17 
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0010 TMR1 EQU 0x10 ?; Bank 2 


0011 TMR2 EQU 0x11 
0012 TMR31 EQU 0x12 
0013 TMR3h EQU 0x13 
0014 PR1 EQU 0x14 
0015 PR2 EQU 0x15 
0016 PR3L EQU 0x16 
0017 PR3h EQU 0x17 
0010 PW1DCL EQU 0x10 ; Bank 3 
0011 PW2DCL EQU 0x11 
0012 PW1DCH EQU 0x12 
0013 PW2DCH EQU 0x13 
0016 TCON1 EQU 0x16 
0017 TCON2 EQU Ox17 
ORG 0x0000 ; Origin for the RESET vector 
0000 C02B GOTO START ; On reset, go to the start of 
; the program 
ORG 0x0008 ; Origin for the external RAOQ/INT 
; interrupt vector 
0008 CO7C GOTO EXT_INT ; Goto the ext. interrupt 
; on RAO/INT routine 
ORG 0x0010 ; Origin for the RTCC 
: overflow interrupt vector 
0010 CO7D GOTO RTCCINT ; Goto the RTCC overflow interrupt 
: routine 
ORG 0x0018 ; Origin for the external 
; RA1/RT interrupt vector 
0018 CO7E GOTO RT_INT ; Goto the ext. interrupt on 
; RA1/RT routine 
ORG 0x0020 ; Origin for the interrupt vector 
; of any enabled peripheral 
; The interrupt routine for any peripheral interrupt, This routine 
; only deals with Timerl interrupt. 
; Time required to execute interrupt routine. Not including 
; interrupt latency (time to enter into the interrupt routine) 
; casel - only Tl overflow = 12 cycles 
case2 - Other = Infinite Loop 
0020 B801 PER_INT MOVLB 1 ; Select register Bank 1 
0021 9416 . BTFSS PIR,4 ; Did Timerl overflow? 
0022 C022 ERROR GOTO ERROR ; Not a Timerl overflow. 
; No other interrupts should 
; be enabled, so error. 
; Once the enabled Timerl overflow occurs, the period register 
; is loaded. This PWM waveform will remain until the PWM duty 
; cycle and / or period is updated. Until such update, there is no 
; S/W overhead from Tl interrupts (Tl interrupts can be disabled). 
; NOTE: If PWIDCH >= PR1, then the duty cycle of this PWM output 
; is 100%. 
; NOTE: The new Period register (PR1) value, must always be greater 
} than the value in the Timerl register (TMR1). If a PR1 value 
; is loaded that is less then the TMR1 value, the timer will 
; continue to count until it reaches the PR1 value. I.E. TMR1 
; will overflow at FFh and the count to the new PR1 value. 
; Minimum PR1 value is OAh, due to time to load new values and 
5 execute the peripheral interrupt service routine. 
0023 8C16 TIOVEL BCE PIR, 4 ; Clear Overflow interrupt flag 
0024 B802 MOVLB 2 ; Bank2 
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0025 7422 MOVEFP NEW_PR1,PR1 ; Load this period value 
0026 B801 MOVLB a ; Bank 0 
0027 8C17 BCF PIE, 4 ; Disable Tl interrupt 
: (until transition on PORTBO) 
0028 B800 MOVLB 0 ; Bank 0 
0029 3F12 BTG PORTB, 7 ; Transition PortB 7 pin (H->L, 
002A 0005 RETF IE ; Return from Interrupt 
; This is the start of the program. 
002B 8406 START BSF CPUSTA, 4 Disable ALL interrupts via the 


Global Interrupt Disable 
(GLINTD) bit. 


MAIN ; Place Main program here 
002C B803 MOVLB 3 ; Select register Bank 3 
002D 2817 CLRF TCON2 0 ; Stop the timers, Single Capture 
002E BO70 MOVLW 0x070 ; Initalize TCON1 so that 
OO2F 0116 MOVWE TCON1 : Ti .(8=biti -T2 (8 =bit)., 
; and T3 run off the internal 
; system clock. Timer3 uses 
; period register 
0030 BOOD MOV LW 0x0D ; Load the PWM window cycle value 
0031 0125 MOVWE PWM WIN : 
0032 B800 MOVLB 0 ; Select register Bank 0 
0033 2B11 SETE DDRB, 1 ;. Port BR. as.<an- input 
0034 2912 CLRFE PORTB, 1 ; Set output values to 0 (for 
0035 8F11 BCF DDRB, 7 ; PORTB7 is an output. Used to 
0036 2927 CLRF FLAG REG, 1 ; Clear the Flag registers 


Load registers with the PWM values that we will switch between. One set 
for the time PORTBO is high and another set for when low. 





For a high level the PWM registers are updated as follows: 

PR1 = 7Fh, PW1DCH = 3Fh, and PWIDCL = 40h 

At 16Mhz this gives a period of 31.75 us, and a duty cycle of 16.625 us 
For a low level the PWM registers are updated as follows: 

PR1 = 1Fh, PW1DCH = O7h, and PW1DCL = 80h 

At 16Mhz this gives a period of 7.75 us, and a duty cycle of 6.00 us 


~e %e se *ea Ye “es ~s Me Ms ME MO 


0037 B&803 MOVLB 3 ; Bank 3 

0038 BO3F MOVLW Ox3F ; The Duty Cycle initial value is 

0039 4Al1A MOVPF W, DC1H ; 50% of the initial period 

003A B040 MOVLW 0x40 ; 

003B 4A1B MOVPF WW, DC1QH ; Duty Cycle low = 01 

003C BOO? MOVLW 0x07 > The Duty Cycle initial value is 

003D 4A1D MOVPF W, DCIL ; 25% of the initial period 

003E BO80 MOVLW 0x80 ; 

0O03F 4Al1E MOVPF W, DC1QL ; Duty Cycle low = 10 

0040 B802 MOVLB 2 ; Bank 2 

0041 BOTF MOVLW Ox7F ; 

0042 4A1C MOVPF W, PR1H ; The initial period value is 50% 
; of full scale (for High) 

0043 BO1F MOVLW Ox1F 

0044 4Al1F MOVPF W, PRiL ; The initial period value is 


: of full scale (for Low) 


Default PWM values should be set, and the timer should be started 
and the interrupts enabled. 


~s we Pe Te Ve 


0045 BOFO MOVLW OxFO ; Load the Period register 
0046 0114 . MOVWF PRI ; 
0047 B803 MOVLB 3 ; Select register Bank 3 
0048 BOCO MOVLW OxC0 ; Load the Tl duty cycle register 
0049 0112 MOVWE PW1DCH ; 





LAE A EIR EN SES TN I ET TT EE DER EA II A NI I IE TEE ENE CE EY TEL SENTERO OR TT ITT LTE TEI EE OE a EE 
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004A 0110 
004B BO31 
004C 0117 
004D 8307 
004E B801 
004F BO10 
0050 0117 
0051 8C06 
0052 B800 


0053 8827 
cycle) = True 
0054 9012 

0055 COSF 

0056 9827 
(this cycle)? 
0057 C054 
PortBO 

0058 8027 
cycle) = False 


0059 B803 
OO5A 5A20 
005B 5B21 
005C 5C22 
005D E06B 
OO5E C054 


OO5F 8827 
0060 9812 
0061 C053 
0062 9827 
0063 C060 
on PortBO 
0064 8027 


0065 B803 
0066 5D20 
0067 SE21 
0068 SF22 
0069 E06B 
006A C060 


006B 8406 
006C B802 
006D 6A10 
OO0O6E 0414 
QOO6F 3025 
0070 C0O6B 


0071 B803 


MOVWE 
MOVLW 
MOVWE 
BSF 

MOVLB 
MOVLW 
MOVWF 
BCE 

MOVLB 


HIGH1ST BCF 

HIGHCYC BTFSS 
GOTO 
BTFSC 
GOTO 


BSE 


7-e te tS 


MOVLB 
MOVPF 
MOVPF 
MOVPF 
CALL 
GOTO 
LOW1ST BCE 
LOWCYC BIFSe 
GOTO 
BiIFSe 
GOTO 


BSF 


“ae “8s “se 


MOVLB 
MOVPE 
MOVPF 
MOVPF 
CALL 
GOTO 


a ed id Bad) 


TH ss te se Ne 


WM1 UD BSF 
- MOVLB 
MOVFP 
SUBWE 
CPFSLT 
GOTO 


MOVLB 


Here is where we update the PWM 


PW1DCL 
0x31 
TCON2 
INTSTA, 3 
1 

0x10 

PIE 
CPUSTA, 4 
0 


FLAG REG, 0 
PORTB, 0 
LOW1ST 

FLAG REG, 0 
HIGHCYC 


FLAG REG, 0 


Here is where we update the PWM values 


3 

DC1H, NEW_DC1 
DC1QH, NEW_DC1Q 
PR1H, NEW PR1 
PWM1_UD 

HIGHCYC 


FLAG REG, 0 
PORTB, 0 
HIGH1ST 
FLAG REG, 0 
LOWCYC 


FLAG REG, 0 


3 

DC1L, NEW _DC1 
DC1QL, NEW DC1Q 
PR1IL, NEW _PR1 
PWM1_UD 

LOWCYC 


CPUSTA, 4 
2 

TMR1, W 
PR1, 0 
PWM_ WIN 
PWM1_UD 


3 


values 


; effectively loaded with 0 

;** Enable PWM1 and PWM2 outputs 
7;** and turn on Timerl. 

; Turn on Peripheral Interrupts 
* Select register Bank 1 

; Enable Timerl overflow 

; Interrupts (when GLINTD = 0) 
; Enable ALL interrupts 

; Bank 0 


Only need to update PWM values on the first occurance of a new level on 
Else loop waiting for level to change. 


; First time in loop (this 


Is PortBO low 
PORTBO = L 
Is this the First High time 


~a te MO 


; Loop looking for low signal on 


; Set First time in loop (this 


(period and Duty cycle) for high 


Bank 3 


=e =e ~e ~e =e =e 


Loop looking for low signal on 


First time in loop (this 

Is PortBO high 

PORTBO = H 

Is this the First Low time 
Loop looking for high signal 


Oy en? ey eT nT | 


; First time in loop (this 


(period and Duty cycle) for low 


Bank 3 


Loop looking for high signal 


This code segment ensure that all PWM values (period and duty cycle) 

are updated at the same time. This is done by ensuring that the Timer 

is at least PWM WIN (0Dh) cycles before the PR1 value (PR1 - PWM_WIN > 

If not a “glitch” could occur in the PWM waveform. When only the ist duty 
cycle register is latched for this PWM cycle, and the following PWM period 
will latch the 2nd duty cycle register. 


Disable Global Interrupts 
Bank 2 

Load W reg. with Timerl value 
PR1 ~ TMR1 -> W reg. 

Check if Timerl is about to 
Overflow would have occurred 
PWM updates, Delay a few 

Bank 3 


“se 7s se Fe Te “8 Fe ME 
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0072 6A20 MOVFP NEW DCl, W ; Your New PWM MSB 
0073 0112 MOVWE PW1DCH ; Loaded in duty cycle buffer 
0074 6A21 MOVEFP NEW DC1Q, W ; Your New PWM LSB 
0075 0110 MOVWE PW1DCL ; Loaded in duty cycle buffer 
0076 B801 MOVLB 1 ; Back to Bank 1 
0077 8C16 BCF PIR, 4 ; Clear Tl Overflow interrupt 
0078 8417 BSF PIE, 4 >; Enable Tl int 
0079 8C06 BCF CPUSTA, 4 ; Enable Global Interrupts 
OO7A B800 MOVLB 0 ; Bank 0 
007B 0002 RETURN 7;** this does not need to be 
;** as a subroutine, 

; Other Interrupt routines. (Not utilized in this example) 

007C 0005 EXT_INT RETFIE RAO/INT interrupt routine 


: (NOT used in this program) 
007D 0005 RTCCINT RETFIE ; RTCC overflow interrupt routine 

: (NOT used in this program) 
OO7E 0005 RT_INT RETFIE ; RA1/RT interrupt routine 


(NOT used in this program) 
OO7F CO2B SRESET GOTO START If program became lost, goto 
START and reinitalize. 


When the executed address is NOT in the program range, the 
16-bit address should contain all 1’s (a CALL Ox1FFF). At 

this location you could branch to a routine to recover or 

shut down from the invalid program execution. 


=e “se “es *e “se “ses @ 


ORG END OF PROG MEM ; 
O7FF COT7F GOTO SRESET ; The program has lost it’s mind, 
; do a system reset 
END 





Errors : 
Warnings : 0 
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Using the Capture Module 





INTRODUCTION 


The PIC16/17 family of RISC-like microcontrollers has 
been designed to provide advanced performance anda 
cost-effective solution for a variety of applications. This 
application report provides examples which illustrate the 
uses of input capture using the PIC17C42 Timer3 mod- 
ule. These examples may be modified to suit the specific 
needs of an application. 


This Application Note has 4 examples that utilize the 
Timer3 input capture. They are: 


1. Frequency Counter (Period Measurement) 


2. Frequency Counter (Period Measurement) using a 
Free Running Timer 


3. Pulse Width Measurement 


4. Frequency Counter (Period Measurement) with In- 
put Prescaler 


TIMERS DESCRIPTION 


Timer3 is a 16-bit counter that has two modes of opera- 
tion which can be software selected. The CA1/PR3 bit 
(TCON2<3>) selects the mode of operation. The two 
modes are: 


1. Timer3 with Period Register and Single Capture 
Register (see Figure 1) 


2. Timer3 and Dual Capture Registers (see Figure 2) 
Timers is the time-base for capture operations. 


FIGURE 1 - TIMER3 WITH PERIOD REGISTER AND SINGLE CAPTURE REGISTER 


Timer + Period Reg + One Capture Mode (CA1/PR3 = 0) 


TMR3C 
(TCON1<2>) 


x = 


RB5/TCLK3 TMR3ON 
(TCON2< 25) 


RB1/CAP2 


Edge Select 
Prescaler Select 
2 


CA2ED1, CA2EDO 
(TCON1<7:6>) 
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PR3H/CA1H PR3L/CA1L 

A 

( eamenserll 
TMR3H<8> TMR3L<8> 


Timer 3 Interrupt 
(TM3IR, PIR<6>) 


Reset 


Capture 2 Interrupt 
(CA2IR, PIR<3>) 
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FIGURE 2 - TIMER3 AND DUAL CAPTURE REGISTERS 


Timer + Two Capture Mode (CA1/PR3 = 1) 


CA1ED1, CA1EDO 
(TCON1<5:4>) 


2 


___| Edge eee all 
eee all Select 
RBO/CAP1 


Capture 1 Interrupt 
(CA1IR, PiIR<2>) 


PR3H/CA1H PR3L/CA1L 
| 
Capture a 


Timer 3 Interrupt 
(TM3IR, PIR<6>) 


enable 
OSC/4 
Ke - TMR3H<8> TMR3L<8> 


RB5/TCLK3 TMR3ON 
(TCON2<2>) 


TMR3C \/ 
(TCON1<2>) Capture 


enable 


CA2H 
Capture 2 Interrupt 
(CA2IR, PIR<3>) 


<i Edge Select 
Prescaler Select 


be 


CA2ED1, CA2EDO 
(TCON1<7:6>) 





The period register allows the time base of Timers to be 


something other than the 2'* counter overflow value, 
which corresponds to FFFFh (65536) cycles. This is 
accomplished by loading the desired period value into 
the PR3H/CA1H:PR3L/CA1L register pair. The overflow 
time can be calculated by this equation: 


Tofl = Tclk * (value in PR3H/CA1H:PR3L/CA1L 
register pair + 1). 


Where Tclk is either the internal system clock (Tcy) or 
the external clock cycle time. Table 1 shows time-out 
period for different period values at different frequen- 
cies. The values in the register are the closest approxi- 
mation for the period value. Ail examples in this applica- 
tion report uses a Timer overflow value of FFFFh. 


erence a ae Tne 
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TABLE 1 - TIMER3 OVERFLOW TIMES 






















































































Period Register 

Overflow @16MHz | @10MHz @ 5 MHz @ 2 MHz @ 32 KHz 

Time (250 ns) (400 ns) (500 ns) (800 us) (2.0 us) (125 us) 
'8.192S N.A. NA. N.A. NA. OxFFFF 

131.072mS | NA. N.A. N.A. OxFFFF 0x0418 ‘ 

32.7675mS | NA NA. OxFFFF Ox9FFF Ox3FFF 0x0106 

26.214mS | NA. 0x80D4 0x3388 0x00D3 

16.384mS | OxFFFF 0xA000 0x5000 0x2000 0x0083 
0x9C40 Ox61A8 0x30D4 0x1388 0x0050 
0x3E80 0x2710 Ox1F40 0x1388 0x07D0 0x0020 

1.0ms Ox0F AO 0x07D0 Ox01F4 0x0008 

600 uS 0x0960 Ox05DC 0x04B0 Ox02EE 0x012C 0x0005 

100 uS OxOOFA 0x00C8 0x007D | 0x0032 NA | 








The uses of an input capture are all for time based 
measurements. These include: 


¢ Frequency measurement 
¢ Duty cycle and pulse width measurements 


The PIC17C42 has two pins (RBO/CAP1 and 
RB1/CAP2) which can be used for capturing the Timer3 
value, when a specified edge occurs. The input capture 
can be specified to occur on one of the following four 


events: 
¢ Falling Edge 
« Rising Edge 


4th Rising Edge 
16th Rising Edge 


These are specified, for both capture pins, by the regis- 
ter TCON1<7:4>. 


This flexibility allows an interface without the need of 
additional hardware to change polarity or specify an 
input prescaler. 


tS ssn 
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The contro! registers that are utilized for by Timer3 are 
shown in Table 2. Shaded Boxes are control bits that are 
not used by the Timer3 module, the Peripheral Interrupt 
enable and flag bits, and the Global Interrupt enable bit. 


TABLE 2 - REGISTERS ASSOCIATED WITH TIMER3 AND CAPTURE: 


wane [ean | AooR [oe [ove | ows | oa 
INTSTA 2 


Timer3 LSB Register 
1 
a | 
1 
























TMR3H 


TMR3L 
CA2L 3 Ptah | Timer3 Capture2 LSB Register 


) 
7 


. Timer3 Capture2 MSB Register 
SODOOOOSSIOR SOO OOGOCOOOC OOK itt aa RR KIO OX A IOSD AIR SORKIN OOOO 2 CADIR CM! IR 


CAZIE CAIIE 







16h 





mm [ 
PR3L/ 
CAIL 
PR3H/ 
CA1H Timer3 - Period MSB Register/ Capture1 MSB Register 


TCON1 CA2ED1 | CA2EDO | CA1ED1 | CA1EDO TMR3C 
TCON2 | 3 fam. | CA2OVF | CAIOVF [f | CA1/PR3 | TMR3ON 


This Application Note has 4 examples that utilize the FIGURE 3 - APPLICATION HARDWARE 
Timers input capture. They are: SETUP 


Timer3 - Period MSB Register/Capture1 MSB Register 


NO 





6h 
7h 
12h 
3h 
14h 
15h 
17h 
6h 
7h 
16h 
17h 


1. Frequency Counter (Period Measurement) 


2. Frequency Counter (Period Measurement) using a 
Free Running Timer 


3. Pulse Width Measurement 
PIC17C42 


4. Frequency Counter (Period Measurement) with In- (40-Pin DIP Package) 


put Prescaler 


All these examples can be run from a simple setup, this 
is show in Figure 3. 


Frequency RB1/CAP2 
Generator 


EXT Clock In OSC1 


CLKOUT 





A discussion of each application with the operation of 
the software and application issues. The source listings 
for these are in appendices A-D. 


ee cn RE A sR 
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PERIOD MEASUREMENT The program listing in Appendix A implements this, 

assuming only Timer3 overflow and capture2 interrupt 
(FREQUENCY COUNTER) ee This example may be modified to suit i | 
Period measurement is simply done by setting the particular needs of your application. The following is a 
counter to 0000h, then starting the counter on the 1st performance summary for this program (@ 16 MHz): 
rising edge. On the following rising edge, the capture 2 
register is loaded with the Timer3 value and the Timer3 Baume: 30 Words 
(TMR3) register is cleared. If the period is greater than 
the overflow rate of Timer3, the timer overflows, causing RAM used: 4 Bytes 
an interrupt. With a TMR3 overflow, an interrupt occurs Maximum frequency that can be measured: 130 KHz 


and the overflow counter may need to be incremented. 


: : Minimum frequency that can be measured: 0.25 Hz 
The overflow counter should be incremented if: api 


Measurement Accuracy: +/- Icy (+ 250 nsec) 
1. The TMR3 overflow is the only interrupt source. 
2. Both the TMR3 overflow and capture2 interrupts 
occurred at near the same time, but the TMR3 
overflow occurred first (Most Significant Byte of the 
Capture2 register = 00h). 


Once a capture2 has occurred, the capture registers are 
moved to data RAM, the capture2 interrupt flag is 
cleared and the TMR3 register is loaded with an offset 
value. This offset value is the number of cycles from the 
time the interrupt routine is entered to when the TMR3 
register is reloaded. In this example adata RAM location 
is used as an overflow counter. This gives in effect a 
24-bit timer. The software flow for this routine is shown 
in Figure 4. 


FIGURE 4 - SOFTWARE TIMING FLOW RELATIVE TO INPUT SIGNAL ON RA1/CAP2 





Capture interrupt Capture interrupt 
Initialize program Start timer routine (calculate period), routine (calculate period), 
loop while pin high wait loop clear timer clear timer 


RA1/CAP2 pin 


t 


Loop while pin low 


MCLR pin 
(reset or power | 


on reset) 
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PERIOD MEASUREMENT 
(FREQUENCY COUNTER) USING A 
FREE RUNNING TIMER 


In many applications the timer (TMR3) would need to be 
used for multiple tasks, and could not be reset (modified) 
by any one of these tasks. This is called a free running 
timer. To do period measurement in a free running timer 
application, the program needs to store each capture in 
a data RAM location pair (word). The 1st capture in data 
RAM locations input capture2A (IC2AH:IC2AL) and the 
2nd capture in data RAM locations input capture2B 
(lI\C2BH:IC2BL). Once the two captures have occurred, 
the values in these two words is subtracted. Since this is 
a free running timer, the value in input capture2B may be 
less than the value in input capture2A. This is if the 1st 
capture occurs, then the Timer3 overflows, and then the 
2nd capture occurs. So an overflow counter should only 
be incremented if the Timer3 overflow occurs after a 
capture but before the capture2 occurs. With the use of 
an overflow counter this becomes an effective 24-bit 
period counter. The software flow for this routine is 
shown in Figure 5. 


The program listing in Appendix B implements this, 
assuming only Timer3 overflow and capture2 interrupt 
sources. This example may be modified to suit the 
particular needs of your application. The following is a 
performance summary for this program (@ 16 MHz): 


Code size: | 41 Words 
RAM used: 76 Bytes 
Maximum frequency that can be measured: 80 KHz 
Minimum frequency that can be measured: 0.25 Hz 


Measurement Accuracy: +/- Tey (+250 nsec) 


FIGURE 5 - SOFTWARE TIMING FLOW RELATIVE TO INPUT SIGNAL ON RA1/CAP2 


Capture interrupt 


Initialize Capture 
_ program interrupt 


2nd capture (subtract Capture Capture Capture 
1st capture from 2nd interrupt interrupt interrupt 


wait loop 1stcapture capture for period time) 1stcapture 2ndcapture 1st capture 


| 


RA1/CAP2 pin 


MCLR pin 
(reset or power — | 


on reset) 





| tt tn i A nintntnnsnesensnnehamhsinestnntttctetn ALAR 
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PULSE WIDTH MEASUREMENT 
USING A FREE RUNNING TIMER 


Applications that require the measurement of a pulse 
width can also be easily handled. The PIC17C42 can be 
programmed to measure either the low or the high pulse. 
The software example in Appendix C measures the High 
pulse time. The program is initialized to capture on the 
rising edge of the RA1/CAP2 pin. After this event occurs, 
the capture mode is switched to the falling edge of the 
RA1/CAP2 pin. When the capture edge is modified 
(rising to falling, or falling to rising) a capture interrupt is 
generated. This "false" interrupt request must be cleared 
before leaving the interrupt service routine, or the pro- 
gram will immediately re-enter the interrupt service 
routine due to this "false" request. When the falling edge 
of the RA1/CAP2 pin occurs, the difference of the two 
capture values is calculated. The flow for this is shown 
in Figure 6. 


Due to the software overhead of the Peripheral Interrupt 
routine the following are the limitations on the input 
signal on RA1/CAP2 pin. This does not include any 
software overhead that may be required in the main 
routine, or if additional peripheral interrupt features need 
to be included. This is shown in Table 3. If you assume 
that the input is a Square wave (high time = low time), one 
needs to take the worst case time of the two minimum 
pulse times (11 uS) times two, to determine the period. 
The maximum continuous input frequency would then be 
approximately 45.5 KHz. For a single pulse measure- 
ment, minimum pulse width is 4.5 us. 


The program listing in Appendix C implements this, 
assuming only Timer3 overflow and capture2 interrupt 
sources. This example may be modified to suit the 
particular needs of your application. The following is a 
performance summary for this program (@ 16 MHz): 
Code size: 51 Words 

RAM used: 7 Bytes 

Maximum frequency that can be measured: 71 KHz 

Minimum frequency that can be measured: 0.25 Hz 


Measurement Accuracy: +/- Tcy (+250 nsec) 


FIGURE 6 - SOFTWARE TIMING FLOW RELATIVE TO INPUT SIGNAL ON RA1/CAP2 


Capture interrupt 
Capture interrupt 1 edge. Subtract 2 
Initialize T edge. Change capture values to 
program, capture edge detect etermine pulse 
waitloop = to 1 edge width 


RA1/CAP2 pin 


MCLR pin 
(reset or power 
on reset) 





TABLE 3 - PERIPHERAL INTERRUPT ROUTINE 


EVENT # of Cycles Time @ 16 MHz 


Capture1 Only 18 4.5uS 
Capture1 and Timer Overflow 30 7.5uS 


2nd CAPTURE Capture Only 35 8.75 uS 
Capture and Timer Overflow 41 10.25 uS 


1st CAPTURE 


8.25 uS 


2 * (Minimum Pulse Low) 88 22 uS 


Minimum Pulse High | Capture1 and Timer Overflow + INT Latency 


Minimum Pulse Low | Capture2 and Timer Overflow + INT Latency 
Minimum Period 
(Square wave) 
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PERIOD MEASUREMENT 
(FREE RUNNING TIMER) 
WITH A PRESCALER 


Occasionally the application may require a prescaler on 
the input signal. This may be due to application require- 
ments, such as: 


¢ Require higher resolution measurement of the input 
signal 


¢ Reduce interrupt service overhead 


¢ The input frequency is higher than interrupt service 
routine | 


The software selectable prescaler of the PIC17C42 
allows the designer to easily implement this in their 
system without the cost of additional hardware. Care 
must be taken in determining if this option is appropriate. 
For example, if the input frequency is not stable (exces- 
sive frequency change per period) then the prescaler 
will give aless accurate capture value than the individual 
measurements. 


In cases where the resolution of the input frequency is 
important, the Prescaler can be used to reduce the input 
capture error. There are two components to input cap- 
ture: 


1. Resolution Error 
2. Input Synchronization Error 


These two errors add together to form the total capture 
error. Resolution error is dependent on the rate at which 
the timer is incremented, remember the timer may be 
based on an external clock (must be slower than Tcy). 
The input synchronization error is dependent on the 
system clock speed (Tcy), and will be less than Tcy. 


It is easy to see that when a capture occurs the synchro- 
nization error (Tesync) can be up to 1 Tcy (see Figure 7). 
This error is constant regardless of the number of edges 
that occur before the capture is taken. So a capture on 
the 1st edge gives a synchronization error per sample up 
to Tcy. While a capture taken on the 16th edge gives a 
synchronization error per sample only up to Tcy / 16, by 
achieving a smaller percentage of error, the captured 
value becomes more accurate. 


FIGURE 7 - SYNCHRONIZATION ERROR WITH NO CAPTURE PRESCALER 


ai | a2 | a3 | as ai| a2} a3| a4 ai | a2 | a3 | a4 


RBO/CAP1 


Internal 
capture edge 
detect latch 


CA1H, CAIL 
(Capture 
registers) 


1.75 Tey @) 
Notes: 


Qi | a2| a3| as ai | a2 | a3 | as ai | a2 | a3 | a4 


1. Capture edge to actual capture register update latency is 1.75 Tcy max., 0.75 Tcy min. 
This implies that when measuring a pulse or a period, the measurement error is + Tcy. 


2. With no prescaler on the input capture, two consecutive capturing edges must be apart by at least Tcy. 
This allows the internal "capture edge detect latch" to reset. 
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Another scenario is when the signal on the input capture 
pin is different than the system cycle time (Tcy), for 
example 1.6 Tcy. If you tried to capture this you would 
have a capture value of 1. If you set the prescaler to 
actually capture on the 16th edge you would have 
16*1.6 Tcy = 25.6 Tcy, which would be latched on the 
26th Tcy (see Figure 8). This 0.4 Tcy error is over 16 
samples, which therefore gives an effective error/sample 
of 0.025 Tcy. 


The program listing in Appendix D implements this, 
assuming only Timer3 overflow and capture2 interrupt 
sources. This example may be modified to suit the 
particular needs of your application. The following is a 
performance summary for this program (@ 16 MHz): 


Code size: 41 Words 
RAM used: 7 Bytes 
Maximum frequency that can be measured: 80 KHz 
Minimum frequency that can be measured: 0.25 Hz 


+/- Tcy (+ 16.625 
nsec) 


Measurement Accuracy: 


FIGURE 8 - INPUT CAPTURE DIVIDED BY 16 PRESCALE EXAMPLE 


Tolk agp Les ie i es a es a Fe ae eG 





SONGS 3 fale pe a Ne Lc ee ee De ha a ee, 


CAP1 Pin 


Internal 
capture edge 
detect latch 
(input divided 
by 16) 





das 





Author: Mark Paimer 


Logic Products Division 
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APPENDIX A - PERIOD MEASUREMENT EXAMPLE CODE 


MPASM BO.54 PAGE 1 


; This is the basic outline for a program that can determine the 

; frequency of an input, via input capture. This routine uses an 

; 8-bit register to count the times that timer3 overflowed. At the 
; Max crystal frequency of 16 MHz, this gives an overflow time of 
e AZEELSG) AZS6 + 1) (250 nS) .>-4,.21. sec or a frequncy < 0,25 Az, Tf 
; measurement of longer time intervals is required, the overflow 

7; counter could be extended to 16 (or more) bits. 


; Do the EQUate table 


LIST P=17C42, C=80, T=ON 


0020 IC20F EQU 0x20 ; T3 overflow data 
0021 IC2H EQU Ox21 ; T3 IC2 MSB data r 
0022 IC2L EQU 0x22 ; T3 IC2 LSB data r 
0023 T30FLCNTR EQU 0x23 ; Temperay T3 overf 
O7FF END OF PROG MEM EQU Ox07FF 
0006 CPUSTA EQU 0x06 
0007 INTSTA EQU 0x07 
OOOA W EQU Ox0A 
0012 PORTB EQU 0x12 ; Bank 0 
0016 PIR EQU Ox16 ; Bank 1 
0017 PIE EQU Ox17 
0012 TMR3L EQU 0x12 ; Bank 2 
0013 TMR3H EQU 0x13 
0014 CA2L EQU Ox14 ; Bank 3 
0015 CA2H EQU 0x15 
0016 TCON1 EQU 0x16 
0017 TCON2 EQU Ox17 

ORG 0x0000 e. OLFigin -to 
0000 C028 GOTO START ; On reset, 

; the program 
ORG 0x0008 7 Origin fo 
: interrupt vector 

0008 CO5E GOTO EXT INT ; Goto the 


; on RAOQ/INT routine 
ORG 0x0010 ¢ Origin, £6 


; overflow interrupt vector 


0010 CO5F GOTO RTICCINT ; Goto the 
: routine 
ORG 0x0018 , Origin.to 


: RA1/RT interrupt vector 
0018 C060 GOTO RT_INT ; Goto the 
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: RA1/RT routine 
ORG 0x0020 +OTrigin £0 


; of any enabled peripheral 
0020 C040 GOTO PER_INT ; Goto the 


; peripheral routine 
ORG 0x0028 ; Origin: fo 


‘ program memory 
0028 8406 START BSF CPUSTA, 4 ; Disable A 


; Global Interrupt Disable 
; (GLINTD) bit. 


MAIN ; Place Main program here 
0029 B803 MOVLB 3 ; Select re 
002A 2817 CLRF TCON2,0 ; Stop the 
002B 8317 BSF TCON2, 3 ; Dual in 
002C BO70 MOVLW 0x070 ; Initalize 
002D 0116 MOVWE TCON1 ; TL: (Sep 
; and T3 run off the internal 


system clock. Capture2 
; captures on the rising edge. 


Ne 


; Initalize Timer 3, so we can count clock cycles. For the 


; measurement Timer3 is not started exactly at the RA1/CAP2 





; transition. Therefore an offset is required due to softwa 


; overhead (3 cycle). 


002E B802 MOVLB 2 ; Select re 
O02F 280A CLRF Ww, 0 ; Clear the 
0030 0113 MOVWE TMR3H ; Timer3 MS 
0031 BOO3 MOVLW 0x03 ; Timer3 LS 
0032 0112 MOVWE TMR3L ; 


; We need to wait for an event to happen to start timer 3. 

; be when the RA1/CAP2 pin to does a Low to High transition 
; Signifies the start of the first interval to measure. Thi 
; by looping while the RA1/CAP2 pin is high, and then loopi 
; it is low. When that 2nd loop is exited, there has been a 


; high transition and the timer should be started and inter 


; enabled. 
0033 B800 MOVLB 0 | ; Select re 
0034 9912 RA1HIGH BTFSC PORTB 1 > Es-the CA 
0035 C034 GOTO RA1HIGH ; Loop here 
0036 9112 RA1LOW BTFSS PORTB, 1 ; Is the CA 


a SS SA PS =a CSTE DOP EE TS TL SST 
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0037 C036 GOTO RA1LOW ; Loop here 
0038 B803 MOVLB 3 ; Select re 
0039 8217 | BSF TCON2, 2 ; Turn: on 
003A 8307 BSF INTSTA, 3 ; Turn on P 
003B B801 MOVLB a3 ; Select re 
003C B048 MOVLW 0x48 ; Enable Ca 
003D 0117 MOVWF PIE H Interr 
OO03E 8C06 WAIT BCF CPUSTA, 4 ; Enable AL 
003F C03E GOTO WAIT ; Loop here 
; Interrupt 


; The interrupt routine for any peripheral interrupt, This 

; only deals with Timer3 (T3) interrupts. 
0040 B801 Scene MOVLB 1 P Select 1e 
0041 9F16 BTFSC  PIR,6 ; Did T3 ov 


; If not skip next 


0042 C057 GOTO T30VFL ; Inc overf 
0043 9316 CK CAP BTFSS PIR, 3 ; Did the R 

; interrupt? 
0044 0005 RETFIE ; No RB1/CA 


; Return from 
; If Both a timer 3 overflow and CAP2 interrupt occured nea 
7; Same time. Need to determine which one occured first.Ther 
; two possibilities when the PIR register has both the time 
; overflow interrupt and input capture 2 interrupt bits set 
; 1. the input capture occured and then timer 3 overfl 
; 2. timer 3 overflowed and then the input capture occ 


*; in case 2. the MSB of the capture register would be Oh. 


° 
i 


0045 B803 CAPTURE MOVLB 3 ; Select re 
0046 5422 MOVPF CA2L,IC2L ; Move the 
0047 5521 MOVPF CA2H, IC2H ; tempora 

; (to pervent 
0048 B802 MOVLB 2 ; Select re 
0049 BOOA MOVLW Ox000A ; Reload th 
004A 0112 MOVWE TMR3L ; 10, sin 


; to reach this 
: timer3 interrupt 


<a SP SSE SO NG SESE 
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O004B 280A CLRF W,0 ; Clear the 

004C 0113 MOVWE TMR3H ; Timer3 MS 

004D B801 MOVLB ak ; Select re 

OO4E 3121 CPFSEQ IC2H e LE then 
7 register = 0, 
(ie Capture 

OO4F CO5S1 GOTO SDEC ; Skip the 

0050 0723 DECF T30FLCNTR, 1 ; Capture o 


; overflow, so 
; overflow counter. 


0051 6A23 SDEC MOVFP T30FLCNTR,W ; Store the 
0052 4A20 MOVPF W, IC20F ; overflo 
0053. 28623 CLRF T30FLCNTR, 0 ; Clear the 


; counts how 
: overflows. 


; Clear the Capture2 and T3 Overflow interrupt flags. T3 Ov 
; should be cleared again since the overflow may have occur 
; while we were in this (PER_INT) interrupt routine. This w 
; be between the compare of the T3 overflow interrupt flag 


; the resetting of the timer 3 counter, which is about 6 cy 





0054 8B16 BCF PIR; 3 ; Clear Cap 

0055 8E16 BCF PIR, 6 ; Clear Tim 
; flag 

0056 0005 RETFIE ; Return fr 


; When Timer 3 has overflowed, the overflow counter should 
; incremented. Then the Timer 3 overflow flag, the source o 
; the interrupt, should be cleared. then return to see if a 
; Capture also occured. 

; NOTE: Timer 3 has a process dependent silicon problem whi 
; may give 2 overflow interrupts for each “real” over 
‘ interrupt. The first (“false”) interrupt will occur 


: the timer OxFEFF to OxFFOO transition. The second 


: interrupt then occursat the “real” overflow. A soft 
; fix is included in this routine (T30VFL). These add 
P lines are designated by ;** as a comment. Once this 
; been corrected, these lines of code can be removed. 


Raa Sk a a I A OFT GA TS TOR Nk aS aS Se NE A oe oe ERE 
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; The routine lable must remain. 
0057 8E16 T30VFL BCF PIR, 6 ; Clear int 
0058 B802 MOVLB 02 ;** Switch 
0059 9F13 BTFSC TMR3H, 7 ;** Is Time 
px the “false” 
OO5A 0005 RETFIE ;** Return 
ee interrupt. 
px “real” overflow. 
OO5B B801 MOVLB O1 ;** Return 
O05C 1523 INCF T30FLCNTR, 1 ; increment 
005D C043 GOTO CK_CAP ; return to 


; interrupt also occured 
; 


; Other Interrupt routines. (Not utilized in this example) 


° 
, 


OOSE 0005 EXT INT RETFIE ; RAO/INT i 


: (NOT used in 
OO5F 0005 RTCCINT RETFIE ; RTCC over 


; (NOT used in 
0060 0005 RT INT RETFIE ; RA1L/RT in 


7 (NOT used in 
0061 C028 SRESET GOTO START ; If progra 


- START and reinitalize. 


; When the executed address is NOT in the program range, th 
; 16-bit address should contain all 1’s (a CALL Ox1FFF). At 
; this location you could branch to a routine to recover or 


; shut down from the invalid program execution. 


y. 
ORG END OF PROG MEM : 
O7FF C061 GOTO SRESET ; The progr 
: do a system reset 
END 


Errors : 0 
Warnings : 0 


aL AEH CPE ES EPS SO ER TA 
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APPENDIX B - PERIOD MEASUREMENT WITH FREE RUNNING TIMER EXAMPLE CODE 


MPASM BO.54 PAGE 1 


; This is the basic outline for a program that can determine the 

; frequency of an input, via input capture. This routine uses an 

; 8-bit register to count the times that timer3 overflowed. At the 
; Max crystal frequency of 16 MHz, this gives an overflow time of 
p AZ**TO) (256-4 2) (250 nS) > 4.21 sec ora trequncy <. 0575. H2,.-1f 
; measurement of longer time intervals is required, the overflow 

; counter could be extended to 16 (or more) bits. 


; Timer 3 in this example is a free running timer. The input 

; capture is generated on the RB1/CAP2 pin. There is a flag 

; that specifies if this is the lst or 2nd capture. 

; The first capture is the start of the period measurement. The 
; second capture value gives the end of the period. In this type 
; of measurement If the 2nd capture value < the lst captue value 
; then the overflow counter should be decremented. 


; Do the EQUate table 





List P=17C42, C=80, T=ON 
0020 IC20F EQU 0x20 ; T3 overflow regis 
0021 IC2BH EQU Ox21 ; T3 ICA2 MSB regis 
0022 [C2BL EQU 0x22 ; T3 ICA2 LSB regis 
0023 IC2AH EQU 0x23 ; T3 ICB2 MSB regis 
0024 IC2AL EQU Ox24 yp. 3; -TCB2 kSh regis 
0025 T30FLCNTR EQU 0x25 ; Temperay T3 overf 
0026 eae EQU 0x26 ; Register that has 


; FLAG REG bit 7 6 5 4 3 2 1 = 0 


; = en = = - UFL CAP1 
; CAP1 = 0, 1st Capture 
; = 1, 2nd Capture 
7 UFL = 0, No Underflow 
; = 1, Underflow during subtract 
O7FF END _OF PROG MEM EQU Ox07FF 
0004 ALUSTA EQU 0x04 
0006 CPUSTA EQU 0x06 
0007 INTSTA EQU 0x07 
OQO0A W EQU Ox0A 
OGEZ PORTB EQU 0x12 ; Bank 0 
0016 PIR EQU 0x16 ; Bank 1 
0017 PIE EQU 0x17 
0012 TMR3L EQU Ox12 ; Bank 2 
0013 TMR3H EQU 0x13 
0016 T3PRL EQU 0x16 
0017 T3PRH EQU Ose] 


2 er Lp rn SP SE IE ES 
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0014 CA2L EQU. 0x14 ; Bank 3 . 
0015 CA2H EQU 0x15 
0016 TCON1 EQU 0x16 
0017 TCON2 EQU 0x17 
ORG Ox0000 , Origin-£o6 
0000 C028 GOTO START ; On reset, 
: the program 
ORG 0x0008 , Origin fo 


; interrupt vector 
0008 C068 GOTO EXT_INT ; Goto the 


; * on RAO/INT routine 
ORG 0x0010 Origin. £6 


; overflow interrupt vector 


0010 C069 GOTO RTCCINT ; Goto the 
- routine 
ORG 0x0018 ; Origin -£o 


; RA1/RT interrupt vector 
0018 CO6A GOTO RE ING ; Goto the 


; RA1/RT routine 


ORG 0x0020 . OPigin -£06 
“ oe of any enabled peripheral 
0020 CO03E GOTO PER_INT ; Goto the 
; peripheral routine 
ORG 0x0028 * Origin. £06 
program memory 
0028 8406 START BSF CPUSTA, 4 ; Disable A 


; Global Interrupt Disable 
; (GLINTD) bit. 


MAIN ; Place Main program here 
0029 B803 MOVLB 3 ; Select re 
002A 2817 CLRF TCON2,0 ; Stop the 
002B BO70 MOVLW 0x070 ; Initalize 
002C 0116 MOVWE TCON1 ; be CB =5 


: and T3 run off the internal. 

; system clock. Capture2 

; captures on the rising edge. 
; Initalize Timer 3, load the timer with the number of cycl 


; the device executes (from RESET) before the timer is turn 


; Therefore the offset is required due to software overhead 


002D B802 MOVLB 2 ; Select re 
OO2ZE 280A CLRF WwW, 0 ; Clear the 
O02F 0126 MOVWF FLAG REG ; Initalize 
0030 0113 MOVWE  TMR3H | ; Timer3 MS 


SRE SS A PR a Se a a I a a Ta) 
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0031 


0032 


0033 
0034 
0035 


0036 


0037 


0038 


0039 


003A 


003B 


00SC 


003D 


003E 


003F 


0040 


0041 


0042 


BO13 


0112 


BOFF 
0117 
0116 


B803 


e219 


8307 


B801 


B048 


0117 


8C06 


CO3C 


B801 


9E16 


C055 


9316 


0005 


. 
, 


MOVLW 0x13 


MOVWF TMR3L 


. 
, 


; Load the Timer 3 period register with OxFFFF, whi 


; interrupt on the overflow of Timer3 


MOVLW OxFF 
MOVWE T3PRH 
MOVWF T3PRL 


Timer3 LS 


ch will 


; the timer should be started and interrupts enabled. 


MOVLB 3 

Bol TCON2, 2 
BSF INTSTA, 3 
MOVLB 1 


MOV LW 0x48 


MOVWF PIE 


° 
, 


. 
, 


Select re 


Turn on t 


Turn on P 


Select re 


Enable Ca 


Interr 


; This is where you would do the things you wanted to do. 


; this example will only loop waiting for the interrupts. 


. 
, 


WAIT 


BCF CPUSTA, 4 


GOTO WAIT 


° 
’ 


. 
, 


. 
’ 


Enable AL 
Loop here 


Interrupt 


; The interrupt routine for any peripheral interrupt, This 


; only deals with Timer3 (T3) interrupts. 


; Time required to execute interrupt routine. Not including 


; interrupt latency 


; casel only T3 overflow 
; case2 lst capture 
; case3 2nd capture 
7; case4 T3 overflow and lst capture 
; cases T3 overflow and 2nd capture 
PER INT MOVLB 1 
BTIFSC PIR, 6 
GOTO T30VEL 
CK CAP BTFSS PIR, 3 
RETFIE 


. 
, 


° 
£ 


2 
14 
30 
34 
50 


aS 


cycles 
cycles 
cycles 
cycles 
cycles 


° 
, 


° 
, 


(time to enter into the interrupt routi 


Select re 


Did T3 ov 


not skip next Instruction 


. 
’ 


Inc overf 


; Did the R 
interrupt? 
; No RB1/CA 


Return from Interrupt 


; This potion of the code takes the lst capture and stores 


UU Se AP A En A 
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; value in register pair IC2AH:IC2AL. When the 2nd capture 

; is take, its value is stored in register pair IC2BH:IC2BL 
; A 16-bit subtract is performed, with the final 24-bit res 
; being stored in IC2O0F:IC2BH:IC2BL. This value will no lon 
i be correct after the next capture occurs (IC2BH:IC2BL wil 
; change), so the main routine must utilize this value befo 


; it changes. 


. 
, 


0043 8B16 CAPTURE BCF PIR; 3 ; Clear Cap 
0044 B803 MOVLB 3 ,; Select re 
0045 9826 BTFSC FLAG REG, 0 ; ist or 2n 
0046 CO4B GOTO CAP2 ; It was th 
0047 5424 CAP1 MOVPF CA2L, IC2AL ; Move the 

0048 5523 MOVPF CA2H, IC2AH ; tempora 
0049 8026 BSF FLAG REG, 0 ; Have list 

004A 0005 RETFIE ; Return fr 
O04B 5422 CAP2 MOVPF CA2L, IC2BL ‘ Move the 

004C 5521 . MOVPF CA2H, IC2BH : tempora 

; (to pervent 

004D E061 CALL SUB16 Call rout 


; 2 16-bit numbers. 
OO04E 9926 BTFSC FLAG REG,1 ; Underflow 


OO4F 0725 DECF T30FLCNTR, 1 ; Since und 


; overflow counter. 
0050 2926 CLRF FLAG REG, 1 ; Clear the 


- underflow and 


0051 6A25 MOVFP T30FLCNTR,W ; Store the 
0052 4A20 MOVPF W, IC20F : overflo 
0053 2825 CLRF T30FLCNTR, 0 ; Clear the 


; counts how 
; overflows. 
0054 0005 RETFIE ; Return fr 
; When Timer 3 has overflowed, the overflow counter only sh 
; be incremented when the overflow occurs after a capture 1 
; but before the capture 2. The 4 possible cases when enter 
; the T30VFL section of the PER_INT routine are as follows: 
: Case 1: T3 overflow (only) and FLAG REG.O = 0 (waiting 
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; for Capture 1 to occur). Do Not increment count 
; Case 23 T3 overflow (only) and. PEAG REGSO =). (waiting 


; for Capture 2 to occur). Increment counter 

; Case 3: T3 Overflow happened after Capture. Do Not 

; increment overflow counter 

; Case 4: T3 Overflow occured before Capture 2 and FLAG R 


; (waiting for Capture 2 to occur). Increment cou 
0055 8E16 T30VEL BCF PIR, 6 ; Clear Ove 
0056 9316 BTFSS PIR, 3 ; Did the R 


7 cause an interrupt? 
0057 CO5E GOTO FRO ; No, Check 


; and 2nd capture 





0058 B803 MOVLB 3 ; Bank 3 
0059 280A CLRF Ww, 0 ; W= 0 
OO5A 3115 CPFSEQ CA2H ; if CA2H = 
OO5B CO5E GOTO FRO : first, 
7 bit 0 
005C B801 MOVLB 1 ; Back to b 
005D C043 GOTO CAPTURE ; Capture h 
: Increment 
; and do capture 
OO5E 9826 FRO BTFSC FLAG REG, 0 ; Between C 
OO5F 1525 INCF T30FLCNTR, 1 ; Yes, Inc. 
0060 0005 RETFIE ; Return fr 
0061 6A24 SUB16 MOVF'P IC2AL,W ; Do the 16 
0062 0522 SUBWE IC2BL,1 ; 
0063 6A23 MOVFP IC2AH,W ; 
0064 0321 SUBWFB IC2BH,1 ; 
0065 9004 BTFSS ALUSTA, 0 ; Is the re 
0066 8126 BSF FLAG REG, 1 7; neg., Set 
0067 0002 RETURN ; Return fr 


. 
, 


; Other Interrupt routines. (Not utilized in this example) 


. 
a, 


0068 0005 EXT INT RETF IE ; RAO/INT i 


. (NOT used in 
0069 0005 RTCCINT RETFIE ; RTCC over 


: (NOT used in 
OO6A 0005 dt SB RETFIE ; RA1/RT in 


: (NOT used in 


006B C028 SRESET GOTO START ; If progra 


a PE ZH SS ED 
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7 START and reinitalize. 


; When the executed address is NOT in the program range, th 
; 16-bit address should contain all 1’s (a CALL Ox1FFF). At 
; this location you could branch to a routine to recover or 


; shut down from the invalid program execution. 


ORG END_OF PROG MEM ; 
O7FF C06B GOTO SRESET ; The progr 
do a system reset 
END 
Errors : 0 
Warnings : 0 


ee 
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APPENDIX C - PULSE WIDTH MEASUREMENT EXAMPLE CODE 


MPASM BO.54 PAGE 1 


; This is the basic outline for a program that can determine the 

; Pulse Width of an input, via input capture. This routine uses an 
; 8-bit register to count the times that timer3 overflowed. At the 
; Max crystal frequency of 16 MHz, this gives an overflow time of 
5 (2**16) (256 + 1) (250 nS) > 4.21 sec or a frequncy < 0.25 Hz. If 
; measurement of longer time intervals is required, the overflow 

; counter could be extended to 16 (or more) bits. 


; Do the EQUate table 


LIST P=17C42, C=80, T=ON 
0020 IC20F EQU 0x20 ; T3 overflow regis 
0021 1C2BH EQU Ox21 ; T3 ICA2 MSB regis 
0022 IC2BL EQU 0x22 ; T3 ICA2 LSB regis 
0023 IC2AH EQU 0x23 ; T3 ICB2 MSB regis 
0024 IC2AL EQU 0x24 ; T3 ICB2 LSB regis 
0025 T30FLCNTR EQU 0x25 ; Temperay T3 overf 
0026 iene EQU 0x26 ; Register that has 





: FLAG REG bit 7 6 5 4 3 2 #1 0 


; = = = ag = - UFL CAP1 
: CAP1 = 0, 1st Capture 
: = 1, 2nd Capture 
; UFL = 0, No Underflow 
; = 1, Underflow during subtract 
O7FF END OF PROG MEM EQU Ox07FF 
0004 ALUSTA EQU 0x04 
0006 CPUSTA EQU 0x06 
0007 INTSTA EQU Ox07 
OOOA W EQU Ox0A 
0012 PORTB EQU Q0x12 ; Bank 0 
0016 PIR EQU 0x16 ; Bank 1 
0017 PIE EQU Ox17 
0012 TMR3L EQU Ox12 ; Bank 2 
0013 TMR3H BQU 0x13 
0016 T3PRL EQU 0x16 
0017 T3PRH EQU Ox17 
0014 CA2L EQU 0x14 ; Bank 3 
0015 CA2H EQU Ox15 
0016 TCON1 EQU 0x16 
0017 TCON2 EQU Ox17 
ORG 0x0000 , -OLLgin: -£o 
0000 C028 GOTO START ; On reset, 


: the program 


SA a SE gS A ES SC I TS EP 
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ORG - 0x0008 | $ Origin: £o 


; interrupt vector 
0008 C072 GOTO EXT INT ; Goto the 


‘ on RAO/INT routine 
ORG 0x0010 ; Origin fo 


: overflow interrupt vector 


0010 C073 GOTO _ RTCCINT ; Goto the 
: routine 
ORG 0x0018 Origin’ £6 


; RA1/RT interrupt vector 
0018 C074 GOTO RT_INT ; Goto the 


; RA1/RT routine 
ORG 0x0020 7 Origin: fo 


; of any enabled peripheral 
0020 C03E GOTO PER: INT ; Goto: the 


; peripheral routine 
ORG 0x0028 -- Origin: fo 


; program memory 
0028 8406 START BSF CPUSTA, 4 ; Disable A 


; Global Interrupt Disable 


7 (GLINTD) bit. 
MAIN Place Main program here 
0029 B803 MOVLB 3 ; Select re 
002A 2817 CLRF TCON2,0 ; Stop the 
002B BO70 MOVLW 0x070 ; Initalize 
002C 0116 MOVWE TCON1 : TL) 46> 


: and T3 run off the internal 

; system clock. Capture2 

; captures on the rising edge. 
; Initalize Timer 3, load the timer with the number of cycl 


; the device executes (from RESET) before the timer is turn 


; Therefore the offset is required due to software overhead 


002D B802 MOVLB 2 ; Select re 
OO2ZE 280A CLRF WwW, 0 ; Clear the 
OO02F 0126 MOVWE FLAG REG ; Initalize 
0030 0113 MOVWF TMR3H ; Timer3 MS 
0031 BO13 MOVLW 0x13 ; Timer3 LS 
0032 0112 MOVWF TMR3L ; 


; Load the Timer 3 period register with OxFFFF, which will 
; interrupt on the overflow of Timer3 
0033 BOFF MOVLW OxFF ; 
SSS eA a NES I TI NET ES TT NS DORI EE ELE NETTLES TEI TIE ELS DE SL NS EI ANGE AGT IN IDE ENE NY OCS NET ETES 
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0034 0117 MOVWFE T3PRH 7 
G035: OL16 MOVWE T3PRL ; 
; the timer should be started and interrupts enabled. 


. 
f 


0036 B803 MOVLB 3 ; Select re 
0037 8217 BSF TCONZ;,.2 7; “Turn ‘on. t 
0038 8307 BSF INTSTA, 3 7; Turn on P 
0039 B801 MOVLB 1 ; Select re 
OO3A BO48 MOVL 0x48 y Emabie: Ca 
003B 0117 MOVWF PIE ; Interr 


. 
v 


; This is where you would do the things you wanted to do. 


; this example will only loop waiting for the interrupts. 


. 
, 


003C 8C06 WAIT BCF CPUSTA, 4 ; Enable AL 
H03D: CO3C GOTO WAIT ; Loop here 
7 Interrupt 


; The interrupt routine for any peripheral interrupt, This 
; only deals with Timer3 (T3) interrupts. 
; Time required to execute interrupt routine. Not including 


; interrupt latency (time to enter into the interrupt routi 


; casel - only T3 overflow = 12 cycles 
; case2 - lst capture = 20 cycles 
; case3 - 2nd capture = 34 cycles 
,; case4 - T3 overflow and lst capture = 32 cycles 
; case5 - T3 overflow and 2nd capture = 44 cycles 
003E B801 PER_INT MOVLB 1 ; select re 
OO03F 9E16 BTFSC PIR, 6 ; Dia -T30ov 
: If not skip 
0040 CO5A GOTO T30VFL ; Inc overf 
0041 9316 CK CAP BTFSS PIR; 3 ; Did the R 
; interrupt? 
0042 0005 RETFIE ; No RB1/CA 


; Return from 

; This potion of the code takes the lst capture and stores 

; value in register pair IC2AH:IC2AL. When the 2nd capture 

; is take, its value is stored in register pair IC2BH:IC2BL 
; A 16-bit subtract is performed, with the final 24-bit res 
; being stored in IC20OF:IC2BH:IC2BL. This value will no lon 
; be correct after the next capture occurs (IC2BH:IC2BL wil 

2 PO AS I EE ES EE TS SE TET 
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0043 


0044 


0045 


0046 


0047 


0048 


0049 


OO4A 


004B 


004C 


004D 


004E 


O04F 


0050 


0051 


0052 


0053 


0054 


0055 


0056 


0057 


0058 


0059 


B803 


9826 


CO4B 


5424 


5523 


8026 


C055 


5422 


5521 


E06B 


9926 


0725 


2926 


6A25 


4A20 


2825 


8616 


540A 


B801 


8B16 


0005 


° 
, 


. 
, 


° 
, 


change), so the main routine must utilize this 


it changes. 


CAPTURE MOVLB 


BTFSC 


GOTO 


RISING MOVPF 


MOVPF 


BSF 


BCF 


GOTO 


FALLING MOVPF 


° 
y 


. 
, 


. 
, 


MOVPF 


CALL 


BTFSC 


DECF 


CLRE 


MOVFP 


MOVPF 


CLRFE 


BSF 


3 

FLAG REG, 0 
FALLING 
GAZI, TC2AL 
CA2H, IC2AH 
FLAG REG, 0 


TCONI1, 6 


FALSE_C 


CA2L, IC2BL 


CA2H, IC2BH 


SUB16 


FLAG REG, 1 


T30FLCNTR, 1 


FLAG REG, 1 


T30FLCNTR, W 
W, IC20F 


T30F LCNTR, 0 


TCON1, 6 


Note when you change the edge of the capture, 


value befo 


Select re 
Capture o 
It was th 
Move the 
tempora 
Set flag 
Change ed 


to falling 


peE~ WT eh th 


;** edge, we have 


Move the 
tempora 
(to pervent 
Call rout 


2 16-bit numbers. 
Underflow 


Since und 


overflow counter. 
Clear the 


underflow and 
Store the 


overflo 

Clear the 
counts how many 
overflows. 


Change ed 


to rising 


an addition 


is generated. The capture register must be read before th 


flag is cleared. 


FALSE C MOVPF 


MOVPF 


MOVLB 


BCF 


RETFIE 


CA2H,W 


CA2L,W 


PIR, 3 


Dummy rea 


Select re 
Clear Cap 


Return fr 


errr A TE 
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: T3 overflow or falling edge 
; capture 

; When Timer 3 has overflowed, the overflow counter only sh 

; be incremented when the overflow occurs after a capture 1 

; but before the capture 2. The 6 possible cases when enter 


; the T30VFL section of the PER_INT routine are as follows: 


5 


; Case 1: T3 overflow (only) and FLAG REG.0O = 0 (waiting 


; for Capture 1 to occur). Do Not increment count 
; Case 2: T3 overflow (only) and FLAG REG.O = 1 (waiting 


; for Capture 2 to occur). Increment counter 
; Case 3: T3 Overflow, Then Capturel happened. Do Not 
; increment overflow counter 

; Case 4: T3 Overflow, Then Capture 2 happened 

; Increment counter 

; Case 5: Capturel, Then T3 Overflow happened 

; Increment counter 

; Case 6: Capture2, Then T3 Overflow happened. Do Not 
; Increment counter 


OO5A 8E16 T30VFL BCF PIR, 6 ; Clear Overflow in 
005B 9316 BTFSS PIR, 3 ; Did the RB1/CAP2 


7 cause an interrupt? 





005C C068 GOTO FRO ; No, only overflow 
0O05D B803 MOVLB 3 ; Bank 3 

OO5E 280A CLRF W,0 ; W= 0 

OO5F 9826 BIESC FLAG REG, 0 ; T3 overflow with 


; or Capture 2? 


0060 C064 GOTO OF Ci ; Overflow with Cap 

0061 3115 OR CZ CPFSEQ CA2H ; if CA2H = 0, over 
; ELrst 

0062 1525 INCF T30FLCNTR, 1 ; Increment counter 

0063 C043 GOTO CAPTURE ; Do capture routin 

0064 3115 OF Cl CPFSEQ CA2H ; if CA2H = 0, over 
; First 

0065 C043 GOTO CAPTURE ; Capture happened 


: Increment overflow counter 


; and do capture routine 
0066 1525 INCF T30FLCNTR, 1 ; Yes, Inc. the ove 
0067 C043 GOTO CAPTURE ; Do capture routin 


; Only increment overflow counter if between lst and 2nd ca 
0068 9826 FRO BrFSC FLAG REG, 0 ; Between Capture 1 


0069 1525 INCF T3OFLCNTR y-1 7 Les, Inc. Lhe ove 


Sa a Ne Pe a a a a ae aS a a aT a a SE Se EY 
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OO6A 0005 RETFIE ; Return from overf 
OO06B 6A24 SUB16 MOVFP IC2AL,W ; Do the 16-bit sub 
006C 0522 SUBWF IC2BL,1 : 
O06D 6A23 MOVFP IC2AH,W ; 
OO6E 0321 SUBWFB IC2BH,1 . 
OO6F 9004 BTFSS: ALUSTA,0 ; Is the result pos 
0070 8126 BSF FLAG REG, 1 ; neg., Set the und 
0071 0002 RETURN ; Return from the s 


. 
, 


; Other Interrupt routines. (Not utilized in this example) 


. 
, 


0072 0005 EXT INT RETFIE ; RAO/INT interrupt 


; (NOT used in this program) 
0073 0005 RICCINE RETFIE ; RTCC overflow int 


7 (NOT used in this program) 


0074 0005 RT_INT RETFIE ; RA1/RT interrupt 
; (NOT used in this program) 
0075 C028 SRESET GOTO START ; If program became 


; START and reinitalize. 
; When the executed address is NOT in the program range, th 
; 16-bit address should contain all 1’s (a CALL Ox1FFF). At 


; this location you could branch to a routine to recover or 


; shut down from the invalid program execution. 


ORG END_OF PROG MEM ; 
O7FF CO75 GOTO SRESET ; The progr 
: do a system reset 
END 


Errors : 0 
Warnings 


(a) 


ES EE NT NE a a Ea NN I TC a RD 
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APPENDIX D - PERIOD MEASUREMENT WITH PRESCALER EXAMPLE CODE 


MPASM BO.54 PAGE 1 


; This is the basic outline for a program that can determine the 

; frequency of an input, via input capture. The input capture has 

; been selected to capture on the 16th rising edge. This is useful 
; for high frequency inputs, where an interrupt on each rising edge 
; would not be able to be serviced (at that rate). This particular 
; example can support an input signal with a period of approximatly 
; 625 nS. Without the divide by 16 selected, this is approximatly 

; 10 us. This period time increases (frequency decreases) as the 

; overhead in the main routine increases. 


; This routine uses an 8-bit register to count the times that timer3 
; overflowed. At the Max crystal frequency of 16 MHz, this gives an 
; overflow time of (16) (2**8 + 1) (2**16) (250 nS) > 67.37 sec. If 

; measurement of longer time intervals is required, the overflow 

; counter could be extended to 16 (or more) bits. 


; Timer 3 in this example is a free running timer. The input 

; capture is generated on the RB1/CAP2 pin. There is a flag 

; that specifies if this is the lst or 2nd capture. 

; The first capture is the start of the period measurement. The 
7 second capture value gives the end of the period. In this type 
; of measurement If the 2nd capture value < the lst captue value 
; then the overflow counter should be decremented. 


; Do the EQUate table 


LIST P=17C42, T=ON, C=80 





0020 IC20F EQU 0x20 ; T3 overflow regis 
0021 LE2BH EQU Ox21 ; T3 ICA2 MSB regis 
0022 TC2BiL | EQU Ox22 ; T3 ICA2 LSB regis 
0023 IC2AH EQU 0x23 > TS ICB2.MSB regis 
0024 IC2AL EQU 0x24 ; T3 ICB2 LSB regis 
0025 T30FLCNTR EQU 0x25 ; Temperay T3 overf 
0026 piacenee EQU 0x26 ; Register that has 


; FLAG REG bit 7 6 5 4 3 2 1 =O 


; = = = = = - UFL CAP1 
; CAP1 = 0, 1st Capture 
; = 1, 2nd Capture 
; UFL = 0, No Underflow 
; = 1, Underflow during subtract 
O7FF END OF PROG MEM EQU 0x07FF 
0004 ALUSTA EQU 0x04 
0006 CPUSTA EQU 0x06 
0007 INTSTA EQU 0x07 
QOO0A W EQU OxO0A 
0012 PORTB EQU Ox12 ; Bank O 


a a a aE OE NS TTT a a a TT a a TE EN Ee ee EY 
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e 
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0016 PIR EQU 0x16 ; Bank 1 


0017 PIE EQU Ox17 
0012 TMR3L EQU Ox12 ; Bank 2 
0013 TMR3H EQU QOx13 
0016 T3PRL EQU 0x16 
0017 T3PRH EQU Ox17 
0014 CA2L EQU 0x14 ; Bank 3 
0015 CA2H EQU 0x15 
0016 TCON1 EQU 0x16 
0017 TCON2 EQU 0x17 
ORG 0x0000 7 Origin: fo 
0000 C028 GOTO START ; On reset, 
; the program 
ORG 0x0008 , OLVAGIM £0 
; interrupt vector 
0008 C068 GOTO EXT INT ; Goto the 


; on RAO/INT routine 


ORG 0x0010 ,; Origin. to 
; overflow interrupt vector 
0010 C069 GOTO RTCCINT ; Goto the 
; routine 
ORG 0x0018 ; Origin fo 


; RA1/RT interrupt vector 
0018 CO6A GOTO Ro: ING ; Goto the 


; RA1/RT routine 


ORG 0x0020 ; (Origin: £o 
of any enabled peripheral 
0020 CO3E GOTO PER_INT ; Goto the 
; peripheral routine 
ORG 0x0028 y Origin fo 
; program memory 
0028 8406 START BSF CPUSTA, 4 ; Disable A 


; Global Interrupt Disable 
; (GLINTD) bit. 


MAIN ; Place Mai 
0029 B803 MOVLB 3 ; Select re 
002A 2817 CLRF TCON2,0 ; Stop the 
002B BOFO MOVLW Ox0FO ; Initalize 
002C 0116 MOVWF TCON1 ; tL (8=b 
; and T3 run off the internal 
; system clock. Capture2 
; captures on the 16th rising edge. 


. 
’ 


; Initalize Timer 3, load the timer with the number of cycl 


; the device executes (from RESET) before the timer is turn 


ER ESA Se STS SS EO SY EEL SC CT aT EL 
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; Therefore the offset is required due to software overhead 


002D B802 MOVLB 2 ; Select re 
OO02E 280A CLRF Ww, 0 ; Clear the 
O02F 0126 MOVWE FLAG REG ; Initalize 
0030 0113 MOVWE TMR3H ; Timer3 MS 
0031 BOO0O MOVLW 0x00 ; Timer3 LS 
VO32 0112 MOVWE TMR3L ; 


; Load the Timer 3 period register with OxFFFF, which will 


; interrupt on the overflow of Timer3 


0033 BOFF MOV LW OxFF ; 
0034 0117 MOVWE T3PRH ; 
0035 0116 MOVWE T3PRL ; 


; the timer should be started and interrupts enabled. 





0036 B803 MOVLB 3 ; Select re 
0037 8217 BSF TCON2, 2 ; Turn on t 
0038 8307 BSF INTSTA, 3 ¢ Dens one 
0039 B801 MOVLB 1 ; Select re 
OO3A BO048 MOVLW 0x48 ; Enable Ca 
003B 0117 MOVWE PIE ; Interr 


. 
, 


; This is where you would do the things you wanted to do. 


; this example will only loop waiting for the interrupts. 


. 
tA 


003C 8C06 WAIT BCF CPUSTA, 4 ; Enable AL 
003D CO3C GOTO WAIT ; Loop here 
7 Interrupt 


; The interrupt routine for any peripheral interrupt, This 
; only deals with Timer3 (T3) interrupts. 
; Time required to execute interrupt routine. Not including 


; interrupt latency (time to enter into the interrupt routi 


; casel - only T3 overflow = 12 cycles 

; case2 - lst capture = 14 cycles 

; case3 - 2nd capture = 30 cycles 

; case4 - T3 overflow and 1st capture = 34 cycles 

: case5 - T3 overflow and 2nd capture = 50 cycles 
OO03E B801 PER _ INT MOVLB 1 ; Select re 
OO03F 9E16 BTFSC PIR, 6 y Dae -T3 Ov 


; If not skip next In- 


SS EE eS Ne ee a TE EE Ee ee aE A ee a a a a IT aE ee ED 
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struction 
0040 C055 


0041 9316 


0042 0005 


0043 


0044 


0045 


0046 


0047 


0048 


0049 


OO4A 


004B 


004C 


004D 


OO4E 


O04F 


0050 


0051 


0052 


0053 


0054 


8B16 


B803 


9826 


CO04B 


5424 


S223 


8026 


0005 


9422 


go24 


E061 


9926 


O725 


2926 


6A25 


4A20 


2825 


0005 


CK_CAP 


BTFSS 


GOTO 


PIR; 


RETF IE 


T30VFL 


. 
, 


. 
, 


Inc overf 


Did the R 


; interrupt? 


. 
’ 


No RB1/CA 


; Return from Interrupt 


; This potion of the code takes the lst capture and stores 


; value in register pair IC2AH:IC2AL. When the 2nd capture 


; is take, its value is stored in register pair IC2BH:IC2BL 


; A 16-bit subtract is performed, 


with the final 24-bit res 


; being stored in IC2O0F:IC2BH:IC2BL. This value will no lon 


; be correct after the next capture 


; change), so the main routine must 


; it changes. 


CAPTURE 


CAP1 


CAP2 


BCF 


MOVLB 


BIrESC 


GOTO 


MOVPF 


MOVPF 


BSF 


RETFIE 


MOVPF 


MOVPF 


CALL 


BTFSC 


DECF 


CLRF 


MOVF'P 


MOVPF 


CLRF 


RETFIE 


PIR} 


FLAG REG, 0 
CAP2 

CAZT IC2AL 
CA2H, IC2AH 


FLAG REG, 0 


CA2L, IC2BL 


CA2H, IC2BH 


SUB16 


FLAG REG, 1 


T30FLCNTR, 1 


FLAG REG, 1 


T30FLCNTR, W 
W, IC20F 


T30FLCNTR, 0 


occurs (IC2BH:IC2BL wil 


utilize this value befo 


. 
La 


. 
, 


. 
7 


Clear Cap 
Select re 
lst cr 27 
It was th 
Move the 
tempora 
Have lst 


Return fr 


Move the 
tempora 
(to pervent 
Call roure 


2 16-bit numbers. 
Underflow 


Since und 


overflow counter. 
Clear the 


underflow and 
Store the 


overflo 
Clear the 
counts how many 


overflows. 
Return fr 


i I 
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; When Timer 3 has overflowed, the overflow counter only sh 
; be incremented when the overflow occurs after a capture 1 
; but before the capture 2. The 4 possible cases when enter 
; the T30VFL section of the PER_INT routine are as follows: 
; Case 1: T3 overflow (only) and FLAG REG.O = 0 (waiting 
: for Capture 1 to occur). Do Not increment count 
: Case 2: T3 overflow (only) and FLAG REG.O = 1 (waiting 
; for Capture 2 to occur). Increment counter 

: Case 3: T3 Overflow happened after Capture. Do Not 


; increment overflow counter 
; Case: 4:° TS Overflow cecured. before Capture: 2 and, PEAG R 


; (waiting for Capture 2 to occur). Increment cou 
0055 8E16 T30VFL BCF PIR, 6 ; Clear Ove 
0056 9316 BTFSS PLRy Ss ; Did the R 


; cause an interrupt? 
0057 COSE GOTO FRO ; No, Check 


: and 2nd capture 





0058 B803 MOVLB 3 ; Bank 3 
0059 280A CLRF WwW, 0 ; W= 0 
OO5A 3115 CPFSEQ CA2H ; if CA2H = 
O005B COSE GOTO FRO 7 first, 
; bate -O 
005C B801 MOVLB 1 ; Back to b 
0OO05D C043 GOTO CAPTURE ; Capture h 


; Increment overflow 
; and do capture routine 


OO5E 9826 FRO BIEsc FLAG REG, 0 ; Between C 
OO5F 1525 INCE T3OFLCNTR, 1 ; Yes, Inc. 
0060 0005 RETFIE ; Return fr 
0061 6A24 SUB16 MOVFP IC2AL,W ; Do the 16 
0062 0522 SUBWEF EC2BLy 1. ; 

0063 6A23 MOVFP IC2AH,W ; 

0064 0321 SUBWFB IC2BH,1 H 

0065 9004 BTIFSS ALUSTA, 0 ; Is the re 
0066 8126 BSF FLAG REG, 1 ; neg., Set 
0067 0002 RETURN ; Return fr 


° 
, 


, Other Interrupt routines. (Not utilized in this example) 


° 
, 


0068 0005 EXT INT RETFIE ; RAO/INT i 
; (NOT used in this 
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0069 0005 RTCCINT RETFIE ; RTCC over 


: (NOT used in this 
OO6A 0005 RT_INT RETFEIE ; RA1/RT in 


; (NOT used in this program) 


O006B C028 SRESET GOTO START ; If progra 


7 START and reinitalize. 


; When the executed address is NOT in the program range, th 
; 16-bit address should contain all 1’s (a CALL Ox1FFF). At 
; this location you could branch to a routine to recover or 


; shut down from the invalid program execution. 


ORG END OF PROG MEM ; 
O7FF CO6B GOTO SRESET ; The progr 
; do a system reset 
END 


Errors : 0 
Warnings : 0 
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INTRODUCTION 


PiC17C42 has an on chip high speed Universal Syn- 
chronous Asynchronous Receiver Transmitter (USART). 
The serial port can be configured to operate either in full- 
duplex asynchronous mode or half duplex synchronous 
mode. The serial port has a dedicated 8-bit baud rate 
generator. Either 8- or 9-bits can be transmitted/re- 
ceived. 


This application note provides information on using the 
serial port, parity generation, serial port expansion, 
RS-232 interface, I/O port expansion using synchro- 
nous mode of serial port. 


SERIAL PORT USAGE 


Brief code to setup serial port , receive and transmit data 
is given below. Small sections of code for both asynchro- 
nous and synchronous mode is given. 


EXAMPLE 1 
SPBRG : 25 
TXSTA : 00100000 (20h) 
RCSTA : 10010000 (90h) 


Asynchronous Mode Setup 


Asynchronous mode set-up requires selection of 
8/9-bits of data transfer, baud rate, setting the baud rate 
generator and configuring the TXSTA & RCSTA control 
registers. The baud rate generator is set by writing the 
appropriate value to SPBRG register (bank0O, file 17h). 
The value to be written to SPBRG is given by: 


Input_Clk_Freq 
64 * Baud_ Rate 


SPBRG = 





For example, to select a baud rate of 9600 bits/sec with 
input clock frequency of 16 Mhz, SPBRG is computed 
from the above equation to be 25. Once the Baud Rate 
Generator is setup, it is necessary to configure the 
TXSTA & RCSTA control registers as follows (please 
refer to the data sheet) : 


9600 baud @ 16 Mhz input clock 
8-bit transmission, async mode 


8-bit reception, enable serial port, enable reception 


PRRKKKKK KKK KKK KKK KKK KKK KK KK KKK KKK AK KKK KKK KKK KKK KK KK KK KKK KKK KK KK KR RK KK K KKK 


; Sample Code For Asynchronous Mode Serial Port Setup 


PRKKKKKKKKKK KK RK KKK KK KKK KKK KK KKK KKK KK KKK KKK KK KK KKK KKK KKK KKK KK KKK KK KK KK K KK 


#define ClkFreq 16000000 


#define baud(X) 
#define TXSTA_INIT 0OxBO 
#define RCTSA INIT 0x90 


#include sb i SS 


Setup _Async Mode 

movlb 0 

moviw baud(9600) 
movwEt SPBRG 
movlw TXSTA_INIT 
movwt TXSTA 
movlw RCSTA_INIT 
movwf RCSTA 


return 
PRAKKKKKK KKK KKK KKK KK KKK KK KKK KR KR RK RK KKK RR RR RK RK KR RK KK RR KK RK KK KKK KK KK KKK KKK KK 
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; input clock frequency = 16 Mhz 


((10*ClkFreq/ (64*X))+5)/10 - 1 


; file containing the Register Definitions 


; SPBRG, TXSTA & RCSTA are in bank 0 
; equals 25 for 9600 baud 
; baud rate generator is reset & initialized 


; 8-bit transmission, async mode 


; 8-bit reception, enable serial port, 
; enable reception 


DS00547B-page 1 





Serial Port Utilities 





Synchronous Mode Setup 


Synchronous mode setup requires selection of 8/9-bits 
of data transfer, bit rate, setting the baud rate generator 
and configuring the TXSTA & RCSTA control registers. 
The baud rate generator is set by writing the appropriate 
value to SPBRG register (bankO, file 17h). The value to 
be written to SPBRG is given by: 


Input_Clk_Freq 
4* Baud_ Rate 


SPBRG = 


EXAMPLE 2 


For example, to select a bit rate of 1Mhz with input clock 
frequency of 16 Mhz, SPBRG is computed from the 
above equation to be 3. Once the Baud Rate Generator 
is setup, it is necessary to configure the TXSTA & 
RCSTA control registers as follows (please refer to the 
data sheet) : 


3 : 1 Mbits/sec @ 16 Mhz input clock 


10110000 (BOh) 
10010000 (90h) 


reception 


8-bit transmission, Sync mode (MASTER) 
8-bit reception, enable serial port, continuous 


PRAEKKKKKKKKKKKKKKK KK KKK KKK KKK KK KK KKK KKK KKK KK KKK KA K KK KK KK KKK KK KK KKK KKK KK KK 


; Sample Code For Synchronous Mode (MASTER) Serial Port Setup 
PRARRKKKK KK RK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKKKKKKKK KKK KKK KK KKK KK 


#define ClkFreq 16000000 


#define baud(X) 


#define TXSTA INIT OxBO 
#define RCTSA_INIT 0x90 


#include ML7Ca2 oh 
Setup _Sync_ Master Mode 

movlb 0 

movlw baud(1000000) 

movwf SPBRG 

moviw TXSTA_INIT 

movwt TXSTA 

moviw RCSTA_ INIT 

movwft RCSTA 


return 


input clock frequency = 16 Mhz 


((10*ClkFreq/ (4*X))+5)/10 - 1 


file containing the Register Definitions 


SPBRG, TXSTA & RCSTA are in bank 0 
equals 3 for 1 Mbits/sec 


; baud rate generator is reset & initialized 


8-bit transmission, async mode 


8-bit reception, enable serial port, 
enable reception 


PRAEKKKKKKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKKKKKKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK 





z i > . 
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Receiving Data (Software Polling) 


The sample code provides a way to read the received 
serial data by software polling (with no serial port inter- 
rupts). This applies to both asynchronous and synchro- 
nous mode. Software polling is done by checking the 
RBFL bit (PIR<0>). If this bit is set it means that a word 
has been received (8 bits are in RCREG and the 9th bit 
in RCSTA<0>). 


EXAMPLE 3 


PRR KR KKK RR RK KKK KK RK KKK KK KKK KK KK KK RK KKK KKK KKK KKK KKK KK KK KK KK KK KK KK KK KK 


; Return The 8-bit received Data By Software Polling 


: The received data is returned in location SerInData 
PRARKKKKK KK RK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KK KK KK KKK KK KK K KK 


Get Serial Data Poll 
movib i ; PIR is in bank 1 
PollRcv btfss PIR, 0 ; chech the RBFL bit 
goto PollRcv ; loop until char received, assume WDT is off 
movlb 0 ; RCREG is in bank 0 
movpf RCREG, SerInData 


return ; Received 8-bits are in SerInData 
PRR KKK KKK RK KK KK KKK KKK RK K KKK KK RK KKK KKK KK KK KK KK KKK KKK KKK KKK KK KK KK KK KKK KK 





Transmitting Data (Software Polling) 


The sample code provides a way to transmit serial data 
by software polling (no serial port interrupts). Software 
polling is done by checking the TBMT bit (PIR<0> in 
bank 1) to be one, indicating the transfer of TXREG to the 
serial shift register. 


EXAMPLE 4 


pRAKKKKK KKK KKK KKK KKK KK KK KK KK KK KK KK KK KK KKK KKK KK KK KKK KR KK KKK KK KK KK KK KK 


: Transmit 8-bit Data By Software Polling 
: The data to be transmitted is in location SerOutData 
PRKKRKKKKKKKKKKKKKKKK KKK KK KK RK KKK KK KK KKK KK KK KKK KK KKK KK KK KK KK KKK KK KK K 
Send_ Serial Data Poll 

movib 1 ; PIR is in bank 1 


PollTxmt btfss PIR,1 ; chech the TBMT bit of PIR register in bankl 
goto Poll Txmt ; loop until char received, assume WDT is off 
movlb 0 ; RCREG is in bank 0 
movfp SerOutData, TXREG 


return ; Received 8-bits are in SerInData 
PRK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KK 
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Transmitting & Receiving A Block Of Data 
(Interrupt Driven) 


A general purpose routine which is interrupt driven that 
transmits and receives a block of data is provided. The - 
reception or transmission of the block is ended when an 
end of block character is detected. As an example, the 


EXAMPLE 5 


MPASM BO.54 


; TITLE 
LIST P=17C42, C=80. 


end of block is identified by a 0. The block of data to be 
transmitted is stored in the program memory and TABLRD 
instruction is used to transfer this example data to the file 
registers and serial port. The user may modify this code 
to a more general purpose routine that suits his applica- 
tion. 


PAGE 1 


‘Serial Interface Routines 
I=ON, R=DEC 


;This is a short program to demonstrate how to transmit and 


;serial data using the PIC17C42. 


’ 


7A message will be transmitted and routed right back to the 


;and read. The read information will be saved in an interna 


include “pl7reg.h” 


0080 TX_BUFFER equ 0x80 
00BO RX_BUFFER equ 0xBO 
0020 RXPTR equ 0x20 
0021 TXPTR equ 0x21 
0022 SERF LAG equ 0x22 
0023 RTINUM equ 0x23 
0001 RXDONE equ 4: 
0000 TXDONE equ 0 
0002 HILOB equ 2 
ORG 0 
0000 C072 goto start 
ORG 0x0010 


-etcc. int 
; 


ORG 0x0020 


perf int 


0020 CO4D goto 


ORG 


service: pert 


0x0030 


° 
, 


;vector for rtcc interrupt 
;not used here 


;vector for peripheral inte 


;service the interrupts 


;initialize the serial port: baud rate interrupts etc. 


init: serial, 


0030 2922 elLrt SERF LAG 
0031 B800 movlb 0 

0032 BOO7 moviw 0x07 
0033 770A movfp W, SPBRG 
0034 BO90 moviw 0x90 
0035 730A movfp W,RCSTA 


;clear all flags 
;select bank 0 
;select 9600 baud 


; i 
;set up serial pins 
; / 


ernment nn i aaa, _—— 
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0036 2915 GErE TXSTA ;setup transmit status 
0037 B801 movilb 1 ;select bank 1 

0038 2916 Cler PIR ;clear all interrupts 
0039 2917 Clrt PIE ;clear all enables 

OO3A 8017 bsft PTIE,RCIE ;enable receive interrupt 
003B BOBO moviw RX BUFFER ;set pointer to rx buffer 
003C 4A20 movpf W,RXPTR ; / 

003D 2907 Glrt INTSTA ;clear all interrupts 
003E 8307 bsf INTSTA, PEIE ;enable peripheral ints 
0O03F 0005 retfie 


;start transmission of first two bytes 
start _xmit 


0040 B&00 movilb 0 ,select bank C 
0041 8515 bsf TXSTA, TXEN ;enable transmit 
0042 ABOA tablrd 1,1,W ;load latch 
0043 A216 tied 1, TXREG ;load high byte 
0044 B801 movilb ua ;select bank 1 
empty chk 
0045 9116 btfss PIR, TBMT ; TXBUF empty? 
0046 C045 goto empty chk ;no then keep checking 
0047 B800 movilb 0 ;select bank 0 
0048 A916 tablrd 0,1,TXREG ;load lo byte 
0049 B801 movlb 1 ;select bank 1 
OO4A 8117 bsf PIE, TAIE ;enable transmit interrupts 
004B 8222 bsf SERF LAG, HILOB ;set up next for high byte 
004C 0002 return 


; 

; 

, 

SerViGe pert 

;check for transmit or receive interrupts only 





004D 9816 btfsc PIR, RBFL ;RX buffer full? 
004E C062 goto service _recv ;yes then service 
OO4F 9116 btfss PIR, TBMT ;TX buffer empty? 
0050 C060 goto exit perf ;no, ignore other int. 
service xmt 
0051 9822 btfsc SERFLAG, TXDONE ;all done? 
0052 C060 goto exit_perf ;yes then quit 
0053 9A22 btfsc SERFLAG, HILOB ;if clr, do low byte 
0054 C057 goto rd_hi ;else read high byte 
0055 ASDA tablrd 0,1,W ;read lo 
0056 C058 goto sx.cont 7 continue 
rd. hi 
0057 A20A bird 1,W ;read high byte 
Sx_cont 
0058 3A22 btg SERF LAG, HILOB ;toggle flag 
0059 B800 movlb 0 ;bsr=0 
OOSA 4A16 movpf W, TXREG ;load tx reg 
0OO5B 330A tstfsz W ;last byte? 
005C C060 goto exit_perf 7no then cont 
. end_xmt ;else end transmit 
0O05D B801 movlb 1 ;select bank 1 
OO5E 8917 ber PIE, TXIE ;disable tx interrupt 
OOSF 8022 bs tf SERFLAG, TXDONE ;set done flag 
exit perf 
0060 8FO7 bcf INTSTA, PEIR ;clear peripheral int 
0061 0005 retfie 


° 
, 


service recv 


0062 9922 btfsc SERFLAG,RXDONE ;RX complete? 

0063 C060 goto ext pert ;exit int 

0064 6120 movfp RXPTR, FSRO ;get pointer 

0065 B800 movlb 0 ;select bank 0 

0066 6014 movfp RCREG, FO ;load received value 
0067 290A clrf W pole W 

0068 3200 eGpisge <0 ;value = 0? 


$A 0 ET DEG BS I STOTT I CRE AS TOT LTE 
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0069 CO6D goto end _recv ;yes then end 
OO6A 1501 THeL FSRO jinc pointer 
OO6B 4120 movpf FSRO,RXPTR ;save pointer 
O006C C060 goto exit perf ;return from int 
end_recv 
O06D 8122 bsf SERFLAG,RXDONE ;set flag 
OO6E 2907 onl aes INTSTA ;clear all int 
OO6F B801 movib a ;select bank 1 
0070 8817 bef PIE, RCIE ;disable rx interrupts 
0071 C060 goto exit perf ; return 
start 
0072 2909 eclrr FSR1 ;assign FSR1 as S.P. 
0073 0709 decf FSR1 ; / 
0074 BO20 moviw 0x20 ;clear ram space 
0075 610A movfp W, FSRO ;do indirect addressing 
startl 
0076 2900 CLer FO ;clear ram 
0077 1IFO1 incfsz FSRO ;inc and skip if done 
0078 C076 goto startl 
0079 E030 call init serial s;initialize serial port 
Warning: MESSAGE not a single byte quantity 
OO7A BOOO movlw MESSAGE ;load table pointer 
007B 4A0D movpf W, TBLPTRL H / 
0O7C- BOOT movlw page MESSAGE ; - 
OO7D 4A0E movpf W, TBLPTRH H / 
OO7E E040 call start xmit ;start transmission 
chk_end 
OO7F 9122 btfss SERFLAG,RXDONE ;receive all? 
0080 CO7F goto chk_end ;no then keep checking 
0081 C081 loop goto loop ;spin wheel 
ORG 0x100 
MESSAGE 
0100 5468 6520 636F DATA “The code is: Tea for the Tillerman” 


0103-6465: 2069 733A 
0106 2054 6561 2066 
0109 6F72 2074 6865 
010C 2054 696C 6C65 
O10F 726D 616K 


0111 0000 DATA 0 
END 

Errors : 0 

Warnings : 0 


a A a SSE A ES 7 RE SA 
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PARITY GENERATION 


Since the serial port of PIC17C42 does not have an on 
chip parity generator, parity is generated using software. 
Ittakes only 10 program memory words and executes in 
10 instruction cycles to generate parity. Since the serial 
port of PIC17C42 can operate in a 9-bit mode, the parity 
bit can be generated in software and transmitted as the 
9th bit or be compared with the received 9th bit. 


In case of transmission, set TX8/9 to 1 (< 6> of TXSTA) 
to enable 9-bit transmission and write the computed 
parity bit to TXD8 (TXSTA<0>). The 9th bit (parity bit) 
must be written prior to writing the 8 data bits to TXREG. 


EXAMPLE 6 


In case of reception, first of all enable 9-bit reception by 
setting RC8/9 to 1 (RCSTA<6>). Upon successful re- 
ception, the 9 bit is received in RCD8 (RCSTA<0>). 
Parity of the 8 bits of received data is computed using the 
routine listed below and compared with the 9-bit re- 
ceived. 


p RK KKK RK KKK KK KK KKK KK KR KK KK KK KR KK KKK KK KK KK KK KK KK KK KR KK KOK 


; Generate Parity Bit for the 8 bit register 


The parity bit is stored in Bit 0 of 'parity' 


. 
, 


‘data' 


PR KK KKK RK KK KK KK KK KK RK RK KR RK KR KK KK KR KKK KK KK KKK KKK KKK OK KK 


#define ODD PARITY FALSE 


swapf data,w 
xorwf data,w 
movwf parity 
rirnek «parily 
rrncf parity 
xorwf parity,w 
andlw 0x03 
addlw 0x01 
rrncf wreg 


movwf parity 


fit ODD. PARETY 


btg parity,0 
#endif 
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SERIAL PORT EXPANSION 


The PIC17C42 has only one serial port. For applications 
that require the PIC17C-42 to communicate with multiple 
serial ports, ascheme the multiplexes and demultiplexes 
the RX and TX pins is provided below. This method is 
suited only if no more than one UART is needed at any 
one time. This is the case in many applications where 
the microcontroller drives several outputs devices seri- 
ally. Figure 1 shown below suggests a way to expand 
the on-chip serial port to 4 serial ports. To use the 
scheme as shown in Figure 1, The PIC17C42 must 
select the desired serial port by appropriately setting the 
two pins of PORT-B. The same scheme may be used to 
further expand the serial ports by using more I/O Ports. 


FIGURE 1 - MULTIPLEXING THE ON-CHIP 
UART 


74HC151 
(MUX) 





RS-232 INTERFACE 


Two circuits are provided to interface the CMOS levels of 
PIC17C42 to RS-232 levels. Figure 2 provides interface 
to MAX232 (MAXIM's RS-232 Driver/Receiver) with a 
single +5V power supply. Figure 3 provides a low cost 2 
chip solution for RS-232 level translation using a single 
+5V supply (Note that V- of MC14C88 is connected to 
DTR of RS-232 Interface. By asserting DTR to low, V- 
gets the negative voltage from the RS-232 line). An 
alternative single chip low cost solution is provided in 
Figure 4. However 3 voltage sources (+5, +12, -12) are 
necessary. 











FIGURE 2 - RS-232 INTERFACE TO MAX232 


Maxim 
MAX-232 


RS-232 Output 


PIC17C42 


C1, C3 = 10 pF, 6.3V 
C2, C4 = 10 pF, 16V 


FIGURE 3 - LOW COST 2 CHIP SOLUTION 
USING SINGLE POWER SOURCE 


TX (RS-232) 


RTS (RS-232) 


+5V 


RX (RS-232) 

INA OutB 
CTS (RS-232) 

INB  QutA 


GND 
MC14C89 


FIGURE 4 - LOW COST SINGLE CHIP 
SOLUTION USING 3 POWER 
SOURCES 


TX (RS-232) 


RX (RS-232) 


MC 145406 
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Table 1 provides the summary of RS-232 and V.28 1/0 PORT EXPANSION USING 


Electrical Specifications. SYNCHRONOUS MODE 
TABLE 1 - SUMMARY OF RS-232C AND Although the PIC17C42 has 33 I/O pins, most of these 
V.28 ELECTRICAL are multiplexed with other peripheral functions. In case 
SPECIFICATIONS more I/O ports are needed, the scheme provided below 
expands the I/O port using the synchronous mode of 


Caimiionta serial port by serially shifting the data. Figure 5 shows a 
scheme to expand the output ports to 16-bits using 2 

Driver Output Voltage | a! standard logic chips (74HC595). The PIC17C42's serial 
: pe a = oi bi ae port is configured in synchronous mode and set to be the 
Max. output 405 Na load MASTER. Thus serial data is available on DT (pin 22) 
and the clock is available on CK (pin 21). The following 


Receiver Input Thresholds ; 
| (Data and clock signals) code will transmit 16-bits serially and clock all the 16-bits 


1 level -3V to -25V 

Receiver Thresholds FIGURE 5 - OUTPUT PORT EXPANSION 
RTS, DSR, DTR USING SYNCHRONOUS MODE 
On level +3V to +25V 
Off level Open circuit Detects power 


or -3V to -25V Off condition at 
driver 


74HC595 


Receiver input 3kQ. to 7kQ 

resistance 

Driver output resistance, 

Power off Vout < +2V 

condition 

Driver slew rate 3kQ < RL < 7kQ; 
OpF < CL < 2500pF 





Signalling rate Up to 20k bits/sec. PIC17C42 


50'/15m. Longer cables 
Recommended permissable, if 
max. length CLoad < 2500pF 


EXAMPLE 1 





74HC595 





InitSerialPortTxmt 
movib 
Clet ; set to highest baud rate = CLKOUT = CLKIN/4 
moviw 
movwf ; enable serial port 
moviw 
movwf ; 8 bit synchronous master mode 
bcf DDRB, 0 ; set bit 0 of PortB as output, to be used as Latch Clk 
return 
SendSerialData ; shift out DataLo & DataHi serially 
movilb 0 
movfp DataLo, TXREG 


nop ; wait for TXREG transfer : if slower baud rate is 
; used check for TBMT reset 


movfp DataHi, TXREG 
wait btfss TXSTA, TRMT ; wait until all 16 bits shifted out 
goto wait 
bcf PortB,0 
bsf PortB, 0 ; clock in the serial data to parallel output of HC595 


return 





Shc a SE TTS SS NS A TP EP A 
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A similar scheme as shown above may be implemented 
in the reverse way to expand Input Ports. For this it is 
necessary to have a Parallel In and serial out device. 
Using a standard logic chip (74HC165), the scheme is 
shown in Figure 6. In order to read the 16-bit input data, 
the serial port of PIC17C42 is configured to be in 
Synchronous Mode Reception (MASTER mode). An I/O 
port (PortB<0>) is used to parallel load the 16 inputs for 
reading serially. A sample code to read the 16 inputs is 
shown below. 


FIGURE 6 - INPUT PORT EXPANSION USING 
SYNCHRONOUS MODE 





74HC165 


D7 
CLK 


PIC17C42 


D15 
1. CLK 
~ INHIBIT 











| 74HC165 








Author: Amar Palacherla 


Logic Products Division 











EXAMPLE 2 
InitSerialPortRcv 
movlb 0 
Cle SPBRG 
movlw 0x80 
movwft RCSTA 
moviw 0x90 
movwt TXSTA 
bef DDRB, 0 
bsf PortB, 0 
return 
ReadSerialData 
movilb 0 
bcf PortB, 0 
bsf Porces, 0 
bsf RCSTA, SREN 
movlb 1 
waitl btfss PIR, RBFL 
goto waitl 
movlb 0 
movpf RCREG,DataLo 
movilb 0 
bsf RCSTA, SREN 
movilb a 
wait2 btfss PIR, RBFL 
goto wait2 
movlb 0 
movpf RCREG,DataHi 
return 
= 





; set to highest baud rate = CLKOUT = CLKIN/4 

; enable serial port 

; 88-bit synchronous master mode 

; bit 0 of PortB is output, to be used as Parallel 
; Load 

; disable parallel Load 

; shift out DataLo & DataHi serially 

; Parallel Load The Inputs into 74HC165 

; disable parallel Load 

; enable single byte reception and wait for data 
; check until 8-bits are received 


; lst byte is read 


; enable another byte of reception and wait for data 


check until 8-bits are received 


; 2nd byte is read 














DS00547B-page 10 


© 1993 Microchip Technology Inc. 
4-70 





® 
Microchip 


AN544 





Utility Math Routines 





INTRODUCTION 


This application note provides some utility math routines 
for Microchip's second generation of high performance 
8-bit microcontroller, the PIC17C42. Three assembly 
language modules are provided, namely ARITH.ASM, 
FLOAT.ASM and BCD.ASM. Currently in each file the 
following subroutines are implemented: 


ARITH.ASM 

¢ Single precision 8 x 8 unsigned multiply 

¢ 16x16 double precision multiply (signed or unsigned) 
¢ 16/16 double precision divide (signed or unsigned) 
¢ 16 x 16 double precision addition 


16 x 16 double precision subtraction 


double precision square root 


double precision numerical differentiation 


double precision numerical integration 


Pseudo Random number generation 


Gaussian distributed random number generation 


FLOAT.ASM 

¢ Binary floating point addition 

¢ Binary floating point subtraction 

° Binary floating point multiplication 


BCD.ASM 

¢ 8-bit binary to 2 digit BCD conversion 
¢ 16-bit binary to 5 digit BCD conversion 
¢ 5-bit BCD to 16-bit binary conversion 

¢ 2 digit BCD addition 


TABLE 1 








6 
mpy8x8_S code efficient 13 
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As more routines are available, they will be added to the 
library. The latest routines may be obtained either 
through Microchip's bulletin board or by contacting your 
nearest Microchip sales office for a copy on a MS-DOS 
5 1/4" floppy. 


These routines have been optimized wherever possible 
with acompromise between speed, RAM utilization, and 
code size. Some routines (multiplication and division) 
are provided in two forms, one optimized for speed and 
the other optimized for code size. 


All the routines have been implemented as callable 
subroutines and the usage of each routine is explained 
below. At the end of the application note, the listing files 
of the above programs are given. 


SINGLE PRECISION UNSIGNED 
MULTIPLICATION (8 X 8) 


This routine computes the product of two unsigned 8-bit 
numbers and produces a 16-bit result. Two routines are 
provided: one routine is optimized for speed (a straight 
line code) and the other one has been optimized for code 
size (a looped code version). These subroutines are 
located in ARITH.ASM and printed in the listing file 
ARITH.LST. The performance specs are shown in 
Table 1. 


DOUBLE PRECISION 
MULTIPLICATION 


This routine computes the product of 1- bit numbers and 
produces a 32-bit result. Both signed and unsigned 
arithmetic is provided (2's complement arithmetic). 
Whether to use signed or unsigned is decided at assem- 
bly time depending on whether "SIGNED" is set to true 
or false (refer to the source code). These routines are 
extremely useful for high precision computation and are 
used extensively in the other programs provided in this 
application note (for example, the square root, integra- 
tor, differentiator call these routines). Two routines are 
provided. One routine is optimized for speed ( a straight 
line code) and the other one has been optimized for 
code size (a looped code version). These subroutines 
are located in ARITH.ASM and printed in the listing file 
ARITH.LST. The performance specs are shown in 
Table 2. 


W Register 
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TABLE 2 


_ Speed Efficient, 
Signed Arithmetic 











D_mpyS Code Efficient, 
Signed Arithmetic 


The listing file shown is assembled with "SIGNED equ 
TRUE". If unsigned arithmetic is needed, the source 
code should be changed to "SIGNED equ FALSE". 
Conditional assembly and the advanced macro features 
of the assemble are used. 


The data memory organization is explained in the com- 
ment section of the code. Faster execution and code 
space saving can be achieved by setting "MODE_FAST 
equ TRUE". However, setting MODE_FAST variable to 
TRUE restricts that operands and the 32-bit result be in 
data RAM locations 0x18 and OxiF (in this mode, 
MOVEFP and MOVPF instructions may be used to trans- 
fer datato/from any RAM location to addresses less than 
0x1F). If MODE_FAST is set to FALSE, there will be no 
restriction on the location of the data RAM values used 
in this subroutine. However, the code will be slightly 
slower and occupies more program memory. 


TABLE 3 








D_divS Code Efficient, 3 
Unsigned Arithmetic 


The listing file shown is assembled with "SIGNED equ 
TRUE". If unsigned arithmetic is needed, the source 
code should be changed to "SIGNED equ FALSE". 
Conditional assembly and the advanced macro features 
of the assembler are used. 


TABLE 4 







4 
4 





Dsub 


he 
242 


Speed Efficient, 179 
Unsigned Arithmetic | 
D_mpyS Code Efficient, 21 | 3 used 

Unsigned Arithmetic 


| Name | Comments —_| Program Memory | Instruction Cycles | Scratch RAM 
Speed Efficient, 325 250 
Unsigned Arithmetic 
Speed Efficient 354 260 1 
Signed Arithmetic 
D divS Code Efficient, 39 312 2 used 
Signed Arithmetic 


| Name | Program Memory Instruction Cycles Scratch RAM 
| pad | | 








Scratch RAM Ww Register 





DOUBLE PRECISION DIVISION 


This routine performs a 2's complement division of two 
16-bit numbers and produces a 16-bit quotient with a 
16-bit remainder. Both signed and unsigned arithmetic 
is provided (2's complement arithmetic). Whether to use 
signed or unsigned is decided at assembly time depend- 
ing on whether "SIGNED" is set to true or false (refer to 
the source code). 


These routines are extremely useful for high precision 
computation and are used extensively in the other 
programs provided in this application note (for example, 
the square root, integrator, differenciator call these 
routines). Two routines are provided. One routine is 
optimized for speed (a straight line code) and the other 
one has been optimized for code size (a looped code 
version). These subroutines are located in ARITH.ASM 
and printed in the listing file ARITH.LST. The perfor- 
mance specs are shown in Table 3. 





W Register 







DOUBLE PRECISION ADDITION AND 
SUBTRACTION 


Two routines are provided. One performs a 2's comple- 
ment addition and the other one performs a 2's comple- 
ment subtraction of two 16-bit binary numbers. These 
subroutines are located in ARITH.ASM and printed in 
the listing file ARITH.LST. The performance specs are 
shown in Table 4. 





W Register 









0 
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NEGATE A DOUBLE PRECISION 
NUMBER 


These routines negate a double precision number 
(16-bit and 32-bit). Two routines and two macros are 
provided to negate a 16-bit number. The subroutines 
use indirect addressing mode and the macros use direct 
addressing scheme. A macro is provided to negate a 32- 
bit number. 


FLOATING POINT ROUTINES 


Three binary floating point routines are implemented: 
addition, subtraction and multiplication. To use these 
routines, the floating point numbers should be repre- 
sented as follows: 


a. A 16-bit signed Mantissa (in 2's complement form) 


b. An 80-bit signed binary exponent. For example, a 
number "NUM" is represented as follows: 


NUM = (<+t 16-bit Mantissa>) * (2**<+ 8-bit Exponent) 


Also, a general purpose Normalization routine is pro- 
vided and it is recommended that the user call the 
normalization routine as often as possible to avoid loss 
of precision. The normalization routine maximizes the 
number of bits in the mantissa (until there are at least 
14-bits). 


In case of multiplication, if a 32-bit product is desired 
(with an 8 bit exponent) the "Mode16" should be set to 
TRUE. It is recommended that "Mode16" be set to 
FALSE (this would always produce a 16-bit mantissa, 
with an 8-bit exponent which is the general floating point 
format). Only the looped code versions are imple- 
mented. In the performance specs, the execution time 
is not specified, as the time very much depends on the 
values of the numbers and whether they are normalized 
or not. 


TABLE 5 













NegateAlt 7 


NegMac 5 
AltNegMac 
NegMac32 (32 bit) 





















TABLE 6 


Comments 


Addition 
Subtraction 








Multiplication 
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| Name Program Memory Instruction Cycles Scratch RAM 
[Neate CCS 





Program Memory | Scratch RAM 


DOUBLE PRECISION SQUARE ROOT 


Often in many applications, one needs to find the square 
root of a number. Of the many numerical methods 
available to compute the square root of a number, the 
Newton-Raphson method is one of the most attractive 
because of its fast convergence rate. In this method, the 
square root of number, N, is obtained as an approximate 
solution of 
f(Y) = Y?-N=0 


The function f(Y) can be expanded about YO using the 
first order Taylor polynomial expansion as: 


Equation 1: 
(Y) = f(Y,) + (Y - Y,)F(Y,) + (Y - Y,)2f" f(Y,) 
oy A aioe 


If X is a root of f(Y), then f(X) = 0: Therefore, 


H(X) = f(Y,) + (X- Y)F (YG) +. (X - Y,)2f" £(Y,) 
2! 


If YO is an approximate root of f(Y), then the higher order 
terms in the above equation are negligible. 


+....=0 


Therefore, f(Y,) + (X- Y,)f(Y,) =0 
ie, X=Y,+ f%o) 


HY) 






W Register 





unused 








used 








0 





W Register 


used 





used 





RR ec a eS TOPIC NPD) (REDMNASE SIG EOE EEO 5 LAS ESE OREN ONE OUTER ROSE] BRE EERE URIS Ee NDT OME AEE OR SOT! 
5 
5 
6 





used 
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Thus X is a better approximation for YO. From the 
previous equation, the sequence {Xn} can be generated: 


Equation 2: X, =X, - (X4) n>=1 


3 





f'(X_,) 
For our case, equation 2, reduces to: 
| Xt N 
Equation 3: Xi 


The routine "Sart" ir-ARITH.ASM implements the above 
equation. Equation 3 requires that at first an initial 
approximation for the root is known. The better the initial 
approximation, the faster the convergence rate would 
be. Inthe "Sqrt" routine, the initial approximation root is 
set as N/2. This routine calls the double precision 
division routine (D_divS). 


In the code size, the Division routine (Ddiv_S) size is not 
included. 


BCD ROUTINES 


Three routines are provided for general purpose BCD 
arithmetic: 


a. BCD to binary conversion 
b. Binary to BCD conversion 
c. BCD addition 


The BCD to binary conversion routine converts a 5 digit 
BCD code to a 16 bit binary number. The BCD addition 
routine adds two BCD digits directly without converting 
them at first to binary. Note the usage of the "DAW" 
instruction. The other two routines convert a binary 
number to a BCD code. The performance specs for the 
BCD routines is given in the Table 8 below: 


NUMERICAL DIFFERENTIATION 


This routine performs numerical differentiation of a se- 
quence of data if the input sequence is assumed to be 
piecewise linear with no discontinuances (this is the 


TABLE 7 


| Name Program Memory Instruction Cycles | Scratch RAM 
22 6 


case in most of the real world signals). Although this 
routine is provided as a tool to implement a PID algo- 
rithm for motor control, it can be used as a general 
purpose subroutine. This routine uses the so called 3 
Point formula to compute the differential of a sequence 
of numbers. 


Given an equation f(t), its derivative is given by 


vay. f(t) 
F(t) = CW 
(t) 


The above equation can be approximated using the 3- 
Point formula as given below: 


3-Point Formula: 
f(t) = OM 2 1 
dt 2h [f(t, - 2h) - 4f(T, - h) + 3f(t,)] 


where t, is the point at which the numerical derivative is 
desired and "h" is the step size. The smaller the value 
of the step size (h), the better the approximation. Incase 
of say, PID motor control, the step size is proportional to 
the time intervals at which the new sample value of the 
position (or speed) is obtained. Using the above equa- 
tion to compute the differential, three samples are nec- 
essary (present value and the last two past values). The 
subroutine "Diff" is implemented so that 1/2h factor is 
stored already in a RAM location (location DiffK) as 1/2h 
and not as "h" because itis more efficient to multiply than 
divide. 

After computation, the routine does not move the present 
value to the past value. So the user must update the past 
values before calling this routine again. This way, if 
necessary, differentiation may be performed without 
disturbing the present and past values. Also, when this 
routine is called for the first time, it is user's responsibility 
to set the initial values of the past data points (may be set 
to zero). This routine called "Diff" is located in 
"ARITH.ASM". 


In the code size, the double precision multiplication 
routine (Dmpy_S) used is not included. 


W Register 


3300 (approx.) 





TABLE 8 






BCDtoB 
B2 BCD_Looped 







BCDAdd BCD addition 





Binary to BCD (16 bit) 750 
looped code 
B2_BCD_Straight | Binary to BCD (16 bit) 4 572 1 
straight line code 


BinBCD | BinarytoBcD(ebit) | 10 | | 
5 












W Register 


5 
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NUMERICAL INTEGRATION 


This routine performs numerical integration using 
Simpson's Three-Eighths Rule. This is a third order 
approximation for the function, whose integral is to be 
computed at a given point. Although this routine is 
provided as atool to implementa PID algorithm for motor 
control, itcan be used as a general purpose subroutine. 
Given a function f(t), it's integral over a range t, to t, is 
represented as: 


t3 

Jf(t)dt. This function is approximated as follows: 
t0 

Simpson's Three-Eighths Rule: 

13 


ff(t)dt = = [f(t,) + Sf(t1) + 3f(t2) + f(t3)] 


(t,) 

The constant 3h/8 can be computed before hand and 
store ina RAM location (in location IntgKLo and IntgKHi 
as a 16 bit number). After computation, the routine does 
not move the present value to the past value. So the user 
must update the past values before calling this routine 
again. This way, if necessary, integration may be 
performed without disturbing the present and past val- 
ues. Also, when this routine is called for the first time, it 
is user's responsibility to set the initial values of the past 
data points (may be set to zero). This routine called 
"Integrate" is located in "ARITH.ASM". 


In the code size, the double precision multiplication 
routine (Dmpy_S) used is not included. 


TABLE 9 


Numerical Differentiation 


PSEUDO RANDOM NUMBER 
GENERATOR 


This routine (subroutine "Random 16" provided in 
ARITH.ASM) generates a pseudo random number se- 
quence. The random points are generated using a 16 bit 
register and left shifting the contents with the LSB set as 
shown by the following schematic. 


As atest, the random points are generated by calling the 
subroutine from an infinite loop, and the data points are 
continuously captured into the real time trace buffer 
using the PICMASTER (the Universal In-Circuit Emula- 
tor for the PIC series). The autocorelation of the cap- 
tured data is computed using astand alone program and 
is shown in Figure 2. Fromthis figure, it can be seen that 
the data has a strong autocorrelation only at the origin 
and sharply approaches to zero within a few points. This 
demonstrates the randomness of the data captured. 


FIGURE 1 


| (eee eee 




















TABLE 10 


| Name | Comments —_| Program Memory | Instruction Cycles | Scratch RAM W Register 





Integrate | Numerical Integration 
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FIGURE 2 - AUTOCORELATION OF THE DATA POINTS GENERATED BY THE RANDOM NUMBER 


GENERATOR 


Autocorrelation of Data from Random Number Generator 


1.20 
1.00 
0.80 
Magnitude 0.60 
0.40 
0.20 


0.00 
1 11 21 31 41 


61 71 81 91 101 111 121 


Sample Number 


TABLE 11 





| Name | Comments Program Memory | Instruction Cycles Ea W Register 


Random16 Pseudo Random 


Number Generator 


TABLE 12 





| Name | Comments __ Program Memory | Instruction Cycles | Scratch RAM W Register 


Gaussian Random 





Number Generator 


PN (pseudo noise) sequences are widely used in digital 
communication systems for synchronization. These 
code words can also be used for data scrambling be- 
cause of their good correlation properties. An interest- 
ing application of these sequences is system integrity. 
For example, these sequences can be regularly trans- 
mitted to a processor whole watch dog timer will time out 
if, say, two consecutive PN sequences do not match. 


FIGURE 3 - HISTOGRAM OF THE DATA 
GENERATED BY THE GAUSSIAN 
GENERATOR 


Gaussian Distributed Samples Generated 
by PIC17C42 


100 

80 

Relative 60 
Amplitude 

40 

20 

0 


Samples 





GAUSSIAN DISTRIBUTED RANDOM 
NUMBER GENERATOR 


This routine (subroutine "Gauss" provided in 
ARITH.ASM) generates a sequence of random num- 
bers with a characteristic of a normal distribution 
(Gaussian distributed points). This routine calls the 
pseudo random number generator ("random16") to ob- 
tain a near uniformly distributed random points and from 
these points, the Gaussian distributed points are gener- 
ated. The method of generating Gaussian points is 
based on the "Central Limit Theorem", which states that 
an ensemble of average weighted sum of a sequence of 
uncorrelated samples tends to have a Gaussian distri- 
bution. 


As a test, the Gaussian points are generated by calling 
the subroutine from an infinite loop, and the data points 
are continously captured into the real time trace buffer 
using the PICMASTER (the Universal In-Circuit Emula- 
tor for the PIC series). A plot of the points captured is 
shown in Figure 3, which shows that the random points 
generated have the characteristics of a Gaussian distri- 
bution. 


Author: Amar Palacherla 


Logic Products Division 
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APPENDIX A: GENERAL PURPOSE MATH ROUTINES 
LISTING FILE OF ARITH.ASM 


MPASM BO.54 PAGE 1 
General Purpose Math Routines For PIC17C42 : Ver 1.0 


0001 #define PAGE EJECT 
TITLE “General Purpose Math Routines For PIC17C42 : Ver 1.0” 
LIST P=17C42, C=120, T=ON, L=0, R=DEC 


ve 


include “17 ¢42.h” 


KKKKKK KKK KKK kkk KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKKKKKK KKK KKK K KKK EK 


Define RAM Locations necessary For the “ARITH.ASM” 
RAM locations should be defined before calling the library math 


routines 
KKK KKK KKK KK KKK KKK KK KK KKK KK KKK KK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKKK KKK KKK 


=s =e se =e “6s “ses 


, 


0001 MODE_FAST equ TRUE 
0000 SIGNED equ FALSE 


; 
pH KK I KK KR IK KK KK II EK KK IK KKK KK KKK KK KKK KEK KK KK KKK KE 


. 
‘ 


if MODE _FAST 


CBLOCK 0x18 
0018 0004 ACCaLO, ACCaHI, ACCbLO, ACCbHI ; Ram Locations for Arithmetic 
001Cc 0004 ACCcLO, ACCcHI, ACCdALO, ACCdHI ; Routines 

ENDC 


else 
CBLOCK 0x20 


ACCaLO, ACCaHI, ACCbLO, ACCbHI 
ACCcLO, ACCcHI, ACCGLO, ACCdHI 


ENDC 
endif 
CBLOCK 
0020 0004 tempLo, tempHi, count, sign 
ENDC 
CBLOCK 
0024 0002 NumLo, NumHi 
0026 0001 iterCnt 
ENDC 
CBLOCK ; RAM locations for “Diff” routine 
0027 0003 XnLo, XnHi, Xn_1_Lo 
002A 0003 Xn_1 Hi, Xn_2_Lo, Xn_2_ Hi 
002D 0002 DiffKLo, DiffKHi ; DiffK = h = Step Size 
002F 0002 Dati io, Dittyt 
ENDC 
CBLOCK ; RAM Locations for “Integrate” 
0031 0004 XOLo, XQHi, X1Lo, X1Hi ; Routine 
0035 0004 X20, X2ZHi,. X3L6, X3Hi 
0039 0002 IntgKLo, IntgKHi ; INTEGRATE CONST = 3*h/8 
003B 0002 IntgLo, IntgHi 


ee a a ae en a ae Na a Ne a ED 
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ENDC 


FO IO I TOI TO TOI III III IT I III III kk tee 


“ses %e “8s 


0018 mulcnd equ ACCaLO 


0019 mulplr equ ACCaHI 

OO1A L byte equ ACCbLO 

001B H byte equ ACCbHI 

OOOA _LUPCNT equ 10 ; Set Desired Number of iterations 

OO1E SqrtLo equ ACCdLO ; for Square Root Routine (NEWTON Iterations) 
OO01F SqrtHi equ ACCdHI 


tA 
:, Define RAM locations for the Random Number Generators 


es 
? 


0018 RandLo equ ACCaLO 
0019 RandHi equ ACCaHI ; 16 bit Pseudo Random Number 
001B GaussHi equ ACCbHI 
OO1A GaussLo equ ACCbLO ; 16 bit Gaussian distributed number 
0020 GaussTmp equ tempLo 
ORG 0x0000 


KKK KKK KKK KK KKK KK KKK IK KKK KK KKK HK KK IKK KK KKK KKK KKK KKK KKKKKKKK KK KKK KEK 


Math Routines Test Program 
KKK KKK KKK KK KKK KH KKK KK KKK KK KKK KK KKK KKK KK KK KKK KKK KKK KKK KKKKEK KK KEK K KKK 


Load constant values to ACCa & ACCb for testing 


7s “e -s “es 7H MS 


main 
0000 E02D call loadAB ; result of adding ACCb+ACCa->ACCb 
0001 E036 calt D_add ; Here Accb = 81FE 
0002 E02D call loadAB ; result of subtracting ACCb - ACCa->ACCb 
0003 E03B call D_sub ; Here Accbh = 7E00 
0004 EO2D call loadAB ; result of multiplying ACCb*ACCa- 
> (ACCd, ACCc) 
0005 E050 call D_mpyS ; Here (ACCd,ACCc) = OOFF 7E01 
0006 EO02D call loadAB ; result of multiplying ACCbh*ACCa- 
> (ACCd, ACCc) 
0007 E065 call D_mpyF ; Here (ACCd,ACCc) = OOFF 7EO1 
0008 EO2D call loadAB ; result of multiplying ACCb/ACCa- 
> (ACCd, ACCc) 
0009 E119 cali D_divs ; Here (ACCd,ACCc) = 0040 003f 
OOOA E02D call loadAB ; result of multiplying ACCb/ACCa- 
> (ACCd, ACCc) 
000B E138 call D_divF ; Here (ACCd,ACCc) = 0040 003f 
000C BOF3 moviw Oxf3 
000D 0125 movwf Num i 
QOOOE BOF6 moviw Oxf6 ; Set input test number = 62454 
OOOF 0124 movwf NumLo ; = F3F6h 
0010 E27D call Sqrt ; result = OOF9h = 249 (in SqrtLo) 
h ; exact sqrt (62454) = 249.9 
0011 BOFF movlw Oxff 
0012 0119 movwf mulplr ; multiplier (in mulplr) = OFF 
0013 BOFF movilw Oxff ; multiplicand(W Reg ) = OFF 
0014 0118 movwft mulcnd 
0015 E293 call mpy8x8 F ; The result OFF*OFF = FEOQ1 is in locations 
; ; H_byte & L_ byte 
0016 BOFF moviw Oxff 
0017 0119 movwf mulplr ; multiplier (in mulplr) = OFF 
0018 BOFF movlw Oxff ; multiplicand(W Reg ) = OFF 
0019 0118 movwf mulcnd 
SS a AS ea GPG STS SIGE SPAT a RENAE oA SEY ST GS CPW SSP 0 PAS GP FS PIT I PP Ng APE aC PVE = ES 
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OO1A 


001B 
001C 
001D 
OO1E 


OO1F 
0020 
0021 
0022 


0023 


0024 
0025 
0026 
0027 


0028 
0029 
002A 
002B 


002C 


002D 
002E 
002F 
0030 


0031 
0032 
0033 
0034 
0035 


E2B8 


BOFF 
010D 
BOSF 
O10E 


BO 30 
0119 
B045 
0118 


C028 


E311 
A418 
AE19 
C024 


E31E 
A41A 
AE1B 
C028 


C02C 


B00] 
0119 
BOFF 
0118 


BO7E 
011B 
BOFF 
O11A 
0002 


=e “se “se es we 


<6 


“=e 


° 
‘ 


call 


Test The Random Number Generators 
Capture data into trace buffer by TABLE WRITES to a 


mpy8x8 S 


dummy Program Memory location 


moviw 
movwf 
movlw 
movwf 


moviw 
movwf 
movliw 
movwf 


goto 


RandPoint 


. 
c 


call 
tlwt 
tablwt 
goto 


GaussPoint 


‘ 


call 
tlwt 
tablwt 
goto 


self goto 


° 
, 


loadAB 


~s ee “es eae we “eo “8 Ye ~e TS YH MO MH “SF “SH “8S TH MF SH SH SH “SC MS YH Me MO 


moviw 
movwft 
movliw 
movwf 


moviw 
movwft 
movlw 
movwf 
return 


Oxf f 
tbliptrl 
Oxof 
tblptrh 


0x30 
RandHi 

0x45 
RandLo 


GaussPoint 


Random16 
_ LOW, RandLo 


Math Routines 


The result OFF*0FF 


: FEO1 is in 
; H byte & L byte 





; only for data capture 


_HIGH,0, RandHi ; using PICMASTER 


RandPoint 


Gauss 
_LOW,GaussLo 


; only for data capture 


_HIGH,0,GaussHi ; using PICMASTER 


GaussPoint 


self 


0x01 
ACCaHI 
Oxf f 
ACCaLO 


Ox7f 
ACCbHI 

OxXFF 
ACCbLO 


End Of Test Routines 


=e 





loads ACCa O1LFF 


“es 


loads ACCb TEEF 


Hl 


=a 


KKK KKK KKK KK KKK KK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKKKK KKK 


Routines 


Double Precision Arithmetic Routines 


Addition, Subtraction, Multiplication ,Division 


Square Root 


NOTE : MODE FAST must first be set to either 


TRUE or 


FALSE 


MODE FAST determines the RAM address locations of ACCa thru ACCd 


If MODE FAST is set TRUE, data transfers can be done efficiently 
using “MOVFP” & “MOVPF” instructions instead of indirectly moving 
at first to W Reg and then to the desired RAM locations 


In this case 


The speed increase using this way of locating ACCa to 
ACCd will result in a saving of about 20 Cycles/filter stage 


If due to other constraints, 


address 0x18 to Oxlf, 


MODE FAST to FALSE 


( a 2 stage filter), it is faster by 40 Cycles 


ACCa thru ACCd cannot be set at 


then the user is required to set 


KKK KKK KEK KKK KKK KK KKK KK KK KKK KKK KK KKK KK KKK KK KKK KKK KK KEKE KK KKKKKKKEKKK KKK 


Double Precision Addition 


rn rr NR tN A A tr 
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Addition : ACCb(16 bits) + ACCa(16 bits) -> ACCb(16 bits) 
(a) Load the 1st operand in location ACCaLO & ACCaHI ( 16 bits ) 
(b) Load the 2nd operand in location ACCbLO & ACCbHI ( 16 bits ) 
(c) CALL D_add 
(d) The result is in location ACCbLO & ACCbHI ( 16 bits ) 


Performance 3: 
Program Memory 
Clock Cycles 
W Register 
Scratch RAM 


4 (excluding call & return) 
4 (excluding call & return) 
Used 

0 


KKK KKK KKK KEKE KK KK KEK RK KKK KK ERK KK KK KKK KKK KK KKK KK KKK KK EK ERK EKKEKKKEKEEK © 


Cj -s ~s ee we ce se 8 M8 Se te Me Me tO te te 


_add 
0036 6018 movfp ACCaLO, wreg 
0037 OFIA addwf ACCbLO yaddwf lsb 
0038 6019 movfp ACCaHI,wreg 
0039 111B addwfc ACCbHI saddwf msb with carry 
003A 0002 return 


KEKE KK KKK KKK KKK KKK KK KKK KKH KK KK KKK KH KKK KEK KKK KKK KKK KKKKK KK KKK KKK 


Double Precision Subtraction 


Subtraction : ACCb(16 bits) - ACCa(16 bits) -> ACCb(16 bits) 
(a) Load the lst operand in location ACCaLO & ACCaHI ( 16 bits ) 
(b) Load the 2nd operand in location ACCbLO & ACCbHI ( 16 bits ) 
(c) CALL D_sub 
(dad) The result is in location ACCbLO & ACCbHI ( 16 bits } 


Performance : 


Program Memory : 4 (excluding call & return ) 
Clock Cycles : 4 (excluding call & return ) 
W Register : Used 

scratch RAM : 0 


Wk KK kK KK KK RK RK IK KK KK KK KK IKK KK KK KK KEKE KK KKK KK KKKKEK EK 8 


iw) ey ey eT eT ee ee eT er) nT nT en) en) a) YT | 


_sub 
003B 6018 movfp ACCaLO, wreg 
003C 051A subwf ACCbLO 
003D 6019 movfp ACCaHI,wreg 
003E 031B subwfb ACCbHI 
0O3F 0002 return 


KKK KKK KKK KK KKK KEK KKK KEK KKK KK EK KKK KK KKK KEK KKK KKK KKK KKK KKK KEKKEKEKKKKKKKEEK 


Function to negate a 16 bit integer 
The two 8 bit integers are assumed to be in 2 consecutive 
locations. Before calling this routine, FSRO should be loaded with 
the address of the lower byte. 
Assume that ALUSTA register is set for no autoincrement of 
FSRO. 


KARE KKK KKK IKK KKK KKK KK IKK KEK KKK KK KKK KEK KKH KK KKK KK KKK KKK KKK KKK KK KKK KEKK 


“ee 6 we Fe Se ese TS SF Me VE 


negateAlt 
0040 6000 movfp indf0,wreg 
0041 8D04 ocf eh 
0042 2D00 negw indfo 
0043 8504 bsf Jf Se: 
0044 6000 movfp indf0,wreg 
0045 2900 Girt indf0 
0046 0300 subwfb indf0 
0047 0002 return 
negate 
0048 1300 comf indf0 
0049 8D04 ber ofsi 
004A 1500 inect indf0 
004B 8504 bsf _fsl 


FN a ESR aL mS NTR AR nS Ta IE EEE Na LRN al 
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004C 9A04 
004D 0700 
OO04E 1300 
OO4F 0002 


0050 2922 
0051 8422 


0052 5SA20 
0053 5SB21 


0054 291F 
0055 291E 


0056 1921 
0057 1920 
0058 9004 
0059 COSE 
005A 6018 
005B OFIE 
0O05C 6019 
005D 111F 


OOSE 191F 
OOSF 1915 


btfsc 2% 
decf indf0 
comf indf0 
return 


KAKA KKK KKK KKK 


“e =e 7a “e 


7 


(a) Loa 


*s *e 8s ea 


(c) CAL 
(d) The 


=e 


Performanc 
Pp 


~s es “es 7s 


e 


S 


“se 78 Fe “Ss M8 


; Note 


( AC 


KKKKKK KKK KK KK 


_mpys 


-e. © ~s ese “ee “se 


KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KEKE KEKE 


Double Precision Multiplication 


( Optimized for Code : Looped Code ) 


Multiplication : ACCb(16 bits) * ACCa(16 bits) -> ACCd,ACCc ( 32 bits ) 


d the lst operand in location ACCaLO & ACCaHI ( 16 bits ) 


(bp) Load the 2nd operand in location ACCbLO & ACCbHHI ( 16 bits ) 


L D mpys 
32 bit result is in location ( ACCdHI,ACCdLO, ACCdHI,ACCdLO ) 


e : 
rogram Memory : 21 (UNSIGNED) 
52 (SIGNED) 
: 242 (UNSIGNED :excluding CALL & RETURN) 
: 254 (SIGNED :excluding CALL & RETURN) 
: 1 (used only if SIGNED arithmetic) 


lock Cycles 
cratch RAM 


The above timing is the worst case timing, when the 
register ACCb = FFFF. The speed may be improved if 
the register ACCb contains a number ( out of the two 
numbers } with less number of ls. 


Double Precision Multiply ( 16x16 -> 32 ) 
Cbo*ACCa -> ACCb,ACCc ) : 32 bit output with high word 


in ACCd ( ACCdHI,ACCdLO ) and low word in ACCc ( ACCcHI,ACCcLO ). 


KKK KKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKEKKKK KKK 


sresults in ACCd(16 msb’s) and ACCc(16 


bl SIGNED 


CALL 
endif 


ert 
bsf 


if MODE FAST 
movpf 
movpf 
else 
movfp 
movwft 
movfp 
movwt 
endif 
Clie 
Clee 


shift right 


so =e Fe 


’ 


-mpyLoop 


ECE 
Fret 
btfss 
goto 
movfp 
addwf 
movfp 
addwf 
NoAdd 
rrct 
rref 


S SIGN 


count 
count, 4 ; set count = 16 


ACCbLO, tempLo 
ACCbHI, tempHi 


ACCbLO, wreg 
tempLo 
ACCbHI, wreg 
tempHi 


ACCdHI 
ACCdLO 


and addwf 16 times 


tempHi 
tempLo 
_carry 
NoAdd ; LSB is 0, so no need to addwf 
ACCaLO, wreg 
ACCdLO 
ACCaHI, wreg 
cS ACCdHI 


rsaddwf lsb 


saddwf msb 


ACCdAHI 
ACCdALO 
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0060 191D rret ACCcHI 
0061 191C rrcef ACCcLO 
0062 1722 decfsz count 
0063 C056 _ goto mpy Loop 
if SIGNED 
btfss sign, MSB 
return 
comf ACCcLO 
incf ACCcLO 
btfsce _Z 
decf ACCcHI 
comf ACCcHI 
btfsc _zZ 
decf ACCdLO 
comf ACCdLO 
btfsc _z 
decf ACCdHI 
comf ACCaHI 
return 
else 
0064 0002 return 
endif 


we ve “6s 


Assemble this section only if Signed Arithmetic Needed 


if SIGNED 


va 


S SIGN 
movfp ACCaHI, wreg 
xorwt ACCbHI,w 
movwf sign ; MSB of sign determines whether signed 
btfss ACCbHI,MSB ; if MSB set go & negate ACCb 
goto chek _A 
comf ACCbLO 
inet ACCbLO 
btfsc iz ; negate ACCb 
decf ACCbHI 
comf ACCbHI 
chek_A 
btfss ACCaHI,MSB ; if MSB set go & negate ACCa 
return 
comf ACCaLO 
incf ACCaLO 
btfsc 2 ; negate ACCa 
decf ACCaHI 
comf ACCaHI 
return 
endif 


KR KK KEK KKK KEKE KKK KK KKK KK KKK KEK KK KKK KK IKK KEK KKK KK KKK KKK KEK KK KEKE KKKKKKKK 


Double Precision Multiplication 
{ Optimized for Speed : straight Line Code ) 


Multiplication : ACCb(16 bits) * ACCa(16 bits) -> ACCd,ACCc ( 32 bits ) 
(a) Load the 1st operand in location ACCaLO & ACCaHI ( 16 bits ) 
(b) Load the 2nd operand in location ACCbLO & ACCbHI ( 16 bits ) 
(c) CALL D_mpy 
(d) The 32 bit result is in location (+ ACCdHI,ACCdLO, ACCGHI,ACCALO ) 


Performance : 


Program Memory =: 179 (UNSIGNED) 
204 (SIGNED) 
Clock Cycles : 176 (UNSIGNED :excluding CALL & RETURN) 


183 (SIGNED :excluding CALL & RETURN) 


=o 8 “8 %e ~“e se ea Ve 8 72 “8 Ve “SE YS “SB “8 we “OS 
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Note : The above timing is the worst case timing, when the 
register ACCb = FFFF. The speed may be improved if 
the register ACCb contains a number ( out of the two 
numbers ) with less number of ls. 


The performance specs are for Unsigned arithmetic ( i.e, 
with “SIGNED equ FALSE “). 


Upon return from subroutine, the input registers 


KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KEKE KKKKKK KK KKK 


ey en? ey ee ? ee) nT en)  ? 2 YY] 


Multiplication Macro 
pk KKK KKK KK RIK KK KKK KK KKK IK KK KK KKK KKK KKK KKK KKK KK KKK 


. 
’ 


mulMac MACRO 
variable i 


i= 0 
if SIGNED 
ewhile i < 15 
else 
ewhile i < 16 
endif 
Pos fe die a 
btfss ACCbLO, i ; test low byte 
-else 
btfss ACCbHI,i-8 ; test high byte 
fi 
goto NoAdd#v (i) > LSB is 0, so no need to addwf 
movfp ACCaLO, wreg 
addwf ACCdLO raddwf lsb 
movfp ACCaHI,wreg 
addwfc ACCGHI ;addwf msb 
NoAdd#v (i) 
Lae aeons ACCAaHI 
Free ACCdaLO 
rrer ACCcHI 
rroek ACCcLO 
bcf _carry 
i = i+l 
.endw 
if SIGNED 
PCE ACCdHI 
ima ons ACCdaLO 
rece ACCcHT 
EEE ACCcLO 
bef _Carry 
endif 
ENDM 


KKK KKK KK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKEKE 


“e ss ve 


Double Precision Negate Macros 
KK I KK I KK KK IK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK EK 


AltNegMac MACRO fileRegLo, fileRegHi 
movfp fileRegLo, wreg 
negw fileRegLo 
movfp fileRegHi,wreg 
eirs fileRegHi 
subwfb fileRegHi 
ENDM 


’ 


negMac MACRO fileRegLo, fileRegHi 


comf fileRegLo ; negate FileReg ( -FileReg -> FileReg ) 
incf fileRegLo 
btfsc 2 





PLL EIS EOIN EET CEE LT EE TE Ta eI TE PTE I TT a TIE IO TE a EE IL IE OEE TR TID EL a ET RN AE EE ED 
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decf fileRegHi 
comf fileRegHi 
ENDM 

NegMac32 MACRO x3,x2,x%1,x0 
movfp x3,wreg 
negw x3 
movfp x2,wreg 
Girt x2 
subwfb x2 
movfp xl,wreg 
Clete x1 
subwfb xl 
movfp x0,wreg 
cirt x0 
subwfb x0 

ENDM 


eH KK RK IKK KK IK KK KKK IK KK IK KK KK KKK KKK IK KK KKK KKKKKKK KKK KK KKK KKK 9 
Double Precision Multiply ( 16x16 -> 32 ) 
( ACCb*ACCa -> ACCbh,ACCc ) : 32 bit output with high word 
in ACCd ( ACCdHI,ACCdLO ) and low word in ACCc ( ACCCHI,ACCcLO ). 


sresults in ACCd(16 msb’s) and ACCc(16 


| 

O 
M< 

e3) 


| 


=e oO ~e ™ea “se *e we Ve 


if SIGNED 


=e 


movfp ACCaHI, wreg 

xorwt ACCbHI,w 

movwft sign 

btfss ACCbHI,MSB >; if MSB set go & negate ACCb 


goto chek _A_ MSB MPY 


negMac ACCbLO,ACCbHI 


. 
‘ 


chek _A_MSB MPY 
btfss ACCaHI,MSB ; if MSB set go & negate ACCa 
goto continue MPY 
negMac ACCaLO,ACCaHI 


=a 


endif 


e. 
c 


continue MPY 


0065 291F Cirt ACCdHI 
0066 291E Clrr ACCdLO 
0067 8804 ocf _carry 


use the mulMac macro 16 times 


ee eS wa 


mulMac 
0000 variable i 
0000 i= 0 
if SIGNED 
ewhile i < 15 
else 
ewhile i < 16 
endif 
if ib < 8 
btfss ACCbLO, i ; test low byte 
-else 
btfss ACCbHI, 1-8 ; test high byte 
fo pl 
goto NoAdd#v (i) ; LSB is 0, so no need to addwf 


movfp ACCaLO, wreg 





Dac Pa EL TMA SA SOSN TL Ae aa oA NE ME STEN cS TASES A aL SEE a A TS RON EL ec I a aN Bd STRESS RE San ES CR ds 
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addwf ACCdLO ;addwf lsb 
movfp ACCaHI, wreg 
addwfc ACCdaHI ;addwf msb 
NoAdd#v (i) 
Gret ACCdHI 
rrce ACCdLO 
Eret ACCcHI 
rice ACCcLO 
bcf _Carry 
i = i+l 
-endw 
eae oe R28 
0068 901A btfss ACCbLO, i ; test low byte 
-else 
btfss ACCbHI,i-8 ; test high byte 
Paes’ 
0069 CO6E goto NoAdd0O ; LSB is 0, so no need to adadwf 
QO6A 6018 movfp ACCaLO, wreg 
006B OFILE addwf ACCALO saddwf lsb 
006C 6019 movfp ACCaHI, wreg 
006D 111F addwfc ACCdHI ;addwf msb 
NoAddoO 
OO6E 191F Prce ACCdHI 
OO6F 191F rict ACCdLO 
0070 191D rrcef ACCcHI 
0071 191C Erect ACCcLO 
0072 8804 bcf _carry 
0001 i = i+l 
git Ay <8 
0073 911A btfss ACCbLO, i ; test low byte 
-else 
btfss ACCbHI, 1-8 ; test high byte 
otk 
0074 C079 goto NoAddil ; LSB is 0, so no need to addwf 
0075 6018 movfp ACCaLO, wreg 
0076 OFIE addwf ACCAdaLO saddwf lsb 
0077 6019 movfp ACCaHI,wreg 
0078 111F addwfc ACCdHI ;addwf msb 
NoAddl 
0079 191F reer ACCdHI 
OO7A 191E Pret ACCdLO 
007B 191D ETCL ACCcHI 
0O7C 191C rrcer ACCcLO 
0O7D 8804 bcf carry 
0002 i = i+l 
eae Se eS 
OO7E 921A btfss ACCbLO, i ; test low byte 
-else 
btfss ACCbHI,1i-8 7; test high byte 
Sta 
OO7F C084 goto NoAdd2 ; LSB is 0, so no need to addwf 
0080 6018 movfp ACCaLO, wreg 
0081 OFIE addwf ACCdLO saddwf lsb 
0082 6019 movfp ACCaHI,wreg 
0083 111F addwfc ACCdHI saddwf msb 
NoAdd2 
0084 191F rECL ACCdHI 
0085 191E rret ACCdLO 
0086 191D Bret ACCcHI 
0087 191C rref ACCcLO 
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0088 8804 bcf _carry 
0003 i = i+1 
tft <8 
0089 931A btfss ACCbLO, i ; test low byte 
-else 
btfss ACCbHI, i-8 ; test high byte 
Pe ie 
OO8A CO8F goto NoAdd3 ; LSB is 0, so no need to addwf 
008B 6018 movfp ACCaLO, wreg 
008C OFIE addwf ACCALO saddwf lsb 
008D 6019 movfp ACCaHI,wreg 
OO8E 111F addwfc ACCdHI saddwf msb 
NoAdd3 
OO8F 191F rref ACCQHI 
0090 191E Freer ACCdLO 
0091 191D rret ACCcHI 
0092 191C Erce ACCcLO 
0093 8804 bcf _carry 
0004 i = i+l 
par 2. 8 
0094 941A btfss ACCbLO, i ; test low byte 
-else 
btfss ACCbHI, i-8 ; test high byte 
et 
0095 CO9A goto NoAdd4 ; LSB is 0, so no need to addwf 
0096 6018 movfp ACCaLO, wreg 
0097 OFIE addwf ACCAaLO saddwf lsb 
0098 6019 movfp ACCaHI, wreg 
0099 111F addwfc ACCAHI ;addwf msb 
NoAdd4 
009A 191F EECE ACCdHI 
009B 191E Sree ACCdLO 
009C 191D rref ACCcHI 
009D 191Cc rrer ACCcLO 
009E 8804 bce _carry 
0005 i = i+l 
Ps cies ee 
OO9F 951A btfss ACCbLO, i ; test low. byte 
-else 
btfss ACCbHI, 1-8 ; test high byte 
eed 
OOAO COA5 goto NoAdd5 ; LSB is 0, so no need to addwf 
OOA1 6018 movfp ACCaLO, wreg 
OOA2 OFIE addwf ACCdaLO ;addwf lsb 
00A3 6019 movfp ACCaHI, wreg 
OOA4 111F addwfc ACCAHI ;addwf msb 
NoAdd5 
OOAS 191F EXCL ACCdHI 
OOA6 191E rEret ACCdLO 
0OOA7 191D Prot ACCcHTI 
OOA8 191C rren ACCCcLO 
QOA9 8804 bcf J CAEEY 
0006 i = i+l 
sta <8 
OOAA 961A btfss ACCbDLO, i 7; test low byte 
-else 
btfss ACCbHI, 1-8 ; test high byte 
PS ie 
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QOAB COBO goto NoAdd6 ; LSB is 0, so no need to adadwf 
OOAC 6018 movfp ACCaLO, wreg 
OOAD OFIE addwf ACCdaLO ;addwf lsb 
OOAE 6019 movfp ACCaHI, wreg 
OOAF 111F addwfc ACCdHI ;addwf msb 
NoAdd6é 
0OOBO 191F CrOeL ACCaHI 
00B1 191E rref ACCdaLO 
00B2 191D Tret ACCcHI 
00B3 191C¢ rrct ACCcLO 
00B4 8804 BCE carry 
0007 t= 141 
wt 4 -<8 
0OOB5 971A btfss ACCbLO, i ; test low byte 
-else 
btfss ACCbHI, 1-8 7 test high byte 
ef4, 
00B6 COBB goto NoAdd? ; LSB is 0, so no need to adadawf 
00B7 6018 movfp ACCaLO, wreg 
00B8 OFIE addwf ACCdLO ;addwf lsb 
0OB9 6019 movfp ACCaHI,wreg 
OOBA 111F addwfc ACCdHI z;addwf msb 
NoAdd7 
OOBB 191F FEEL ACCAHI 
0OOBC 191E Erct ACCALO 
OOBD 191D fret ACCcHI 
OOBE 191C rref ACCcLO 
OOBF 8804 ocf _carry 
0008 i = i+] 
ieee ee Ser 
btfss ACCbLO, i ; test low byte 
-else 
00CO 901B btfss ACCbHI, i~-8 ; test high byte 
Sb 
00C1 COC6 goto NoAdds ; LSB is 0, so no need to addwf 
00C2 6018 movfp ACCaLO, wreg 
00C3 OFIE addwf ACCALO ;addwf lsb 
00C4 6019 movfp ACCaHI,wreg 
00C5 111F addwfc ACCdHI raddwf msb 
NoAdaég 
00C6 191F rret ACCdHI 
00C7 191E rref ACCALO 
00c8 191D Fret ACCcHI 
00C9 191C EECr ACCcLO 
OOCA 8804 bcf _carry 
0009 i = i+] 
6El Lead 
btfss ACCbLO, i ; test low byte 
-else 
OOCB 911B btfss ACCbHI, 1-8 ; test high byte 
Pa ie 
o0cc COD1 goto NoAdd9 ; LSB is 0, so no need to addwf 
OOCD 6018 movfp ACCaLO, wreg 
OOCE OFIE addwf ACCdLO ;addwf lsb 
OOCF 6019 movfp ACCaHI,wreg 
0ODO 111F addwfc ACCdHI ;addwf msb 
NoAdd9 
00D1 191F pret ACCdHI 
00D2 191E Prot ACCALO 
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00D3 
00D4 
00D5 
000A 


00D6 


00D7 
00D8 
00D9 
OODA 
00DB 


0ODC 
0ODD 
OODE 
OODF 
00E0 
000B 


00OE1 


OOE2 
00E3 
OOR4 
OOES 
OOE6 


OOE7 
OO0E8 
O0OE9 
OOEA 
OOEB 
000C 


QOEC 


OOED 
OOEE 
OOEF 
OOFO 
OOF1 


OOF2 
O0F3 
OOF4 
OOFS 
OOF6 
000D 


191D 
191¢C 
8804 


921B 


cope 
6018 
OF1E 
6019 
111F 


191F 
191E 
191D 
191C 
8804 


931B 


COE7 
6018 
OF1E 
6019 
111F 


191F 
191E 
191D 
191¢ 
8804 


941B 


COF2 
6018 
OF IE 
6019 
111F 


191F 
191E 
191D 
191¢C 
8804 


NoAdd10 


NoAdadall 


NoAddi2 


nS eee 
bt 


-else 


efi 


ry came 
bt 


.else 


ein 


rret 
EVCL 
bcft 
i= 1+1 


< 8 
fss 


btfss 


goto 
movfp 
addwf 
movfp 
addwfc 


EYGE 
rree 
ErcLH 
rret 
DCE 
1 = i+l 


< 8 
fss 


btfss 


goto 
movfp 
addwf 
movfp 
addwfc 


rref 
rref 
rref 


rref 


See ee 
bt 


.else 


Pp ak 


Pe eee 
bt 


.else 


bcf 
i = Let 


< 8 
fss 


btfss 


goto 
movfp 
addwf 
movfp 
addwfc 


Erret 
rret 
rrct 
rref 
bcf 
i = i+¢l 


< 8 
fss 


ACCcHI 
ACCcLO 
_carry 


ACCHLO, i 


ACCbHI, i-8 


NoAdd10 
ACCaLO, wreg 
ACCALO 
ACCaHI,wreg 
ACCdHI 


ACCaHI 
ACCdLO 
ACCcHI 
ACCcLO 
_carry 


ACCbLO, i 


ACCbHI, i-8 


NoAddll 
ACCaLO, wreg 
ACCdLO 
ACCaHI,wreg 
ACCdHI 


ACCdHI 
ACCdLO 
ACCcHI 
ACCcLO 
_carry 


ACCbLO, i 


ACCbHI, i-8 


NoAddl12 
ACCaLO, wreg 
ACCALO 
ACCaHI, wreg 
ACCAHI 


ACCdHI 
ACCdLO 
ACCcHI 
ACCcLO 
_carry 


ACCbLO, i 


; test low byte 


; test high byte 
; LSB is 0, so no need to addwf 
;addwf lsb 


saddwf msb 


; test low byte 


; test high byte 
; LSB is 0, so no need to addwf 
;addwf lsb 


saddwf msb 


; test low byte 


; test high byte 
; LSB is 0, so no need to addwf 
;addwf lsb 


saddwf msb 


; test low byte 
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OOF7 


OOF8 
OOF9 
OOFA 
OOFB 
0OFC 


OOFD 
OOFE 
OOFF 
0100 
0101 
OOOE 


0102 


0103 
0104 
0105 
0106 
0107 


0108 
0109 
010A 
010B 
010C 
000F 


010D 


O10E 
O10F 
0110 
0111 
0112 


0113 
0114 
0115 
0116 
0117 
0010 


951B 


COFD 
6018 
OFLE 
6019 
L11F 


191F 
191E 
191D 
191¢ 
8804 


961B 


C108 
6018 
OF LE 
6019 
111F 


191F 
191E 
191D 
191¢ 
8804 


971B 


C1i3 
6018 
OF IE 
6019 
pein 


191F 
191E 
191D 
191C 
8804 


NoAddl3 


NoAddl14 


NoAddi5 


pe 


at 


.el 


ges 


aE 


el 


sb. 


btfss 


goto 
movfp 
addwf 
movfp 
addwfc 


rref 
PIECE 
rret 
CECE 
bcf 
i = i+l 


i< 8 
btfss 


se 
btfss 


goto 
movfp 
addwf 
movfp 
addwfc 


ECT 
rret 
ag ond 
Yrece 
bert 
i = i+l 


i< 8 
btfss 


se 
btfss 


goto 
movfp 
addwf 
movfp 
addwfc 


Eret 
EYE 
EECE 
Erce 
bet 


ACCbHI, i-8 


NoAddi3 
ACCaLO, wreg 
ACCdaLO 
ACCaHI, wreg 
ACCdHI 


ACCdHI 
ACCdLO 
ACCcHI 
ACCcLO 
_carry 


ACCbLO, i 


ACCbHI, i-8 


NoAddl4 
ACCaLO, wreg 
ACCALO 
ACCaHI, wreg 
ACCGHI 


ACCdHI 
ACCdLO 
ACCcHI 
ACCcLO 
_carry 


ACCDLO, i 


ACCbHI, i-8 


NoAddal5 
ACCaLO, wreg 
ACCdLo 
ACCaHI, wreg 
ACCAHI 


ACCdHI 
ACCdLO 
ACCcHI 
ACCcLO 
_carry 


1 = it+l 


if SIGNED 


endif 


rret 


rrcef 


rrcf 


rrcef 


bcf 


ACCdHT 


ACCdLO 


ACCcHI 


ACCcLO 


carry 


; test high byte 


; LSB is 0, 
saddwf lsb 


saddwf msb 


so no need to addwf 


; test low byte 


; test high byte 


; LSB is 0, 
saddwf lsb 


saddwf msb 


so no need to addwf 


; test low byte 


; test high byte 


* ESB is: -0; 
saddwf lsb 


saddwf msb 


so no need to addwf 
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if SIGNED 
btfss sign,MSB ; negate (ACCc,ACCd) 
return 
NegMac32 ACCcHI,ACCcLO, ACCdHI, ACCdLO 
return 

else 

0118 0002 return 
endif 


KKK KK KK KKK KKK KK KKK KK KKK KK KKK KKK KKK KKK EK KKK KKKKKKKKKKKKKKK KKK KKEKEK 


Double Precision Division 


( Optimized for Code : Looped Code ) 


KKK KK IK IK KK KK KK KK IKK KKK KK KK KK KKK KK KKK KKK KK KKKKKKEKKKKKKKKKKKKKKK 


Division : ACCb(16 bits) / ACCa(16 bits) -> ACCb(16 bits) with 
Remainder in ACCc (16 bits) 
(a) Load the Denominator in location ACCaHI & ACCaLO ( 16 bits ) 
(b) Load the Numerator in location ACCbHI & ACCbLO ( 16 bits ) 
(c) CALL D_div 
(ad) The 16 bit result is in location ACCbHI & ACCbLO 
(e) The 16 bit Remainder is in locations ACCcHI & ACCcLO 


Performance : 
Program Memory : 31 (UNSIGNED) 
39 (SIGNED) 
Clock Cycles : 300 (UNSIGNED : excluding CALL & RETURN) 
: 312 (SIGNED : excluding CALL & RETURN) 


NOTE : 


The performance specs are for Unsigned arithmetic ( i.e, 
with “SIGNED equ FALSE: “) « 


KRAEKKKK KKK KKK Kk KKK KK RIK KKK KKK IKK KKK KKK KK KKK KKKKKKKK KK KKK KKK 


Double Precision Divide ( 16/16 -> 16 ) 


( ACCb/ACCa -> ACCb with remainder in ACCc ) : 16 bit output 
with Quotiont in ACCb (ACCbHI,ACCbLO) and Remainder in ACCc 


ses *e ~s “ee Se se 8s “se 8 ~“s “s Ve “Ss Ws Ve Ss M8 se Se Ms MS “SH MS Me SH WS MO Ws we MW 


(ACCcHI, ACCCLO). 


B/A = (Q) + (R)/A 


or B = A*Q + R 
where B : Numerator 
A: Denominator 
Oo 4 Quotiont (Integer Result) 
R : Remainder 


Note : Check for ZERO Denominator or Numerator is not performed 
A ZERO Denominator will produce incorrect results 


SIGNED Arithmetic 3; 

In case of signed arithmetic, if either 
numerator or denominator is negative, then both Q & R are 
represented as negative numbers 

=(BLAY SQ). (eR) TA 
or -B = (-Q)*A + (-R) 


KKK KKK KKK KK KK KKK KKK KKK KEK KK KK KKK KEK KKK KKK KK KKK KKK KKK KK KKK 


“eo iw] Oy ey ee) ey ee ee ee eT eT eS El a a a Sed Sed iad | 


_aivs 
0119 8404 , bsf _fs0 
O11A 8504 bsf _fsl ; set no auto-incrment for fsr0 
if SIGNED 
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011B 
011¢ 
011D 
O11E 
O11F 
0120 


0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
012A 
012B 


012C 
012D 


012E 
012F 
0130 
0131 
0132 


0133 
0134 
0135 
0136 


0137 


2922 
8422 
291D 
291C 
291E 
291F 


8804 
1B1A 
1B1B 
1B1C 
1B1D 
6013 
041D 
9204 
Ci2C 
6018 
041C 


9004 
Cis 


6018 
Q51¢ 
6019 
031D 
8004 


1B1E 
IBIF 
1722 
C121 


0002 


CALL 
endif 


ve 


CITE 
bsf 
Girt 
clrt 
oul Gad 
clrf 


Looped code 


oO. =e se e 


ivLoop 
bcf 
rlert 
ricf 
rLee 
ricer 
movfp 
subwf 
btfss 
goto 
movfp 
subwf 
notz 
btfss 
goto 
subca 
movfp 
subwf 
movfp 


subwfb 


bsf 
nosub 

ricf 

rice 


decfsz 


goto 


if SIGNED 
btfss 
return 
moviw 
movwf 
call 
moviw 
movwf 
call 
return 

else 


return 


endif 


Division 


7e 67 =e “se -s “se =e 676 7s =e =e =. 7-e Tet Se ~s 


: ACCbh(16 bits) 


S SIGN 


count 
count, 4 
ACCcHI © 
ACCcLO 
ACCdaLO 
ACCdHI 


_carry 
ACCbLO 
ACCbHI 
ACCcLO 
ACCcHI 
ACCaHI,wreg 
ACCcHI,w 
be 
notz 
ACCaLO,wreg 
ACCcLO,w 


3Eak FY 
nosub 


ACCaLO, wreg 
ACCcLO 
ACCaHI,wreg 
ACCcHI 
carry 


ACCALO 

ACCAHI 
count 

divLoop 


sign, MSB 


ACCcLO 


fsr0 


negate 
ACCALO 


fsr0 


negate 


:; set count = 16 


scheck if a>c 


; if msb equal then check lsb 


carry set if c>a 
ih ete a 


=e fe 


c-a intoc 


=e 


sshift al into d (result) 


KRaAKK KK KKK KK KK KKK KKK KKK KK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK 


Double Precision Division 


( Optimized for Speed : straight Line Code ) 


RK KK KKK KR IK KK KKK KKK KI KK KK KK KK KKK KK KKK KEK KKK KKK KK KK KKKEKE 5 


/ ACCa(16 bits) -> ACCbh(16 bits) with 


Remainder in ACCc (16 bits) 


(a) Load the Denominator in location ACCaHI & ACCaLO ( 16 bits ) 
(b) Load the Numerator in location ACCbHI & ACCbLO ( 16 bits ) 
(c) CALL D_div 
(ad) The 16 bit result is in location ACCbHI & ACCbLO 

(e) The 16 bit Remainder is in locations ACCcHI & ACCcLO 


aR TEE TE I SS eT ACN SRI TTC SLE OP EET OT NRT RTCA 
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B/A = (Q) + (R)/A 


or B = A*Q + R- 
where Bos: ' Numerator 
A: Denominator 
Q: Quotiont (Integer Result) 
Ri: Remainder 


Note : Check for ZERO Denominator or Numerator is not performed 
A ZERO Denominator will produce incorrect results 


; SIGNED Arithmetic ;: 

: In case of signed arithmetic, if either 
; numerator or denominator is negative, then both Q & R are 

; represented as negative numbers 

; ~(B/A) = -(Q) + (-R)/A 

: or Sa COR a Cay 

d 


Performance ;: 
Program Memory 325 (UNSIGNED) 
354 (SIGNED) 
250 (UNSIGNED : excluding CALL & RETURN) 


2 260 (SIGNED : excluding CALL & RETURN) 


Clock Cycles 


KR KK KK KKK KK KKK KK KKK KK KKK KKK KK KK KKK KKK KKK KKK KKK KEK KKK KK KKK KK KKK KKK © 


division macro 


ivMac MACRO 
variable i 


i= 0 
ewhile i < 16 


bet _carry 

ELCE ACCbLO 

Fick ACCbHI 

ELCE ACCcLO 

ricer ACCcHI 

movfp ACCaHI, wreg 

subwf ACCcHI,w rcheck if a>c 

btfss ae 

goto notz#v (i) 

movfp ACCaLO, wreg 

subwf ACCcLO,w rif msb equal then check lsb 
notz #v (i) btfss _carry ;carry set if cpa 

goto nosub#v (i) reas © eas on, ae: 
subca#v (i) movfp ACCaLO, wreg fc-a into c 

subwf ACCcLO 

movfp ACCaHI,wreg 

subwfb ACCcHI 

bs. _carry rshift a 1 into d (result) 
nosub#v (i) ricf ACCdALO 

rict ACCdHI 

i=i+l 
.endw 


ENDM 


KKK KKK KKK KK KKK KK KEKE KK KKK KEK KKK KK KKK KKK KEK KEK KKK KK KKK KKKEKKKKKKKKKKKK KKK 


Double Precision Divide ( 16/16 -> 16 ) 


( ACCb/ACCa -> ACCb with remainder in ACCc ) : 16 bit output 
with Quotiont in ACCb (ACCbHI,ACCbLO) and Remainder in ACCc 


=s =e bd =e “2 “eo 


(ACCCHT,ACCcLO). 


NOTE :; Before calling this routine, the user should make sure that 
the Numerator(ACCb) is greater than Denominator (ACCa). If 
the case is not true, the user should scale either Numerator 
or Denominator or both such that Numerator is greater than 


7s 78 od "=e ~« 
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the Denominator. 


KKK KK KKK KK KK KKK KK KK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KKKKKKKKKKKKE 


_AivF 


™e jay | 7s ~we es TA oe 


if SIGNED 
movfp ACCaHI,wreg 
xorwf ACCbHI,w 
movwf sign 
btfss ACCbHI,MSB ; if MSB set go & negate ACCb 
goto chek A MSB DIV 


negMac ACCbLO, ACCbHI 


e 
, 


chek_A_MSB DIV 
btfss ACCaHI,MSB ; 1f MSB set go & negate ACCa 
goto continue DIV 
negMac ACCaLO,ACCaHI 


endif 


s 
, 


continue DIV 





0138 291D cirt ACCcHI 

0139 291C Clete ACCcLO 

013A 291E CLer ACCdLO 

013B 291F Cire ACCAGHI 

; straight line code : using the macro divMac 
divMac 
0000 variable i 
0000 i= 0 


-while i < 16 


bcf _carry 

rLer ACCbLO 

FICE ACCbHI 

Dice ACCcLO 

rier ACCcHI 

movfp ACCaHI,wreg 

subwf ACCcHI,w ;check if a>c 

btfss _z 

goto not z#v (i) 

movfp ACCaLO, wreg 

subwf ACCcLO,w 7if msb equal then check Ilsb 
notz#v (i) btfss _carry ;carry set if c>a 

goto nosub#v (i) . af @ <a 
subca#v (i) movfp ACCaLO, wreg 7cn~a into c 

subwf ACCcLO 


movftp ACCaHI,wreg 
subwfb ACCcHI 





bsf _carry ;shift a 1 into d (result) 
nosub#v (i) CLE ACCdLO 
rice ACCdHI 
i=i+1 
.endw 
013C 8804 bcf Garry 
013D 1B1A E1lce ACCbLO 
013E 1B1B rict ACCbHI 
013F 1B1C sae ond ACCcLO 
0140 1B1D rler ACCcHI |. 
0141 6019 movfp ACCaHI, wreg 
0142 041D subwf ACCcHI,w scheck if a>c 
© 1993 Microchip Technology Incorporated DS00544B-page 23 





Math Routines 








0143 9204 
0144 C147 
0145 6018 
0146 041C 
0147 9004 
0148 C14E 
0149 6018 
014A O51C 
014B 6019 
014C 031D 
014D 8004 
014E 1BI1E 
014F 1B1F 


0150 8804 
0151 1B1A 
0152 1B1B 
0153 1B1Cc 
0154 1B1D 
0155 6019 
0156 041D 
0157 9204 
0158 C15B 
0159 6018 
015A 041C 
015B 9004 
015C C162 
015D 6018 
O15E 051C 
O15F 6019 
0160 031D 
0161 8004 
0162 1BI1E 
0163 1B1F 


0164 8804 
0165 1BIA 
0166 1B1B 
0167 1B1Cc 
0168 1B1D 
0169 6019 
016A 041D 
016B 9204 
016C C1é6F 
016D 6018 
O16E 041C 
O16F 9004 
0170 C176 
0171 6018 
0172 O51C 
0173 6019 
0174 031D 
0175 8004 
0176 1BIE 
0177 1B1F 


0178 8804 
0179 1B1A 
017A 1BiB 
017B 1Bic 
017C 1B1D 
017D 6019 
O17E 041D 


notzo 


subca0 


nosub0 


i = i+1 


notzl 


subcal 


nosubl 


i = i+1 


notz2 


subca2 


nosub2 


btfss ae 
goto not z0 
movfp ACCaLO, wreg 
subwf ACCcCLO,w 
btfss _carry 
goto nosub0 
movfp ACCaLO, wreg 
subwf ACCcLO 


movfp ACCaHI, wreg 
subwfb ACCcHI 


bsf _carry 
riceé ACCdLO 
rick ACCdHI 
bcf _carry 
Elect ACCbLO 
agi Robs ACCbHI 
rlef ACCcLO 
SE Loe ACCcHI 
movfp ACCaHI, wreg 
subwf ACCcHI,w 
btfss tae 
goto notzl 
movfp ACCaLO, wreg 
subwf ACCcLO,w 
btfss _carry 
goto nosubl 
movfp ACCaLO,wreg 
subwf ACCcLO 


movfp ACCaHI, wreg 
subwfb ACCCHI 


bosf _Carry 
rict ACCdLO 
Pict ACCdHI 
bef _carry 
rick ACCbLO 
rier ACCbHI 
ricft ACCcLO 
rlef ACCcHI 
movfp ACCaHI, wreg 
subwf ACCCHI,w 
btfss Pe: 
goto notz2 
movfp ACCaLO, wreg 
subwf ACCcLO,w 
btfss _carry 
goto nosub2 
movfp ACCaLO, wreg 
subwf ACCcLO 


movfp ACCaHI,wreg 
subwfb ACCcHI 


osf _carry 
rict ACCALO 

ELE ACCdHT 

ocf carry 

rler ACCbLO 

ELer ACCbHI 

elon @ ACCcLO 

riet » ACCEHL 
movfp ACCaHI,wreg 
subwf ACCcHI,w 


yif msb equal then check lsb 
;carry set if c>Pa 

; if c<a 

;c-a into c 


sshift al into d (result) 


scheck if a>c 


;if msb equal then check Ilsb 
scarry set if c>a 

; if c <a 

7c~a into c 


sshift al into d (result) 


scheck if a>c 


;if msb equal then check lsb 
scarry set if c>a 

pif eo <a 

2c-a into.-¢ 


sshift al into da (result) 


scheck if a>c 
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O17F 9204 btfss _z 

0180 C183 goto notz3 

0181 6018 movfp ACCaLO, wreg 

0182 041C subwf ACCcLO,w rif msb equal then check lsb 
0183 9004 notz3 btfss _carry rcarry set if c>a 

0184 C18A goto nosub3 Rs iw ig 

0185 6018 subca3 movfp ACCaLO,wreg tc-a into c 

0186 051C subwf ACCcLO 

0187 6019 movfp ACCaHI, wreg 

0188 031D subwfb ACCcHI 

0189 8004 bsf Carry ;shift al into d (result) 
018A 1B1E nosub3 rier ACCALO 

018B 1B1F EGE ACCdHI 

0004 i = i+l 

018C 8804 ber _carry 

018D 1BIA ricf ACCbLO 

018E 1B1B Eler ACCbHI 

018F 1BI1C PLE ACCcLO 

0190 1B1D ricer ACCcHI 

0191 6019 movfp ACCaHI, wreg 

0192 041D subwf ACCcHI,w ;check if a>c 

0193 9204 otfss ae 

0194 C197 goto not z4 

0195 6018 movfp ACCaLO, wreg 

0196 041¢ subwf ACCcLO,w rif msb equal then check lsb 
0197 9004 notz4 btfss carry rcarry set if cpa 

0198 C19E goto nosub4 fds eoxa 

0199 6018 subca4 movfp ACCaLO, wreg sc-a into c 

019A O051C subwf ACCcLO 

019B 6019 movfp ACCaHI, wreg 

019C 031D subwfb ACCcHI 

019D 8004 bsf _carry rshift a 1 into d (result) 
019E 1B1E nosub4 Kiet ACCdLO 

O19F 1BI1F Elect ACCdHI 

0005 i = i+1 

O1A0 8804 ocf Carry 

O1Al1 1B1A rlcf ACCbLO 

O1A2 1B1B ja hs ACCbHI 

01A3 1B1C vist ACCcLO 

0O1A4 1B1D ries ACCcHI 

O1A5 6019 movfp ACCaHI,wreg 

O1A6 041D subwf ACCcHI,w scheck if a>c 

O1A7 9204 btfss a2 

01A8 C1AB goto notzs 

O1A9 6018 movfp ACCaLO, wreg 

O1AA 041C subwf ACCcLO,w yif msb equal then check Ilsb 
O1AB 9004 notz5 btfss _carry rCcarry set if c>a 

O1AC C1B2 goto nosub5 S4f -c <. 3 

O1AD 6018 subca5 movfp ACCaLO, wreg pe=a- inte: -c 

O1AE O51C subwf ACCcLO 

O1AF 6019 movfp ACCaHI, wreg 

01B0 031D subwfb ACCcHI 

01B1 8004 bsf carry ;shift a 1 into d (result) 
01B2 1B1E nosub5 eLot ACCAdALO 

01B3 1B1F pan eon a ACCdaHI 

0006 i = i+l 

O1B4 8804 bcf _carry 

01B5 1B1A agi ok ACCbLO 

01B6 1B1B ELGE ACCbHI 

01B7 1B1C ah on & ACCcLO 

01B8 1B1D eler ACCcHI 

01B9 6019 movfp ACCaHI, wreg 

O1BA 041D subwf ACCcHI,w ;check if a>c 
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01BB 
01BC 
01BD 
O1BE 
O1BF 
01C0 
01C1 
01C2 
013 
01¢C4 
01¢C5 
01C6 
01¢7 
0007 


O1FO 
O1F1 
O1LF2 
01F3 
O1LF4 
O1FS 
O1F6 


9204 
C1BF 
6018 
041C 
9004 
C1c6 
6018 
O51¢ 
6019 
031D 
8004 
1B1E 
1BiF 


8804 
1B1A 
1B1B 
1B1c 
1B1iD 
6019 
041D 
9204 
C1D3 
6018 
041C 
9004 
C1DA 
6018 
051¢ 
6019 
031D 
8004 
1B1E 
1B1F 


8804 
1B1A 
1BiB 
1B1c 
1B1iD 
6019 
041D 
9204 
C1E7 
6018 
041C 
9004 
C1EE 
6018 
Q51¢ 
6019 
031D 
8004 
1B1E 
1B1F 


8804 
1B1A 
1B1B 
1B1Cc 
1B1D 
6019 
041D 


notz6 


subca6 


nosub6 


i = i+l1 


we 


notz7 


subca7 


nosub7 


i = i+l 


notzs 


subca8 


nosub8 


i = i+l 


btfiss at 
goto notz6 
movfp ACCaLO, wreg 
subwf ACCcLO,w 
btfss _carry 
goto - nosub6é 
movfp ACCaLO, wreg 
subwf ACCcLO 


movfp ACCaHI, wreg 
subwfb ACCcHI 


bsf _carry 
rice ACCdLO 
LLCE ACCdaHI 
bcf “Carry 
FICE ACCbLO 
aggion 3 ACCbHI 
ELCE ACCcLO 
LLCl ACCcHI 
movfp ACCaHI,wreg 
subwf ACCcHI,w 
btfss a 
goto notz7 
movfp ACCaLO, wreg 
subwf ACCCLO,w 
btfss carry 
goto nosub7 
movfp ACCaLO,wreg 
subwf ACCcLO 
movfp ACCaHI, wreg 
subwfb ACCcHI 
bsf Garry 
ricf ACCALO 
CLCE ACCdHI 
ocf _carry 
Pict ACCbLO 
ELE ACCbHI 
rict ACCcLO 
P1LCLE ACCcHI 
movfp ACCaHI, wreg 
subwf ACCcHI,w 
btfss _2 
goto notz8 
movfp ACCaLO, wreg 
subwf ACCCLO,Ww 
btfss _carry 
goto nosubs 
movfp ACCaLO, wreg 
subwf ACCcLO 


movfp ACCaHI,wreg 
subwfb ACCCHT 


bsf JCAGELy 
ELSE ACCaALO 

jae oe ACCAHI 

ocf _carry 

ricf ACCbLO 

rict ACCbHI 

ELCE ACCCLO 

rice ACCcHI 
movfp ACCaHI, wreg 
subwf ACCcHI,w 





;if msb equal then check lsb 
scarry set if c>a 

; ifcc<a 

sera into c 


sshift al into d (result) 


scheck if a>c 


rif msb equal then check lsb 
scarry set if c>a 

; if c<a 

7e-a- Into: -<S 


sshift al into d (result) 


scheck if a>c 


rif msb equal then check lsb 
scarry set if c>a 

7 Aico <a 

ic-a ‘into ¢ 


sshift al into d (result) 


scheck if a>c 
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O1F7 
O1F8 
O1F9 
O1FA 
O1FB 
O1FC 
O1FD 
O1FE 
O1FF 
0200 
0201 
0202 
0203 
000A 


0204 
0205 
0206 
0207 
0208 
0209 
O20A 
020B 
020C 
020D 
O20E 
020F 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
000B 


0218 
0219 
O21A 
021B 
O21C 
021D 
O21E 
O21F 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
022A 
022B 
000C 


022C 
022D 
022E 
022F 
0230 
0231 
0232 


9204 
C1FB 
6018 
041C 
9004 
C202 
6018 
051C 
6019 
031D 
8004 
1B1E 
1B1F 


8804 
1B1A 
1B1iB 
1B1iCc 
1B1D 
6019 
041D 
9204 
C20F 
6018 
041C 
9004 
C216 
6018 
OS1¢ 
6019 
031D 
8004 
1BI1E 
1B1F 


8804 
1B1A 
1B1B 
1B1Cc 
1B1D 
6019 
041D 
9204 
C223 
6018 
041¢C 
9004 
C22A 
6018 
051C 
6019 
031D 
8004 
1B1E 
1B1F 


8804 
1B1A 
1B1B 
1B1¢c 
1B1D 
6019 
041D 


btiss a2 

goto notz9 

movfp ACCaLO, wreg 

subwf ACCcLO,w 
notz9 btfss _carry 

goto nosub9 
subca9 movfp ACCaLO, wreg 

subwf ACCcCLO 

movfp ACCaHI, wreg 

subwfb ACCcHI 

bsf _carry 
nosub9 rlecEe ACCALO 

rick ACCdHI 
1 = i+l 

ber _Ccarry 

RICE ACCbLO 

rlecet ACCbHI 

Yter ACCcLO 

Piet ACCcHI 

movfp ACCaHI, wreg 

subwf ACCcHI,w 

btfss Pe 

goto notz10 

movfp ACCaLO, wreg 

subwf ACCcLO,W 
notz10 btfss Carry 

goto nosubl0 
subcal0 movfp ACCaLO, wreg 

subwf ACCcLO 

movfp ACCaHI, wreg 

subwfb ACCcHI 

bsf _carry 
nosubl0 Erler ACCdLO 

rleet ACCAHI 
1 = i+l 

bet _carry 

ricf ACCbLO 

Ebert ACCbHI 

PLeT ACCcLO 

ricf ACCcHI 

movfp ACCaHI,wreg 

subwf ACCcHI,w 

btfiss it 

goto notzil 

movfp ACCaLO, wreg 

subwf ACCcLO,w 
notzl1l btfss _carry 

goto nosubll 
subcall movfp ACCaLO, wreg 

subwf ACCcLO 

movfp ACCaHI,wreg 

subwfb ACCcHI 

bsf _Ccarry 
nosubll rlcf ACCALO 

BLes ACCdHI 
i = i+l 

DCE _carry 

Elect ACCbLO 

rlet ACCbHI 

Plet ACCcLO 

Eler ACCcHI 

movfp ACCaHI, wreg 

subwf ACCcHI,w 


rif msb equal then check lsb 
rcarry set if c>a 

rie © ae oe | 

7c-a into c 


sshift al into d (result) 


scheck if a>c 


rif msb equal then check lsb 
;carry set if c>a 

Ph oe ta 

}e=a into. 


rshift al into d (result) 


scheck if a>c 


rif msb equal then check lsb 
;carry set if c>a 

ae: eae ove ae 

ic=a into. cc 


sshift al into d (result) 


scheck if a>c 
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0233 9204 btfss ie 

0234 C237 goto notz12 

0235 6018 movfp ACCaLO, wreg 

0236 041C subwf ACCcCLO,w ;if msb equal then check lsb 
0237 9004 notz12 btfss _carry ;carry set if cpa 

0238 C23E goto nosubi2 ; ifc<a 

0239 6018 subcal2 movfp ACCaLO, wreg pce-a into ¢ 

023A 051C subwf ACCcLO 

023B 6019 movfp ACCaHI, wreg 

023C 031D subwfb ACCcHI 

023D 8004 bosf _carry rshift a 1 into d (result) 
023E 1B1E nosubl2 rLCE ACCdLO 

O23F 1B1F FACE ACCAHI 

000D i = itl 

0240 8804 bcf _carry 

0241 1B1A rice ACCbLO 

0242 1B1B rlcf ACCbHI 

0243 1B1C rict ACCcLO 

0244 1B1D RAGE ACCcHI 

0245 6019 movfp ACCaHI, wreg 

0246 041D subwf ACCcHI,w scheck if a>c 

0247 9204 btfss 2 

0248 C24B goto notz13 

0249 6018 movfp ACCaLO, wreg 

024A 041C subwf ACCcLO,w ;if msb equal then check lsb 
024B 9004 notz13 btfss _carry scarry set if c>a 

024C C252 goto nosubl13 aac er ome, ae: 

024D 6018 subcal3 movfp ACCaLO,wreg re-a into c 

024E 051C subwf ACCcLO 

O24F 6019 movfp ACCaHI,wreg 

0250 031D subwfb ACCcHI 

0251 8004 bsf _carry rshift a 1 into d (result) 
0252 1B1E nosubl13 rict ACCaLO 

0253 1B1F rict ACCAHI 

OO0E i = itl 

0254 8804 ber Carry 

0255 1B1A ia Kod ACCbLO 

0256 1B1B ELL ACCbHI 

0257 1B1C TLGE ACCcCLO 

0258 1B1iD rLicE ACCcHI 

0259 6019 movfp ACCaHI, wreg 

025A 041D subwf ACCcHI,w scheck if a>c 

025B 9204 btfss Zz 

0O25C C25F goto notz14 

025D 6018 movfp ACCaLO, wreg 

O25E 041C subwf ACCcCLO,w 7if msb equal then check lsb 
O25F 9004 notz14 btfss _carry scarry set if c>a 

0260 C266 goto nosubl4 f df ‘co <<a 

0261 6018 subcal4 - movftp ACCaLO,wreg tc-a into ¢ 

0262 051C subwf ACCcLO 

0263 6019 movfp ACCaHI, wreg 

0264 031D subwfb ACCcHI 

0265 8004 bsf _carry rshift a 1 into d (result) 
0266 1BI1E nosubl14 ELCt ACCdLO 

0267 1B1F ler ACCAHI 

OO0OF i = itl 

0268 8804 bocf carry 

0269 1BI1A rlef ACCbLO 

026A 1B1B “let ACCbHI 

026B 1B1C rict ACCcLO 

026C 1B1D rice ACCcHI 

026D 6019 movfp ACCaHI, wreg 

O26E 041D subwf ACCcHI,w scheck if a>c 

SS ET OE BE ET I a Te SR LE RO NE a PTI Ee EE EOE EER a EE DAE EE 2 OE Oe OE Lr ES NS I OE RO EN SE, 
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O26F 9204 btfss _2 

0270 C273 goto NOotZLS 

0271 6018 movfp ACCaLO, wreg 

0272 041C subwf ACCcLO,w ;if msb equal then check Ilsb 

0273 9004 nowzis btfss _carry ;carry set if cpa 

0274 C27A goto nosubl5 ramen oie = 

0275 6018 subcal5 movfp ACCaLO,wreg rc=a Into. ¢ 

0276 051C subwf ACCcLO 

0277 6019 movfp ACCaHI, wreg 

0278 0O31D subwfb ACCcHI 

0279 8004 bsf _carry rshift al into d (result) 

O27A 1B1E nosubl5 cleft ACCdaLO 

027B 1B1F aed os ACCGHI 

0010 i = i+l 

O27C O27C if SIGNED 
btfss sign,MSB 7; negate (ACCc, ACCd) 
return 


negMac ACCcLO, ACCcHI 
negMac ACCdLO, ACCdHI 
return 
else 
Q27C 0002 return 
endif 


KKK KKK KKK KKK KK KK KKK KKK KK KKK KK KKK KEK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KEK 


Square Root By Newton Raphson Method 


This routine computes the square root of a 16 bit number(with 
low byte in NumLo & high byte in NumHi ). After loading NumLo & 
NumHi with the desired number whose square root is to be computed, 
branch to location Sqrt ( by “GOTO Sqrt” ). “ CALL Sqrt” cannot 
be issued because the Sqrt function makes calls to Math routines 
and the stack is completely used up. 

The result = sqrt (NumHi,NumLo) is returned in location SqrtLo. 
The total number of iterations is set to ten. If more iterations 
are desired, change “LupCnt equ .10” to the desired value. Also, 
the initial guess value of the square root is given set as 
input/2 ( in subroutine “init” ). The user may modify this scheme 
if a better initial approximation value is known. A good initial 
guess will help the algorithm converge at a faster rate and thus 
less number of iterations required. 

Two utility math routines are used by this program : D_divS 
and D_add. These two routines are listed as seperate routines 
under double precision Division and double precision addition 
respectively. 





=. ve =? =. 78 “6s -s “se “2 ve ve 78 we =e 7s 7s vs 7s “es 7s =e “es 


Note : If square root of an 8 bit number is desired, it is probably 
better to have a table look scheme rather than using numerical 
methods. 

This method is computationally quite intensive and 
slow, but very accurate and the convergence rate is high 


Performance : 
Program Memory :} 22 (excluding D_divS subroutine) 


Clock Cycles : 3000 (approximately,with 10 iterations) 


The #of cycles depends on Number of Iterations Selected. 
In a lot of cases 5 or less iterations may be sufficient 


KKK K KKK KKK KKK KEK KEK KK KKK KK KK IKK KKK KK KKK KK KKK KK KKK KK KKKKKEKKEK KK KKK KKK 


Sey ey ee YY YY rT ey a) i? eh) en? eh eS | 


Newton-Raphson Method 
RR KK KKK KKK KK KK KK KK KK KK KKK KK KK KKK KKK KK KKK KK KKK KK KKK KK KK 


EE ETE NE RT TET NI EP a CC I NN IN II NE I NEI IA OEE DOE IC AE ST TET ENT TNE I TET ET II TIT NE EIT ES ES EET TIES, 
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sqrt 
027D E28B call SqrtInit ; compute initial sqrt = Num/2 
nextiIter 
if MODE _FAST 
O2Z7E 7A24 movfp NumLo, ACCbLO 
O27F 7B25 movfp NumHi, ACCbHI 
else 
movfp NumLo, wreg 
movwf ACCbLO 
movfp NumHi,wreg 
movwft ACCbHI 
endif 
0280 E119 call D_divs ; double precision division 
; double precision addition 
0281 601E movfp ACCALO, wreg ; ACCd + ACCa -> ACCd 
0282 OF18 addwf ACCaLO raddwf lsb 
0283 601F movfp ACCdGHI, wreg 
0284 1119 addwfc ACCaHI ;addwf msb 
; now divide by 2 
0285 8804 bor Carry 
0286 1919 rrer ACCaHI 
0287 1918 Erect ACCaLO 
0288 1726 decfsz iterCnt 
0289 C27E goto nextIter 
028A 0002 return ; End Sqrt 
Sqrtinit 
028B BOOA moviw _LUPCNT 
028C 0126 movwf LtErcnt ; set number of iterations 
if MODE_FAST 
028D 7925 movfp NumHi,ACCaHI 
O028E 7824 movfp NumLo, ACCaLO 
else 
movfp NumHi,wreg 
movwf ACCaHI 
movfp NumLo, wreg ; set initial guess root = NUM/2 
movwf ACCaLO 
endif 
O28F 8804 ocf _carry 
0290 1919 rrcet ACCaHI 
0291 1918 FECL ACCaLO ; set initial sqrt = Num/2 
0292 0002 return 


KKK KKK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KEK KEK KEK KKKEKKKKKKKKKK KK KKKKKEK 


8x8 Software Multiplier 
( Fast Version : Straight Line Code ) 


The 16 bit result is stored in 2 bytes 


Before calling the subroutine “ mpy “, the multiplier should 
be loaded in location * mulplr “, and the multiplicand in 

“ mulend “ . The 16 bit result is stored in locations 

H_ byte & L byte. 


=e ~se ~eg 8s Te Me =e 7s ~e ~e “ses Ee es ~s “es "=e se Te Ms TE "ss ~e 8 


multiply MACRO 
variable i 


Performance : 
Program Memory : 36 words 
# of cycles s- 336 (excluding call & return) 
Scratch RAM : 0 locations 
W Register : Used 


This routine is optimized for speed efficiency ( straight line code ) 


For code efficiency, refer to “mult8x8S.asm” ( looped code ) 
KKK KKK KKK KK KKK KI KKK KK KKK KK KKK KK KKK IKK KKK KK KK KKK KKK KKK KKK KEKE KKK KKKEESEK 


Define a macro for adding & right shifting 


A aS TSN TSOTSI SES SRI EAT OST LT LTE EL ES TEE A TAR I ITD 
DS00544B-page 30 © 1993 Microchip Technology incorporated 
4-100 


Math Routines 








i = 0 
ewhile i < 8 
btfsc mulplr,i 
addwf H byte 
erect H_ byte 
Eres L byte 
i = i+1 ; 
.endw 
ENDM ; End of macro 
mpy8x8 F 
0293 291B cLre H byte 
0294 291A CLre L_byte 
0295 6018 movfp mulend, wreg ; move the multiplicand to W reg. 
0296 8804 bcf _carry ; Clear the carry bit in the status Reg. 
multiply 
0000 variable i ; 
0000 i= 0 
-while i < 8 
btfsc mulplr,i 
addwf H byte 
pone H_ byte 
FECE L_ byte 
1 = i+1 ; 
-endw 
0297 9819 btfsc Me pir ya 
0298 OFI1B addwf H byte 
0299 191B Peet H byte 
O29A 191A Eree L_ byte 
0001 i = itl ; 
029B 9919 btfsc mulplr,i 
029C OF1B addwf H_ byte 
029D 191B Erect H_ byte 
O29E 191A rref L byte 
0002 = ey ; 
O29F 9A19 btfsc mulplr,i 
O2A0 OF1B addwf H_ byte 
O2A1 191B rref H byte 
O2A2 191A rret L byte 
0003 i = i+l ; 
02A3 9B19 btfsc mulpir, 2 
O2A4 OF1B addwf H_ byte 
O02A5 191B rret H byte 
O2A6 191A Pret L byte 
0004 i = i+l ; 
O2A7 9C19 btfisc mulplr,i 
O2A8 OF1B addwf H byte 
02A9 191B reef H_ byte 
O2AA 191A rroeft L_byte 
0005 i = i+1 ; 
O2AB 9D19 btfsc mulplr,i 
O2AC OFIB addwf H_ byte 
O2ZAD 191B rref H byte 
O2ZAE 191A EEer L byte 
0006 i = i+1 ; 
O2ZAF 9E19 btfsc mulplr,i 
02B0 OF1B adawf H_ byte 
02Bl1 191B rret H byte 
02B2 191A EECL L_ byte 
0007 i esa oo ; 
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02B3 9F19 btfsc mulplr,i 
02B4 OF1B addwf H_ byte 
02B5 191B reer H_ byte 
02B6 191A rret L_ byte 

0008 i = i+l ; 
02B7 02B7 0002 return 


KKK KKK KKK KK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KE KKKKKK KKK KKK 


8x8 Software Multiplier 
( Code Efficient : Looped Code ) 


The 16 bit result is stored in 2 bytes 


Before calling the subroutine “ mpy “, the multiplier should 
be loaded in location “ mulplr “, and the multiplicand in 

“ mulend “ . The 16 bit result is stored in locations 

H byte & L byte. 


Performance : 


Program Memory 13 words (excluding call & return) 


# of cycles s” 199 (excluding call & return) 
Scratch RAM : 1 byte 
W Register : Used 


This routine is optimized for code efficiency ( looped code ) 


For time efficiency code refer to “mult8x8F.asm” ( straight line code ) 
KEK KKK KKK KKK IK KK KK KKK KKK KEK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KKKK KKK KKK KKK 


7e ys Ys “Se *8 Ys Se 8 FH Fe Fel UFR UU MU lhe lL FlU MSU Ml MO le OU 


mpy8x8 S 

02B8 291B CLret H_ byte 

02B9 291A clrf L byte 

O2BA 2922 clrf count 

02BB 8322 bsf count;,3 ; set count = 8 

O02BC 6018 movfp mulcnd, wreg 

O2BD 8804 bef _carry ; Clear the carry bit in the status Reg. 
loop 

O2BE 9819 btfsc mulplr,0 

O2BF OFIB addwf H_ byte 

02C0 191B EYLeCr H_ byte 

02C1 191A FECE L_ byte 

02C2 2119 rrncf mulplr 

02C3 1722 decfsz count 

02C4 C2BE goto loop 

02C5 0002 return 


KKK KK KKK KEK KKK KK KKK KKK KKK KEK KKK KKK KK KKK KK KKK KE KKKKKKEKKKKEKK KKK KKK KKK 


Numerical Differenciation 


The so called “Three-Point Formula” is implemented to 
differenciate a sequence of points (uniformly sampled). 
The eqn implemented is : 
f' (Xn) = [ £(Xn - 2h) - 4*£(Xn -— hh) + 3*£ (Xn) ]*0.5/h 
where Xn is the present sample and ‘h’ is the step size. 


The above formula may be rewritten as : 


£°4¢xn) =: [| 0.5*f Xn. -2)) = -2*2£(kn = 1) + O06 5*3*f (kn) | e1/ Di LEK 
where DiffK = h = Step Size 


This differenciation routine can be used very effectively 
in the computation of the differential component part in 
a PID Loop calculation in Motor Control Applications 


=: “es es ses “s es ese Me We Ve Me VS “B8 PS YH WS VPH WH We WB 


Double precision arithmetic is used throught 


er TS SS EE Sl SC ST EOS 
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The present sample value is assumed to be in locations 
(XnHi, XnLo). The past two values are assumed to be in locations 
(Xn_1 Hi, Xn_1_Lo) & (Xn_2 Hi, Xn_2 Lo). 
The output value is located in DiffHi & DiffLo. No overflow 
checking mechanism is implemented. If the values are limited 
to 12 bits, then the user need not worry about overflows 


-e ve “ses 48 Fe Se 


It is user’s responsibility to update the past values with the 
present values before calling this routine. 

After computation, the present value Xn is not moved to Xn_1l 
because the user may want these values to be intact for other 
computations ( say numerical integration) 

Also it is user’s responsibility to set past 2 values 

(Xn_1 & Xn_2) values to be zero on initialization. 


KKK KK KEK KKK KK KKK KKK KK KKK KKK KK KKK KKK KKK KEKE KKK KK KKK KKK KKK KKK KKK KKK 


Ws ss se se Me Se te Se te Ne 





tft 
02C6 602B movfp Xn_ 2 Lo,wreg 
02C7 O0OE27 addwf XnLo,w 
02C8 011A movwf ACCbLO 
02C9 602C movfp Xn_2_ Hi,wreg 
O2CA 1028 addwfc XnHi,w 
02CB 011B movwt ACCbHI ; Y = £(Xn-2) + £ (Xn) 
O02CC 6027 movfp XnLo, wreg 
02CD OF1A addwf ACCbLO 
O2CE 6028 movfp xXnHi, wreg 
O2CF 111B addwfc ACCbHI 
02D0 6027 movfp XnLo, wreg 
O02D1 OFIA addwf ACCbLO 
02D2 6028 movfp XnHi,wreg 
02D3 111B addwfc ACCbHI ; Y = £(Xn-2) + 3*f (Xn) 
O2D4 8804 bet _carry 
02D5 191B ECE ACCbHI 
02D6 191A Eree ACCbLO ; Y = 0.5*[ £(Xn-2) + 3*f(Xn) j 
02D7 6023 movfp Xn_1 Lo,wreg 
02D8 O5S1A subwf ACCbLO 
O2D9 602A movfp Xn_1_ Hi,wreg 
O2DA 031B subwfb ACCbHI 
O2DB 6029 movfp Xn_1 Lo,wreg 
O2DC 051A subwf ACCbLO 
O2DD 602A movfp Xn_1 Hi,wreg 
O2DE 031B subwfb ACCbHI - Y¥ = 0.5*(£(Xn-2) + 3*£(Xn)j] - 2*f (Xn-1) 
O2DF 602D movfp DiffKLo,wreg 
O2E0 0118 movwf ACCaLO 
O2E1 602E movfp DiffKHi,wreg 
O02E2 0119 movwf ACCaHI 
02E3 E119 call D_divs 
02E4 601A movfp ACCbLO, wreg 
O2E5 012F movwf DiffLo 
O2E6 601B movfp ACCbHI, wreg 
02E7 0130 movwf DiffHi ; result = Y/h 
O2E8 0002 return 


KEKE KKK KEK KKK KK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KK KKK KKK KK KK Kk kK 


“es ss 6 


Numerical Integration 


Simpson’s Three-Eighths Rule is implemented 


“ses “ses “se ee Ys “8 


Y(n) = [ £(XO) + 3*£(X1) + 3*£(X2) + £(X3)]*3*h/8 
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-02E9 


O2EA 
O2EB 
O2EC 
O2ED 
O2EE 


O2EF 
02F0 
02F1 
O2F2 
02F3 
O2F4 
O2F5 
O2F6 
O2F7 
O2F8 
O2F9 
O2FA 


02FB 
O2FC 
O2FD 
O2FE 
O2FF 
0300 
0301 
0302 
0303 
0304 
0305 
0306 


0307 
0308 
0309 


6031 
0E37 
O11A 
6032 
1038 
011B 


6033 
OF1A 
6034 
111B 
6033 
OF1A 
6034 
111B 
6033 
OF1A 
6034 
111B 


6035 
OFIA 
6036 
111B 
6035 
OFIA 
6036 
111B 
6035 
OFIA 
6036 
111B 


6039 
0118 
603A 


ey eT i? eT ee? i! iy i) i Ml a i! a! Sal ial Mn! i! i! ey iT i? a! i! a? i! ee! ey ee) eT 


where ‘h’ is the step size and the integral is over the 
range X0 to X3 
The above equation can be rewritten as 


Y(n) = [ £ (XO) + 3*£(X1) + 3*f£(X2) + £(X3)]*IntgKkK 
where IntgK = 3*h/8 {in locations (IntgKHi, IntgKHi) 


This Integration routine can be used very effectively 
in the computation of the integral component part in 
a PID Loop calculation in Motor Control Applications 


Double precision arithmetic is used throught 
The three input values over which the integral is to be computed 
are assumed to be in locations (XOLo,X0Hi), (X1Lo,X1Hi) , (X2Lo,X2Hi) 
and (X3Lo,X3Hi) ' 
The output value is located in IntgHi & IntgLo. No overflow 
checking mechanism is implemented. If the values are limited 
to 12 bits, then the user need not worry about overflows 


It is user’s responsibility to update the past values with the 
present values before calling this routine. 

After computation, the present value Xn is not moved to Xn_1 
because the user may want these values to be intact for other 
computations ( say numerical integration) 

Also it is user’s responsibility to set past 2 values 

(Xn_1 & Xn_2) values to be zero on initialization. 


KKK KK KEK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KK KKK KKK KKK KKKK KKK KKK KEK 


Integrate 
movfp XOLo, wreg 
addwf X3Lo,w 
movwf ACCbLO 
movfp XOHi,wreg 
addwfc X3Hi,W 


"2s 


movwft ACCbHI 7 Intg = £(X0) + £(X3) 


movfp X1lLo,wreg 


addwf ACCbLO 

movfp X1LHi, wreg 

addwfc ACCbHI ; Intg = £(X0) + £(X3) +X1 
movfp X1Lo, wreg 

addwf ACCbLO 

movfp X1Hi, wreg 

addwfc ACCbHI > Intg = £ (X00). + £(X%3) +2*X1 
movfp X1Lo, wreg 

addwf ACCbLO 

movfp X1Hi,wreg 

addwfc ACCbHI ; Intg = £(X0) + £(X3) +3*X1 


movfp X2Lo, wreg 


addwf ACCbLO 

movfp X2Hi,wreg 

addwfc ACCbHI ; Intg = £(X0) + £(X3) +3*X1 + X2 
movfip X2Lo, wreg 

addwf ACCbLO 

movfp X2Hi, wreg 

addwfc ACCbHI 3 Intg = £(X0) + £(X3) +3*X1 + 2*X2 
movfp X2Lo, wreg 

addwf ACCbLO 

movfp X2Hi,wreg 

addwfc ACCbHI ; Intg = £(X0O) + £(X3) +3*X1 + 3*X2 
movfp IntgKLo,wreg: 

movwf ACCaLO 

movfp IntgKHi,wreg 


SS NR SR RP A SES SRS er ess EP ENP a AA OT i I tT TERE 
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O30A 0119 movwf ACCaHI ; ACCa = IntgK (prepare for multiplica- 
tion) 
030B E050 call D_mpyS 7; make sure to set for either SIGNED or 
UNSIGNED 
O030C 601E movfp ACCdLO, wreg 
030D 013B movwf IntgLo ; 32 bit result in ACCd & ACCc 
O30E 601F movfp ACCdHI, wreg 
O30F 013¢ movwf IntgHi ; upper 16 bits = result 
0310 0002 return 
pK KKK KKK KK KK KK KKK KK KK KKK KKK KKK KKK KKK KK KK KR KKK KK KKK KK KKK KK KK KKK 
; Random Number Generator 
; This routine generates a 16 Bit Pseudo Sequence Random Generator 
; It is based on Linear shift register feedback. The sequence 
; is generated by (Q15 xorwf Q14 xorwf Q12 xorwf Q3 ) 
; The 16 bit random number is in location RandHi (high byte) 
; & RandLo (low byte) 
: Before calling this routine, make sure the initial values 
; of RandHi & RandLo are NOT ZERO 
; A good chiose of initial random number is 0x3045 
KKK RK KK KKK KKK RK KK KK KK KKK KKK KK KK KKK KKK EK KR KK KKK KKK KKK KK KKK KKK 
Random1 6 
0311 1A19 Gler RandHi,w 
0312 0C19 xorwt RandHi,w 
0313 1B00 rict wreg ; carry bit = xorwf(Q15,14) 
0314 1D19 swapf RandHi 
0315 1C18 swapf RandLo,w 
0316 2300 rinet wreg 
0317 0C19 xorwf RandHi,w ; LSB = xorwf (Q12,Q3) 
0318 1D19 swapf RandHi 
0319 B501 andlw 0x01 
031A 1B18 EGE RandLo 
031B 0D18 xorwf RandLo 
031C 1B19 ricf RandHi 
031D 0002 return 
BKK KKK IK KKK EK KR KK KK KKK KKK KH KKK KKK IKK KEK KKK KK KKK KK KKK KK KKK KEK KEKE KKK 
; Gaussian Noise Generator 
; This routine generates a 16 Bit Gaussian distributed random 
; points. This routine calls the routine “Randoml6”, which 
7; generates a psuedo random noise sequence. Gaussian noise 
; is computed using the CENTRAL LIMIT THEOREM. 
; The Central Limit Theorem states that the average weighted 
; sum of uncorelated samples tends to have a Gaussian distribution 
; For practical purposes, the sum could be over a sample size 
; of 32 Random numbers. Better results could result if a larger 
; sample size is desired. For faster results, a sum over 16 samples 
; would also be adequate ( say, for applications like Speech synthesis, 
; channel simulations, etc). 
; The 16 bit Gaussian distributed point is in locations 
; GaussHi & GaussLo 
; Before calling this routine, the initial seed of Random 
7 number should be NON ZERO ( refer to notes on “Randoml6” routine 
pK KKK KK KKK KK KK KK KKK KK KKK KK KK KK KKK KK KKK IK KKK KK KKK KKK KEKKKKK KE KKK KK KKK 
Gauss 
O31E 2922 CLEE count 
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O31F 8522 bsf count, 5 ; set Sample size = 32 
0320 291A elrt GaussLo 
0321 291B . telat GaussHi 
0322 2920 elre GaussTmp 

NextGauss 
0323 E311 call Random16 ; get a random value 
0324 6018 movfp RandLo, wreg 
0325 OFI1A addwf GaussLo 
0326 6019 movfp RandHi, wreg 
0327 111B addwfc GaussHi 
0328 2900 ciUrt wreg 
0329 1120 addwfc GaussTmp 
032A 1722 decfsz count 
032B C323 goto NextGauss ; sum 16 random numbers 
032C BOOS moviw 5 

GaussDivl16é 
032D 1920 rref GaussTmp 
032E 191B Ercr GaussHi 
O032F 191A rref GaussLo ; weghted average 
0330 1700 decfsz wreg ; divide by 32 
0331 C32D goto GaussDivl6 
0332 0002 return 

END > End Of arith.asm 

Errors : 0 
Warnings : 0 


a a ee 
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BCD ARITHMETIC ROUTINES 
LISTING FILE OF BCD.ASM 


MPASM B0O.54 PAGE 1 


0001 #define PAGE EJECT 
TITLE “BCD Arithmetic Routines : Ver 1.0” 


KKK KKK KKK KK KKK KEK KKK KK KKK KK KKaKKKKK KKK KKK KKK KKK Kk Kk kk KKK KKK KKK KKK KKK 


BCD Arithmetic Routines 


KEK KKK KKK KK KKK KK KKK KK KKK KKK KKK KKK KK KKK KK KKK KKK K KK KKK K KKK KKK KKK KEK 


~s “ee Se 


eos P=17C42, C=80, L=0, R=DEC 


include *17¢c42.h” 


CBLOCK 0x20 


0020 0002 Lboyte, Hbyte 
0022 0003 R2, Rl, RO smust maintain R2, Rl, RO sequence 
0025 0001 count 
0026 0002 Numl, Num2 
ENDC 

0026 BCD equ Numl 
0026 Htemp equ Numl 
0027 Ltemp equ Num2 

ORG 0x0000 


pm kK em I I I I ee eI I I ek a I eke ke kee ek 


BCD Arithmetic Test Program 


e 
’ 
KK KK RK KKK KK KK KK KKK KK KK KKK RK K ERK KKK KK KEK KKK KKK KK KK KK KK 


main 
0000 2B21 setf Hbyte 
0001 2B20 setf Lbyte 
;: ; 16 bit binary num = Oxfff 
0002 EOF or ba BZ BCD Looped ; after conversion the Deci 
; Fat, ROY ORL, R296 555;,35 
0003 2B21 setf Hbyte 
0004 2B20 setf Lbyte 
0005 E0Q3F call B2 BCD Straight ; same as above, but straig 
0006 BO006 moviw 0x06 
0007 0124 movwt RO 
0008 BO55 moviw 0x55 
0009 0123 movwt Ri 
000A BO35 movliw 0x35 
000B 0122 movwf R2 ; setf RORIR2 = 65535 
000C E082 call BCDtoB ; after conversion Hbyte = 


~s 


and Lbyte = Oxff 


=e 


a SSC A TS EC LET EEE NAD LE NEE EE ES TTT LATED 
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000D B099 movilw 0x99 

OOOE 0126 movwf Numi 

OOOF BO99 movlw 0x99 

0010 0127 movwft Num2 ; setf Numl = Num2 = 0x99 

0011 E093 call BCDAdd ; after addition, Num2 = 98 
: ; and Numi = 01 ( 99+99 = 1 

0012 B063 movlw 0x63 ; setf Wreg = 63 hex 

0013 E015 call BinBCD ; after conversion, BCD = 9 
; ; 63 hex = 99 decimal. 

0014 C014 self goto self 


s 
, 


PRK KKK KEK KKK KK KKK KK KKK IK KK IKK KKK KK IKKE KK KKK KEKKKK KK KKK KK KKK K 


: Binary To BCD Conversion Routine (8 bit) 


7e “ae 


This routine converts the 8 bit binary number in th 
7; to a 2 digit BCD number in location BCD( compacted BCD Co 


The least significant digit is returned in location 


“se 


the most significant digit is returned in location MSD. 


Performance : 
Program Memory : 10 
Clock Cycles >: 62 (worst case when W = 


~s 7e 7a Ye Fe 


; ( i.e max Decimal nu 


eR KKK EK KK KKK KK KKK KK KK KI KKK KK KKK KK KKK KK KKK KKEKKKKK KKK KK KKK 


s 
, 


BinBCD 
0015 2926 Clrt BCD 
: again 
0016 BiF6 addlw ~10 
0017 9004 btfss _carry 
0018 C01B goto swapBCD 
0019 1526 incf BCD 
OO1A C016 goto again 
swapBCD 
001B B10A addlw 10 
O01C 1D26 swapf BCD 
001D 0926 lorwf BCD 
OO1E 0002 return 


KEK K KKK KEK KKK KK KKK KEK KKK KK KK KKK KEK KKK KKK KKK KKK KK KKK KK Kk KKK 


~e -e 


; Binary To BCD Conversion Routine (16 Bit) 


{LOOPED Version) 


-.e “sas Se 


This routine converts a 16 Bit binary Number to a 5 


BCD Number. 


. 
; 
° 
, 
s 
, 


The 16 bit binary number is input in locations Hbyt 


; Lboyte with the high byte in Hbyte. — 
; The 5 digit BCD number is returned in RO, R1 and R2 


SL aE RR Se a eS SERS 
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; containing the MSD in its right most nibble. 
r Performance 

: Program Memory : 32 

: Clock Cycles 3 -#50 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 


B2 BCD Looped 





OO1F 8404 bsf _fs0 
0020 8504 bsf 2EST ; set fsr0O for no auto inc 
0021 8804 bcf _carry 
0022 2925 elre count 
0023 8425 bsf count, 4 ; set count = 16 
0024 2924 elrr RO 
0025 2923 elre R1 
0026 2922 CLYeE R2 
loopl6a 
0027 1B20 rler Lbyte 
0028 1B21 Pict Hbyte 
0029 1B22 rict R2 
002A 1B23 FLCE R1 
002B 1B24 ELct RO 
002C 2725 dcfsnz count 
002D 0002 | return 
adjJDEC 
OO02E BO22 moviw R2 ; load R2 as indirect addr 
OO2F 0101 movwf fsr0 
0030 E036 call adjJBCD 
0031 1501 incf fsr0 
0032 E036 call adjBCD 
0033 1501 incf fsr0 
0034 E036 call adj BCD 
0035 C027 goto loopl6a 
adjBCD 
0036 6000 movfp indf0,wreg 
0037 B103 addlw 0x03 
0038 9BO0 btfsc wreg, 3 ; test if result > 7 
0039 0100 movwf indf0 
003A 6000 movftp indf0,wreg 
003B B130 addlw 0x30 
003C 9F00 btfsc wreg,7 ; test if result > 7 
003D 0100 movwf indfo ; Save as MSD 
003E 0002 return 


se 
’ 
BK KR KK KK I I IK KR KK IK KK KI KKK KK KKK KK KKK RK KKK KK KKK KK KKK 


Binary To BCD Conversion Routine (16 Bit) 


“a 


(Partial Straight Line Version) 


~s te 


This routine converts a 16 Bit binary Number to a 5 


BCD Number. 


-e 7a Me 


The 16 bit binary number is input in locations Hbyt 


Lbyte with the high byte in Hbyte. 
The 5 digit BCD number is returned in RO, R1 and R2 


=e 2: 
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KKK KKK KKK KEKE KKK KK KKK KK KKK KKK KKEKKKKKEKEKKKK KKK KK KKKKKKKKEK 


; containing the MSD in its right most nibble. 
; Performance : 

: Program Memory : 44 

. Clock Cycles $ DAZ 


B2 BCD Straight 


OO3F 8404 bsf _fs0 
0040 8504 bsf isd ; set fsrO for no auto inc 
0041 8804 bef _carry 
0042 2925 Cirt count 
0043 8425 bsf count, 4 ; set count = 16 
0044 2324 Cire RO 
0045 2923 ElLYt R1 
0046 2922 CLYt R2 
loopl6b 
0047 1B20 Lier Lbyte 
0048 1B21 FICE Hbyte 
0049 1B22 ret R2 
004A 1B23 rict R1 
004B 1B24 ELGL RO 
004C 2725 dcfsnz count 
004D 0002 return — ; DONE 
004E BO22 movliw R2 ; load R2 as indirect addr 
OO4F 0101 movwf fsr0 
; adjustBcD 
0050 6000 movfp indf0,wreg 
0051 B103 addlw 0x03 
0052 9B00 btfsc wreg, 3 ; test if result > 7 
0053 0100 movwt indf0 
0054 6000 movfp indf0,wreg 
0055 B130 addlw 0x30 
0056 9F00 btfsc wreg,7 ; test if result > 7 
0057 0100 movwf indf0 > save as MSD 
0058 1501 inct fsr0 
; adjustBCD 
0059 6000 movfp indf0,wreg 
005A B103 addlw 0x03 
005B 9B00 btfsc wreg, 3 ; test if result > 7 
005C 0100 movwft indf0o 
0O5D 6000 movfp indf0,wreg 
005E B130 addlw 0x30 
OOSF 9F00 betse wreg, 7 ; test if result > 7 
0060 0100 movwf inafo 7; save as MSD 
0061 1501 PACE fsr0 
; adjustBCcD 
0062 6000 movfp indf0,wreg 
0063 B103 addlw 0x03 
0064 9BO00 btfsc wreg, 3 ; test if result > 7 
0065 0100 movwf indf0 
0066 6000 movfp indf0,wreg 
0067 B130 addlw 0x30 
0068 9FOO btfsc wreg, 7 ; test if result > 7 
0069 0100 movwf indf0 ; save as MSD 
OO6A C047 goto looplob 


e 
’ 


BK RK RK KK KK KKK KK KK KKK KK KK IK KK KK KKK KK KKK KK KKK KK KKK KK EKER 


“es 


BCD To Binary Conversion 
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006B 
006C 
00 6D 
006E 


OO6F 
0070 
0071 
0072 
0073 


0074 
0075 
0076 
0077 
0078 
0079 
OO7A 
007B 
0O07C 


007D 
OO7E 
007F 
0080 
0081 


0082 
0083 
0084 
0085 
0086 


0087 
0088 


0089 
008A 


008B 


B50F 
OF 20 
9804 
1521 


8804 
1A20 
OLZ7 
1A21 
0126 


8804 
1B20 
1B21 
8804 
1B20 
1B21 
8804 
1B20 
1B21 


6027 
OF 20 
6026 
1121 
0002 


2921 
6024 
BSOF 
0120 
E0 6F 


1€23 
E06B 


6023 
E06B 


1€22 


=e “es 


numb 


es 
‘ 
° 
‘, 


; RO, 


This routine converts a 5 digit BCD number to a 16 


er. 


The input 5 digit BCD numbers are asumed to be in l 


Rl & R2 with RO containing the MSD in its right most 


The 16 bit binary number is output in registers Hby 


; ( high byte & low byte repectively ). 


mpylOb 


mpyl0a 


“eo 


e 
‘ 
° 
, 


BCDtoB 


7s 


The method used for conversion is : 
abcde ( the 5 digit BCD nu 


X 


= (RO, 


Performance 


andlw 
addwf 
btisc 
pa pL eo 


Det 
rict 
movwf 
chet 
movwt 


bef 
ricer 
ricf 
bcf 
EILCE 
LCL 
bef 
PLEE 
LIEGE 


movfp 
addwf 
movfp 
addwfc 
return 


ciret 
movfp 
andlw 
movwf 
call 


swapf 
call 


movfp 
call 


swapf 


input number X 


R1,R2) = abcde 


Program Memory 
Clock Cycles 


Ox0f 
Lbyte 
Carry 
Hbyte 


Uearry 
Lbyte,w 
Ltemp 
Hbyte,w 
Htemp 


carry 
Lbyte 
Hbyte 
_carry 
Lbyte 
Hbyte 
Carry 
Lbyte 
Hbyte 


Ltemp, wreg 
Lbyte 
Htemp, wreg 
Hbyte 


Hbyte 
RO,wreg 
Ox0f 
Lbyte 
mpyl0a 


Rl,w 
mpyl0b 


Rl,wreg 
mpy1l0b 


R2,w 


10[10[10[10a+b]+c]+d]+e 


=e 


se 


30 
LZ 


KK KK KKK IK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KK KKK KKK KKK 


multiply by 2 


(Htemp, Ltemp) = 2*N 


multiply by 2 


multiply by 2 


multiply by 2 


i 


(Hbyte, Lbyte) 8*N 


10*N 


(Hbyte, Lbyte) 


result = 10atb 


result = 10[10a+tb] 


result = 10[10[10a+b]+c] 


A PEELE IN SOE ERY READ PRE NE EE ae SR OE I NT AE EE a TS eT EE a A ST LEE SES AN EE SO ON ER DE EI 
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008C E06B call mpy10b ; result = 10[{10[10[10a+b]}+ 
008D 6022 movfp R2,wreg 

0OO8E BSOF andiw 0Ox0f 

OO8F OF20 addwf Lbyte 

0090 9804 btfsc _carry 

0091 1521 incf Hbyte ; result = 10[{10[10[10a+b] 


0092 0002 return ; BCD to binary conversion 


KK KK KKK KH KKK KK KKK KK KKK KK KKK KK IKK KKK KKK KKK KK KKEKKKKKKKKKKEK 


=a 


Unsigned BCD Addition 


“ses te ee “ee 


This routine performs a 2 Digit Unsigned BCD Additi 
; It is assumed that the two BCD numbers to be added are in 
; locations Numl & Num2. The result is the sum of Numl+Num2 
7; and is stored in location Num2 and the overflow carry is 


in location Numl 


~e “se 


Performance :; 
Program Memory : 2 
Clock Cycles : 


~2 2 “es es 


KKK KK KKK KKK KKK KKK KKK KKK KKK KH KHK KKK KEKKKKKKKKK KKK KKK KKK KK 


BCDAdd 


0093 6026 movfp Numl, wreg 

0094 0E27 addwf Num2,w >; perform binary addition 
0095 2F27 daw Num2 ; adjust for BCD addition 
0096 2926 GLre Num1 

0097 1B26 Pier Num1l ; set Numl = carry bit 
0098 0002 return 


° 

‘ 
e 
, 


KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKKKEKKKKKKK 


END 


Errors : 
Warnings : 0 


—_—_———— eS ee eee ee a OE O EO 
DS00544B-page 42 © 1993 Microchip Technology Incorporated 
4-112 


Math Routines 








BINARY FLOATING POINT ARITHMETIC ROUTINES 
LISTING FILE OF FLOAT.ASM 


MPASM BO.54 PAGE 1 
Binary Floating Arithmetic Routines For PIC17C42 : Ver 1.0 


0001 #define PAGE EJECT 
TITLE “Binary Floating Arithmetic Routines For PIC17C42 : Ver 1.0” 


LIST P=17C42, C=80, L=0, T=ON, R=DEC 


“s 


include “17c42.h” 


~~. “es 


KKK KKK KK KKK KK KKK KKK KKK KKK KKK KEK KKK aK KK KKK KKK KK KKK KK KKK 


‘ Binary Floating Point Addition, Subtraction 
: Multiplication Routines 

Mantissa = 16 bits 

>; Exponent = 8 bits { exponent is binary and not decima 
; i.e a number ABCD EXP(X) = OxABCD 


“se 7e 


Before calling any of the following floating point 


it is required to set Indirect Register 0 ({ FSRO ) for 
No-Autoincrement ( i.e. Set bits FSO & FS1 in ALUSTA to 


“se “6s 


° 
c 


pK KR KKK KKK RK RK KKK KK KKK KK KKK RK KEK KK KKK KK EEK KK KKK KK KKK RK KK 


CBLOCK 0x20 


0020 0003 ACCaLO, ACCaHI, EXPa 
0023 0003 ACCbLO, ACCbHI, EXPb 
0026 0002 ACCcLO, ACCcHI 
0028 0002 ACCdLO, ACCdHI 
002A 0002 temp, sign 
ENDC 
0001 Model6 equ TRUE ; Change this to FALSE for 32 bit 
ORG 0x0000 


’ 
RK KIKI KK KKK KK KKK KK EK KKK KKK KKK KEKE KK KK KEKE KK KKK KKK KK KKK KK KKK K 


; Floating Point Routines Test Program 
BK KK KKK KK KKK KK KKK KK KKK KK KK IKK KKK KK KKK KEK KEKE RK KKK KK KKK KK RAKE 


main 
0000 8404 | bsf _fs0 ; set FSRO for no autoincr. 
0001 8504 bsf _fs1 
0002 E009 call loadAB ; result of adding ACCb(EXP 
0003 E019 call F_add ; Here Accbh = 403F, EXPb = ; 
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0004 E009 call loadAB ; result of subtracting ACC 
0005 E016 call F_sub ; Here Accb = 7F7F, EXPb = 
0006 E009 call loadAB 7; result of multiplying ACC 
0007 E03B call F ompy ; Here ACCb = FF7E, EXPb = 
0008 C008 self goto self 

. Load constant values to (ACCa, EXPa) & (ACCb, EXPb) fo 

loadAB 
0009 BOO1 movlw 0x01 
OOOA 0121 movwf ACCaHI 
000B BOFF movlw Oxff : loads ACCa = O1FF EXP (4 
000C 0120 movwf ACCaLO 
000D BO004 movilw 0x04 
OO0E 0122 movwf EXPa 
OOOF BOTF moviw Ox7f 
0010 0124 movwf ACCbHI 
0011 BOFF moviw Oxff > loads ACCb = 7fff EXP (6 
0012 0123 movwf ACCbLO 
0013 BO006 movilw 0x06 
0014 0125 movwf EXPb 
0015 0002 return 


e 
’ 
eK KK KKK KKK KK KK KK KKK KK KKK KK KKK KR KKK KK KEK EK KEK KK KKK KE KKK A 


Floating Point Subtraction ( ACCb - ACCa -> ACCb ) 


=e 


: Subtraction :; ACCb(16 bits) - ACCa(16 bits) -> ACCb(16 
; (a) Load the lst operand in location ACCaLO & ACCaHI 


the 8 bit exponent in EXPa . 
(bob) Load the 2nd operand in location ACCbLO & ACChHI 


~e 7a 


the 8 bit exponent in EXPb . 
(c) CALL F_sub 
(dad) The result is in location ACCbLO & ACCbHI ( 16 b 


7e 7s ts 


: the 8 bit exponent in EXPb. 
; 


KH KK KKK KK KKK KK KKK KK KKK KKK KKK KEK KKK KKK KK KKK KKEKKKKEKKKKKKK KKK 


F_ sub 
0016 BO20 moviw ACCaLoO 
0017 0101 movwf fsro0 
0018 E075 call negate ; At first negate ACCa; Th 


~s “e 


KKK KKK KKK KKK KK KKK KK KKK KK KKK KKK KK KK KKK KK KKK KKKKEK KK KKK KKK KKK 


Floating Point Addition ( ACCb + ACCa ~> ACCb ) 
Addition : ACCb(16 bits) + ACCa(16 bits) -> ACCh(16 bi 
: (a) Load the lst operand in location ACCaLO & ACCaHI 


: the 8 bit exponent in EXPa. 
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: {b) Load the 2nd operand in location ACCbLO & ACCbHI 


the 8 bit exponent in EXPb. 
(c) CALL F_add 
(ad) The result is in location ACCbLO & ACCbHI ( 16 b 


~s “ses “SE 


the 8 bit exponent in EXPb 


~s “se “8 


KK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KK KKK KKKK KK KK KKK KKK KK KK KEK 





F_add 
0019 6022 movfp EXPa, wreg 
OO1A 3125 cpfseg EXPb 
001B C0O1D goto Lbll 
001C C026 goto noAddNorm ; if exponents are equal 
Lb11 
001D 3025 epfsit EXPb 
OO1E BO9E call F swap ; if B > A then swap ( A<-> 
OO1F 6022 movftp EXPa, wreg 
0020 0525 subwf EXPb 
scloop 
0021 E030 call addNorm 
0022 1F25 incfsz EXPb 
0023 C021 goto scloop 
0024 6022 movfp EXPa, wreg 
0025 0125 movwf EXPb 
noAddNorm 
0026 6021 movfp ACCaHI,wreg 
0027 0824 iorwf ACCbHI,w 
0028 012B movwf sign ; save the sign ( MSB sta 
0029 E036 call D_add ; compute double precision 
002A 9372B btfss sign, MSB 
002B 9724 btfss ACCbHI,MSB 
002C 0002 return 
002D 1525 inct EXPb 
OO2E 8804 bcf _carry 
0OO02F C033 goto shftR 
addNorm 
0030 8804 bet HCALry 
0031 9F24 btfse ACCbHI,MSB 
0032 8004 bosf _carry ; set carry if < 0 
shftR 
0033 1924 bap a oN @ ACCbHI 
0034 1923 rreet ACCbLO 
0035 0002 return 


, 
ok eee ee eI ee I ee RK KR KK KK KK KK RK kk ek 


: Double Precision Addition 
D_add 
0036 6020 movfp ACCaLO, wreg 
0037 OF23 addwf ACCbLO yaddwf lsb 
0038 6021 movfp ACCaHI,wreg 
0039 1124 addwfc ACCbHI ;addwf msb with carry 
003A 0002 return 


KKK KKK KKK KKK KKK KKK KKK KK KKK KH KKK KKK KK KEK KK KKK AK KK KKK KKK 


~e “8 


Binary Floating Point Multiplication 


Multiplication : 
; ACCb(16 bits)EXP(b) * ACCa(16 
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where, EXP(x) represents an 8 bit exponent. 
(a) Load the lst operand in location ACCaLO & ACCaHI 


“ses ve 


; an 8 bit exponent in locati 


(b) Load the 2nd operand in location ACCbLO & ACCbHI 


“=e 


an 8 bit exponent in locati 


ve 


(c) CALL F_mpy 
(dad) The 16 bit result overwrites ACCb(ACCbLO & ACCbH 


“ei ws 


is stored in EXPb and the results are norma 


a) 


-2 we 


NOTE : If one needs to get a 32 bit product( & an 8 bit e 


re assemble the program after changing the line “ 


to “ Model6 equ FALSE “. 
If this option is chosen, then the 32 bit result i 


=e “Ss 


; ( ACCbHI, ACCbLO, ACCcHI, ACCcLO ) and the 8 bit e 


This method ( with “ Model6 equ FALSE “ ) is NOT R 


™e 


If a 32 bit mantissa is desired, set MODE16 equ FALSE 


KEKE KKK KK KKK KK KKK KEK KKK KK KK KKK KKK KKK KK KKKKK KKK KKK KKK KKK KEK 


ST ed ed) 


F_mpy 
003B EO7D call S_ SIGN 
003C E064 call setup 

mloop 
003D 8804 bef _carry 
003E 1929 rret ACCdHI ;rotate d right 
OO03F 1928 Erret ACCdLO 
0040 9804 btfsc _carry 
0041 E036 call D_add 
0042 1924 rrct ACCbHI 
0043 1923 rret ACCbLO 
0044 1927 rrer ACCcHI 
0045 1926 , Lret ACCcLO 
0046 172A decfsz temp yloop until all bits ch 
0047 CO3D goto mloop 
0048 6022 movfp EXPa, wreg 
0049 OF25 addwf EXPb 

if Model6é 

004A 3324 tstfsz ACCbHI 
004B COSB goto finup ; 1f ACCbHT T= 0 
004C 3323 . - tstfsz ACCbLO 
004D C055 goto Snft08 ; if ACCbLO != 0 && ACCbHI 
OO04E 6027 movfp ACCcHI, wreg 
OO4F 0124 movwft ACCbHI ; if ACCb == 0, then move 
0050 6026 movfp ACCcLO, wreg 
0051 0123 movwf ACCbLO 
0052 BO10 movlw 16 
0053 OF25 addwf EXPb 
0054 CO5B goto finup | 

Shfto8 
0055 6023 movfp ACCbLO, wreg 
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0056 0124 movwt ACCbHI 
0057 6027 movfp ACCcCHI, wreg 
0058 0123 movwf ACCbLO 
0059 BO08 moviw 8 
OO5A OF25 addwf EXPb 
endif * matching endif for IF Model6é 
finup 
005B 972B btfss sign,MSB 
005C CO8B goto F norm 
0O5D B026 moviw ACCcLO 
OO5E 0101 movwf fsr0 
OOSF E075 call negate 
0060 BO023 movlw ACCbLO 
0061 0101 movwf fsr0 
0062 E075 call negate 
0063 CO8B goto F norm ; normalize floating point 


. 
’ 
pK KKK KK KKK KKK KKK KKK KKK IK KK IK KK KKK IK II I I ke 





setup 
0064 292A Clre temp 
0065 842A bsf temp, 4 ; set temp = 16 
0066 6024 movfp ACCbHI,wreg smove ACCb to ACCd 
0067 0129 movwt ACCdHI 
0068 6023 movfp ACCbLO, wreg 
0069 0128 movwf ACCdLO 
006A 2924 CLEeL ACCbHI 
006B 2923 GLEr ACCbLO ; clear ACCb ( ACCHLO & AC 
006C 0002 return 


e 
, 


RRR RK KKK KK KK RK KKK KKK KK KKK KK KKK HK KKK KK KKK KK KKK KKK KK KKK KEK 


Double Precision Negate Routines 


“5 iad 


negateAlt 
006D 6000 movfp indf0,wreg 
OO6E 8D04 bcf _fsi 
OO6F 2D00 negw indf0 
0070 8504 osf _fsl 
0071 6000 movfp indf0,wreg 
0072 2900 CLrE indf0 
0073 0300 subwfb indf0 
0074 0002 return 
negate 
0075 1300 comf indf0 
0076 8D04 bet _fsi 
0077 1500 ince indfo 
0078 8504 bsf ee soar 
0079 9A04 btfsc 2 
OO7A 0700 decf indaf0d 
007B 1300 comf indf0 
007C 0002 return 


Oy at | 


KKK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KKK KK KKK KK KKK KKKKKKKKKKEK 


; Check Sign of the Number, if so negate and set the SIGN 


cd 
’ 


S_SIGN 
0O7D 6021 movfp ACCaHI, wreg 
OO7TE 0C24 xorwf ACCbHI,w 





SA SP CIR SS ES a PS ERS IRS SC AE TT TTS 
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OO7F 012B movwf sign 
0080 9724 btfss ACCbHI,MSB ; if MSB set go & nega 
0081 C085 goto chek _A 
0082 BO23 : movlw ACCbLO 
0083 0101 movwft fsr0 
0084 E075 call negate 
chek A 
0085 9721 btfss ACCaHI,MSB ; if MSB set go & nega 
0086 0002 return 
0087 BO20 movlw ACCaLO 
0088 0101 movwf fsr0 
0089 E075 call negate 
OO8A 0002 return 


~s 7a 


KKK KKK KKK KKK KK KKK HK KKK KK KKK KKK KKK KKK KKK KEK KKEKKKKKKKKKKKKKEK 


Normalize Routine 
Normalizes ACCb for use in floating point calculations. 
Call this routine as often as possible to minimize the lo 


se “es 7. 


of precission. This routine normalizes ACCb so that the 
mantissa is maximized and the exponent minimized. 


=e -s es “a 


KK KKK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KEK KK KKK KKKKKKKKKEKK 


F norm ; normalize ACCb 
008B 3324 tstfsz ACCbHI 
008C C090 goto C_norm 
008D 3323 tstfsz ACCbLO 
OO8E C090. goto C_norm 
OOB8F 0002 return 
C_norm 
0090 9E24 betse ACCbHI,MSB-1 
0091 0002 return 
0092 E095 call shftsSL 
0093 0725 decf EXPb 
0094 C090 goto Cc norm 
shftsL 
0095 8804 bet _carry 


7e 


Bi Model6é 


0096 1B26 rlief ACCcLO 
0097 1B27 LLCTL ACCcHI 
endif 
0098 1B23 rict ACCbLO 
0099 1824 PLer ACCbHI 
OO9A BF24_ | ber ACCbHI,MSB 
0O09B 3804 btfsc _carry 
0039C 8724 bsf ACCbHI,MSB 
009D 0002 return 


KKKK KEKE KR KEK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KK KKEKKKKEKKKK KKK K 


~s 78 





; Swap ACCa & ACCb {[ (ACCa,EXPa) <-> (ACCb,EXPb) ] 
F swap 
0O09R 6021 movfp ACCaHI, wreg 
OO9F 012A movwf temp 
OOAO 6024 movfp ACCbHI, wreg ; ACCaHI <—> ACCbHI 
QOOA1 0121 movwf ACCaHI 
OOA2 602A movfp temp, wreg 
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OOA3 0124 movwf ACCbHI 

OOA4 6020 movfp ACCaLO, wreg 

QOOA5 012A movwf temp 

OOA6 6023 movfp ACCbLO, wreg ; ACCaLO <—> ACCbLO 
OOA7 0120 movwf ACCaLoO 

OOA8 602A movfp temp, wreg 

OOA9 0123 movwf ACCbLO 

OOAA 6025 movfp EXPb, wreg 

OOAB 012A movwf temp 

OOAC 6022 movfp EXPa,wreg ; EXPa <—> EXPb 
SOAD 0125 movwf EXPb 

OOAE 602A movfp temp, wreg 

OOAF 0122 movwf EXPa 

OOBO 0002 return 


° 
, 


pK KK IKK KK KKK KK IKK KK KKK IK KKK KK KKK KK KKK IK KKK KK KKK KK KKK KKK KKK 


: Normalizes A Floating Point Number 
: The number is assumed to be (LowByte, HighByte, Ex 


; consecutive locations. Before calling this routine, the a 


; of the LowByte should be loaded into FSRO (indirect regis 


KR KK RR RK KK KKK KKK RK KK KK KK KK KK KK KK KK KK KK KK 


° 
’ 


Normalize 











00B1 1501 incf fsr0 
0OB2 3300 tstfsz indf0 
00B3 COB9 goto NextNorml1 
0OB4 0701 decf fsr0 
0OB5 3300 tstfsz indf0 
0OOB6 COB8 goto NextNorm2 
0OB7 0002 return 

Next Norm2 
00OB8 1501 incf fsr0 

Next Norml 
00OB9 9E00 btfsc indf0,MSB-1 
OOBA 0002 return 
0OOBB EO0CO call shiftNorm 
OOBC 1501 nngrena fsr0 
OOBD 0700 decf indf0 
OOBE 0701 decf fsr0Q 
OOBF COB9 goto NextNorml 

shiftNorm 
0OoCcod 8804 bef _carry 
00C1 1501 Inet fsr0 
00C2 1B00 rict indf0 
00C3 1501 incf fsr0 
00C4 1B00 ECL indf0 
00C5 0701 decf fsr0 
00C6 0701 decf fsr0 
00C7 0701 decf fsr0 
00c8 1B00 rlicf indf0 
00c9 1501 incf fsr0 
OOCA 1B00 Ebert indf0 
OOCB 8F00 bef indf0,MSB 
0OCC 9804 btfsc SCarry 
OOCD 8700 bsf indf0,MSB 
OOCE 0002 return 

END 

Errors : 0 
Warnings : 0 
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DS00544B-page 50 © 1993 Microchip Technology Incorporated 
4-120 











? ® 

Microchip AN540 
Implementing IIR Digital Filters 

INTRODUCTION THEORY OF OPERATION 


This application note describes the implementation of 
various digital filters using the PIC17C42, the first mem- 
ber of Microchip’s 2nd generation 8-bit microcontrollers. 
The PIC17C42 is a very high speed 8-bit microcontroller 
with an instruction cycle time of 250ns (@ 16 MHz input 
clock). Even though PIC17C42 is an 8-bit machine, it’s 
high speed & efficient instruction set allows implemen- 
tation of digital filters for practical applications. Tradition- 
ally digital filters are implemented using expensive Digi- 
tal Signal Processors (DSPs). In a system the DSP is 
normally a slave processor being controlled by a either 
an 8- or 16-bit microcontroller. Where sampling rates are 
not high (esp. in mechanical control systems), a single 
chip solution is possible using the PIC17C42. 


This application note provides a few examples of imple- 
menting digital filters. Example code for 2nd order Infi- 
nite Impulse Response (IIR) filters is given. The follow- 
ing type of filters are implemented: 


¢ Low Pass 

¢ High Pass 

¢ Band Pass 

¢ Band Stop (notch) filter 


This application note does not explain how to design a 
filter. Filter design theory is well established and is 
beyond the scope of this application note. It is assumed 
that a filter is designed according to the desired specifi- 
cations. The desired digital filters may be designed 
using either standard techniques or using commonly 
available digital filter design software packages. 


Finite Impulse Response (FIR) filters have many advan- 
tages over IIR filters, but are much more resource 
intensive (both in terms of execution time and RAM). On 
the other hand, IIR filters are quite attractive for imple- 
menting with the PIC17C-42 resources. Especially where, 
phase information is not so important, IIR filters are a 
good choice (FIR filters have a linear phase response). 
Of the various forms used for realizing digital filters (like, 
Direct form, Direct Il form, Cascade form, Parallel, 
Lattice structure, etc.) the Direct II form is used in this 
application note. It is easy to understand and simple 
macros can be built using these structures. 
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Digital filters in most cases assume the following form of 
relationship between the output and input sequences. 


M 
y(n) = py ay(n 7 i) + $ bx(n = j) 
i=o j=o 


The above equation basically states that the present 
output is a weighted sum of the past inputs and past 
outputs. In case of FIR filters, the weighted constants 
ai=0 and in case of IIR filters, at least one of the ai 
constant is non zero. In case of JIR, the above formula 
may be re written in terms of Z transform as: 


M 
Da hy a 
k=0 


N 
1+ »y a, Z Z 
k=1 


The above equation can further be rewritten in differ- 
ence equation format as follows: 





M N 
yin) =~ Lay(n- i) + 2, bx(n -j 
i=1 j=o 


Realization of the above equation is called as the Direct 
Form II structure. For example, in case of asecond order 
structure, M=N=2, gives the following difference equa- 
tions : | 

d(n) = x(n) + a,d(n-1) + a,d(n-2) (1) 


y(n) = b,d(n) + b,d(n-1) + b,(d(n-2) (2) 


The above difference equations may be represented as 
shown in Figure 1. 


FIGURE 1- 2ND ORDER DIRECT FORM Il 
STRUCTURE (TRANSPOSED) 
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The structure as shown in Figure 1 may be cascaded to 
attain a higher order filter. For example, if two stages are 
cascaded together, a 4th Order IIR Filter is obtained. 
This way, the output of the 1st stage becomes the input 
to the second stage. Multiple order filters are thus 
implemented by cascading a 2nd order filter structure as 
shown in Figure 1. 


IMPLEMENTATION 


A 4th order IIR Filter is implemented by cascading two 
structures. shown in Figure 1. The output Y (output of 
each filter stage) is computed by direct implementation 
of Equations (1) & (2). Since each stage is similar 
algorithmically, it is implemented as a Macro using 
Microchip’s Assembler/Linker for PIC17C-42. This Macro 
(labelled “BIQUAD”) is called twice for implementing a 
4th order filter. The output of the 1st stage is directly fed 
to the input of the second stage without any scaling. 


Scaling is required depending on the particular applica- 
tion. The user can modify the code very easily without 
any penalty on speed. Also saturation arithmetic is not 
used. Overflows can be avoided by limiting the input 
sequence amplitude. All numbers are assumed to be 16 
bits in Q15 format (15 decimal points, MSB is sign bit). 
Thus the user must scale & sign extend the input 
sequence accordingly. For example, if the input is from 
a 12 bit A/D converter, the user must sign extend the 12 
bit input if bit 11 is a one. 


The BIQUAD macro is a generic macro and can be used 
for all IIR filters whether it is Low Pass, High Pass, Band 
Pass or Band Stop. A general purpose 16x16 multiplier 
routine is also provided. This routine is implemented as 
a straight line code for speed considerations. 


The 4th order IIR filter implemented is a Low Pass Filter 
with the specifications as shown in Table 1. 


TABLE 1 - FILTER CONSTANTS 


[00 | oon 


| 10 | oo 


Lower Band Edge 
Upper Band Edge 
Nominal Gain 
Nominal Ripple 


0.04601 


Maximum Ripple 
Ripple in dB 
Sampling Frequency = 2 Khz 


The Low Pass Filter is designed using a digital filter 
design package (DFDP by Atlanta Signal Processors. 
Inc.). The filter package produces filter constants of the 
structure shown in Table 1. Table 2 shows the filter co- 
efficients that are obtained for the above Low Pass filter 
specification. 





TABLE 2 - FILTER COEFFICIENTS 


| see foa 










| Stage 1 |-0.133331] 0.167145 0.285431 |0.462921 | 0.285431 
Stage 2 | 0.147827/ 0.765900 |0.698273]0.499908| 0.698273 


The above filter co-efficients (5 per stage) are quantized 
to Q15 format (i.e they are multiplied by 32768) and 
saved in program memory (starting at label 
“ _coeff_lpass”). The constants for both the stages are 
read into data memory using TLRD & TABLRD instruc- 
tions in the Initialization Routine (labelled “initFilter”). 
The user may read the coefficients of only one stage at 
a time and save some RAM at the expense of speed. 





The sample 4th order Low Pass IIR Filter is tested by 
analyzing the impulse response of the filter. An impulse 
signal is fed as input to the filter. This is simulated by 
forcing the input to the filter by a large quantity (say 
7FOOh) on the first input sample, and the all zeros from 
the 2nd sample onwards. The output sequence is the 
filter’s impulse response and is captured into the 
PICMASTER’s (Microchip’s Universal In-Circuit Emula- 
tor) real time trace buffer. This captured data from 
PICMASTER is saved to file and analyzed. Analysis was 
done using MathCad for Windows and DSP Analysis 
program from Burr-Brown (DSPLAY). The Fourier Trans- 
form of this Impulse response of the filter should display 
the Filter’s frequency response, in this case being a Low 
Pass type. The plots of the impulse response and the 
frequency response is shown in figures below. 


FIGURE 2 - IMPULSE RESPONSE 
CAPTURED FROM PIC-MASTER 


Impulse Response 


Magnitude 


16 24 32 40 48 56 64 


Time *0.5 (mSec) 





DSPLAY is a trademark of Burr-Brown 

DFDP is a trademark of Atlanta Signal Processing Inc. 
Windows is a trademark of Microsoft Corporation 
MathCad is a registered trademark of MathSoft, Inc. 


2 nen 
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FIGURE 3 - SPECTRUM COMPUTED FROM 
IMPULSE RESPONSE 


Frequency Response 


® 
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0 
0 64 128 192 256 320 384 448 512 


Frequency/512 (KHz) 


PERFORMANCE 


The resource requirements for filter implementations 
using PIC17C42 is given below. These numbers can be 
used to determine whether a higher order filter can be 
executed in real time. The same information may be 
used to determine the highest sampling rate possible. 


FILTER APPLICATIONS 


Digital filters find applications in many areas especially 
involving processing of real world signals. In some 
applications like ABS systems in an automobile, digital 
filtering becomes a must. In this case elimination of 
noise (especially glitches and false readings of sensors) 
is very critical and thus the requirement of digital signal 
processing. 


TABLE 3 - RESOURCE REQUIREMENTS 


Timing (Cycles)T #of Filter Stages*775 + 16 
Program Memory (locations)t | #of Filter Stages*68 + 290 





FIGURE 4 - LOG MAGNITUDE SPECTRUM 


OF IMPULSE RESPONSE 


Frequency Response 


(— 


Magnitude (dB) 


192 256 320 384 448 512 
Frequency/512 (KHz) 


Digital filters are also needed in Process Control where 
notch filters and low pass filters are desired because the 
signals from sensors are transmitted over long lines, 
especially in a very noisy environment. In this case 
typically a notch filter (centering 50Hz or 60HZ) is used. 
In case of eliminating background noise, a band stop 
filter (e.g. 40Hz to 120Hz) is used. The sample code 
given in this application note can be used to design a 
feedback contro! system's digital compensator. For 
example, a typical DC Motor's digital compensator (like 
dead beat compensator) is of second order and has the 
same filter structure as is implemented in this application 
note. 


Author: Amar Palacherla 
Logic Products Division 





RAM (File Registers) #of Filter Stages*16+16 


t: The above numbers do not include the initialization 
routine. 


TABLE 4 - RESOURCE REQUIREMENTS 


Filter Order Cycles Real Time Maximum Program 
(@ 16 MHz) Sampling seal 


197.75 uSec 
391.5 uSec 


585.25 uSec 
779.0 uSec 
972.75 uSec 


5.05 Khz 
2.55 Khz 
1.7 Khz 
1.28 Khz 
1.0 Khz 








t: The above numbers do not include the initialization routine. 

a a Se ae 
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APPENDIX A: IIR.ASM 


MPASM BO.54 PAGE 1 
Digital IIR Filter Using PIC17C42 . 


TITLE “Digital IIR Filter Using PIC17C42” 
LIST P=17C42, C=120, T=ON, R=DEC, N=0 


. 
, 


include “17c42.h” 


. 
y 


include “17c42.mac” 


r 
include “17c42iir.mac” 
PRR RRR KK KKK KKK RK KK RR KK KKK KKK KKK KKK KKK RK KKK RK KKK KKK KKK KK KKK KK KK RK KK KK 


; PIC17C42 MACRO 
; Macro For A Bi-Quad IIR Filter 
, 2nd order Direct Form (Transposed) Type 


; Filter co-efficients BO & B2 are assumed equal 


; The difference equations for each cascade section is given by 


; Y(n) = BO*D(n) + B1*D(n-1) + B2*D(n-2) 

: D(n) = X(n) - Al*D(n-1) -  A2*D(n-2) 

: where X(n) = input sample, Y(n) = output of filter 
; and Al, A2, BO, Bl, B2 are the Filter Co-efficients 


; The above difference equations are only for 1 section of a 
; 2nd order Direct Porm IT. Filter ‘structure (Lik) 


; NOTE 

; It is possible to design the above structures 

; such that the co-efficients BO = B2. If this is the 

; case, 

; Y(n) = BO*[D(n) + D(n-2)]) = B2*[D(n) + D(n-2)] 
; This way, one multiplication can be avoided 


; If a 4th order filter is to be implemented, the output of 
; the lst structure should be input to the 2nd cascade section 


4 Timing (WORST CASE) 

; 59+4*179 = 775 Cycles 
; (194 uS @ 16 Mhz) 

B Program Memory 


- 63 locations 


PARKKKRKKKKKK KKK KEK KK ERK KR KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KK KKK KKKKKK KKK KKK 
; The sample filters are desined so that BO=B2 
; This saves 1 multiplication 

0001 | BO EQUALS B2 equ TRUE 


s 


PRK KKKKKK KKK KKK KK KKK RK KK KKK KKK KKK KKK KK KKKKK KK KKK KK KKK KK KKKKKKKKK KKK 
; Parameters to BIQUAD Macro 

4 Filter Constants Al, A2, BO, Bl, B2 

: & D(n), D(n-1), D(n-2), filter stage # 


BIQUAD MACRO Ax1,Ax2,Bx0,Bx1,Dn,Dn_1,Dn_2,stage 


° 
, 


; Compute Ax2*D(n-2) 


reg te yh Sesser ert ea rsa nse NI 
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° 
a, 


MOVFP16 Dn_2,AARG ; D(n-2) = multiplier 
MOVFP16 Ax2,BARG ; A2 = multiplicand 


call Db1lMult ; (ACCd,ACCc) = A2*D(n-2) 
Add product to output of lst section 
; Save result in 32 bit Accumulator 

ADD32 oe 
Compute A1*D(n-1) 


° 
, 


MOVFP16 Dn_1,AARG ; AARG = D(n-2) = multiplier 
MOVFP16 Axil,BARG ; BARG = A2 = multiplicand 
call Db1lMult ; (ACCd,ACCc) = Al*D(n-1) 


° 
td 


; Compute Al*D(n-1) + A2*D(n-2) + output of previous section 


; multiplications already done, so simply perform a 32 bit add 
; of previously obtained multiplication results 
ADD32 DPX, ACC ; ACC = Al1*D(n-1) + A2*D(n-2) + (output of Ist 


; Save the upper 16 bits of D(n) from the 32 bit accumulator 
; left shift the result by 1, to adjust the decimal point after 
7; a Q15*Q15 multiplication 


° 
v 


ricf ACC+B1,w 

rlef ACC+B2,w 

movwf Dn 

ricf ACC+B3,w ; decimal adjust ( mult by 2) 
movwf Dn+Bl 


; ‘Compute B2 * [Ddn) + D(n=2)] 


if BO EQUALS B2 





ADD16ACC Dn_2,Dn,AARG ; AARG = Dn + D(n-2) = multiplier 
MOVFP16 Bx0, BARG ; BARG = A2 = multiplicand 
call DbiMult ; (ACCd,ACCc) = B2*[(D(n)+D(n-2) ] 


MOVPF32 DPX, ACC 
else 


MOVFP16 Bx0, BARG 

MOVFP16 Dn, AARG 

call Db1lMult ; BO*D(n) 
MOVPF32 DPX, ACC 


MOVFP16 Bx2, BARG 
MOVFP16 Dn_2,AARG 
call Db1lMult ; B2*D(n-2) 
ADD32 DPX, ACC 
endif 


; Shift down D(n-1) to D(n-2) after D(n-2) usage is no longer required. 
; This way in the next iteration D(n-2) is equal to the present D(n-1) 


movfp Dn_1,AARG+BO 

movpf AARG+B0,Dn_2 ; Shift down D(n-1) 

movfp Dn_1+B1,AARG+B1 

movpf AARG+B1,Dn_2+Bl ; AARG = D(n-1) = multiplier 
MOVFP16 Bx1,BARG ; BARG = Bl = multiplicand 
call Db1lMult ; (ACCd,ACCc) = B1*D(n-1) 


; Compute Output Y Bl? D(n=L) FP B2tD(n=2) + BO*D (nN) 
; = B1*D(n-1) + BO*[D(n) + D(n-2)] 


SS ES a mR ZR SS ST SR ER 
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; Since all multiplications are already done, simply perform a 

; 32 bit addition 

ADD32 DPX, ACC ; ACC = B1*D(n-1) + B2*D(n-2) + BO*D(n) 
; Shift down D(n) to D(n-1) so that in the next iteration, the new 

; D(n-1) is the present D(n) 

MOV16 Dn,Dn_1 ; Shift down D(n) to D(n-1) 


ay 


ENDM 


, 
P RAK KRKKKKKKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 


; Second Order Direct Form IIR Filter 


; In the code given below, a 4th order IIR Elliptic Lowpass Filter 
; is implemented. Other order filters may be implemented by 

; taking the following example code as a basis. 

: The specifications of the filter are 


; Sampling Frequency = 2.0 Khz 


; Filter Type = 4th Order Elliptic Lowpass Filter 


; Bandl Band2 

; Lower Band Edge 0.0 600 Hz 
; Upper Band Edge 900° HZ 1 Khz 

: Nominal Gain Ls: 0.0 

; Nominal Ripple 0.07 005 

3 Maximum Ripple 0.00906 0.04601 
; Ripple in dB 0.07830 526275 


; The Filter Co-efficients for the above specifications 
; of the filter are computed as follows 


; lst Section 

; All = -0.133331 

; A1l2 = 0.167145 

; B10 = 0.285431 

; Bll = 0.462921 

; B12 = 0.285431 

- 2nd Section 

; A21 = 0.147827 

; A22 = 0.765900 

; B20 = 0.698273 

a B21 = 0.499908 

; B22 = 0.698273 

; Performance (WORST Case): 

; Cycles = #of Filter Stages*775 + 16 

; = 2*775+16 = 1566 Cycles 

; ( 391 uSec) 

; per each sample. Initialization 

; time after reset is not counted 

; Timing measured with BO EQUALS B2 

, set to TRUE (see BIQUAD Macro for 

; explanation 

; Program Memory 

7 = 16+ # of FilterStages * (BIQUAD 
; + filter co-efficients) 
; + multiplier 

7 = 16+2* (63+5)+274 = 421 locations 
; (excluding initialization) 


te nnn SR 
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; RAM usage = 48 file registers 
é RAM usage/each additional stage = 16 file regs 
; This time is less than 2 Khz (500 uSec), 


; which means real time filtering is possible 


PRAKKRKRKK KK KKK KKK RK KK KKK KKK RK KK KK KKK KK KR KK KKK KKK KKK KKK KK KK KKK KK KK KK KKK 


P RAK KK KKKKKKK KKK KKK KKK KKK KA KKK KK KKK KK RK KKK KR KKK KKK KKK KKK KKK KKK KKK KKK 
; 


. 
f 


CBLOCK 0 
0000 0004 BO, Bl, B2,B3 
ENDC 


pRRKKKR KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK AK KK KK KKK KKK KKK KKK KKK KKK KK KK KK 


. 
, 


CBLOCK 0x18 





0018 0004 DPX, DPX1, DPX2,DPX3 ; arithmetic accumulator 
001c 0004 AARG, AARG1, BARG, BARG1 ; multiply arguments 
ENDC 
CBLOCK 
0020 0002 Dini, Dud. Ai 
0022 0002 Poi. ty Dub Li 
0024 0002 Dad 27 Dn). 2- Ay 
0026 0000 
0026 0002 Dn2,; Da2 Bi 
0028 0002 Dbri2-t,. “Dn2: 1 oA, 
002A 0002 Dn2_ 2, Dn2 2 Hi 
ENDC 
CBLOCK 
002C 0002 All, All_Hi 
002E 0002 Al2, Al2 Hi 
0030 0002 B10, B10 Hi 
0032 0002 Bil; Bid: Aa ; LSt Section Filter Coefficients 
0034 0002 BIZ; Bl2 ths 
0036 0000 
0036 0002 A21, A21 Hi 
0038 0002 A22, A22_ Hi 
003A 0002 B20; B20 Hi 
003C 0002 B21. BZ bk CA 7 and ection: fidter Co-efricients 
003E 0002 B22, B22 Hi 
ENDC 
CBLOCK 
0040 0002 X, Xl ; 16 bits of input stream 
0042 0002 Ye ik , 16: Dats Of fileer* outpuc 
0044 0000 
0044 0004 ACC, ACC1, ACC2, ACC3 ; 32 bit accumulator for computations 
ENDC 
0002 FitStage sset 2 
OO0A NumCoeff equ (S*FltStage) ; 5 Co-eff per stage 
0001 LPASS .set TRUE 
0000 HPASS -set FALSE 
0000 BPASS -set FALSE ; select the desired filter type 
0000 BSTOP -set FALSE 
0001 SIGNED equ TRUE ; Set This To ‘TRUE’ for signed multi 
; ; and ‘FALSE’ for unsigned. 


; 
PRK KR KKKKKK KKK KKK KK KK KKK KK KK RK KKK KKK KK KAR KK KKK KK KKK KKK KKK KKK KKK KKK KKK 


: Test Program For Low Pass Filter 
p RAR KEKKKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KK KKK KKK 


Sa A ET A I EE a ET LTS 
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0000 
0001 
0002 
0003 
0004 


0005 
0006 


0007 
0008 
0009 
OOOA 
000B 


0O00C 


OO00D 
O00 
OO0F 
0010 


0011 
0012 
0013 
0014 


0015 
0016 


0017 
0018 
0019 
OO1A 


EQOD 
BO000 
0140 
BOVE 
0141 


E022 
A442 


AE43 
0000 
2940 
2941 
C005 


CO0OC 


BOC1 
010D 
BOO1 
010E 


BO2C 
0101 
8404 
8D04 


BOOA 
A92C 


A000 
ABOO 
1700 
C017 


ORG 0x0000 
start 
call initFilter 
movilw 0x00 
movwf Xx 
movilw Ox7f ; set initial Xn = X(0) = O0x7f00 
movwf X+Bl ; test for impulse response 
NextPoint 
call LIRA ELer 
tlwt _LOW,Y 
tracePoint 
tablwt | HIGH,0,Y+B1 
nop 
clrf Xx 7; set X(n) = 0, n <> 0 
clret X+Bl1 ; for simulating an Impulse 
goto NextPoint 


self goto self 


, 
PRR KK KKK KK KK KKK KKK KKK KKK KK KK KKK KK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK 


. 
’ 


initFilter 


; At first read the Filter Co-efficients from Prog. Mem to Data RAM 


af LPASS 
movlw _coeff lpass 
movwf tChlptri 
movlw page _coeff lpass 
movwt thipErh 
endif 
Lt HPASS 
movlw _coeff hpass 
movwf CboiperL 
moviw page eoelt hpass 
movwt tbhlptrh 
endif 
sa BPASS 
movlw _coeff_bpass 
movwt tbhiperi 
moviw page _coeff bpass 
movwt thiperh 
endif 
ce a BSTOP 
movlw _coeff bstop 
movwf tbhlptrl 
movlw page _coeff bstop 
movwf tblptrh 
endif 
movlw All 
movwt fsr0 
bsf _fs0 
bef Jtst ; auto increment 


; Read Filter Co-efficients from Program Memory 


moviw NumCoeff 

tablrd LOW, INC,A11 7; garbage 
NextCoeff 

tigd _ LOW, indf0 

tablrd HIGH, INC, indf0 

decfsz wreg 

goto NextCoeff 


RC A tr A A A ES 
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001B 
OO01C 
001D 


OO1E 
OO1F 
0020 


0021 


0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
OO2A 
002B 


002C 
002D 


002E 
002F 


0030 


0031 
0032 


B020 
0101 
BOOC 


2900 
1700 
CO1E 


0002 


8804 
1941 
1940 
2900 
1900 
0145 
6040 
0146 
6041 
0147 


71024 
7D25 


7E2E 
TE2F 


EOAF 


6018 
OF 44 


, 


Initilize “D 


movilw 
movwt 
moviw 


NextClr 


. 
, 


cirf 
decfsz 
goto 


return 


n”s to zero 


Dnl 
fsr0 
6*FitStage 


indf0 
wreg 
NextClr 


pRAKRKKKKKKKKKKK AK KKK KK KK RAK ARAARRAA RRR KK RK RA KKAKKKKKAKRKKRAKKAK KK KEK HK 


. 
tf 


ist Cascade Section 


pRAEKK KKK KKK KR KKK KK KKK KKK KK KKK KKK KK KKK KKK KKK KKKK KKK KKK KKK KKK KKK KKK KKK K 


. 
tA 


IIR Filter 


e 
y 

. 
f 


. 
tA 


a 


. 
, 

e 
, 


. 
, 


Compute D(n 
San 
X (n 
oth 


Move Input t 


bck 
rrcef 
rrcet 
Slee 
ECE 
movwft 
movfp 
movwf 
movfp 
movwft 


ist Baquad -£ 


) = X(n) + Al*D(n-1) + A2*D(n-2) 

ce the filter constants are computated in Q15 format, 
) must be multiplied by 2**15 and then added to the 
er terms. 


o accumulator after proper scaling 


_carry 
X+B1 

X 

wreg ; Scale the input X 

wreg 

ACC+B1 

X,wreg 

ACC+B2 

X+Bl,wreg 

ACC+B3 ; ACC = scaled input : X* (2**15) 


ilter section 


BIQUAD Al11,A12,B10,B1l1,Dn1,Dni1_1,Dnl_2,1 


. 
, 


. 
f 


° 
, 


7 


° 
v 


Compute Al2* 


MOVFP 
MOVFP 


MOVFP 
MOVFP 


call 


Add product 
Save result 


MOVE'P 
ADDWF 


D(n-2) 


Dnl_ 2+B0,AARG+B0 ; move Dnl_ 2(BO) to AARG(BO) 
Dni_2+B1,AARG+B1 ; move Dni_ 2(B1) to AARG(B1) 
A12+B0, BARG+BO ; move Al2(BO) to BARG(BO) 
A12+Bl1,BARG+Bi ; move Al2(Bl1l) to BARG(B1) 
Db1lMult 3; (ACCd,ACCc) = A2*D(n-2) 


to output of lst section 
in 32 bit Accumulator 


DPX+BO,WREG 7; get lowest byte of DPX into w 
ACC+BO ; add lowest byte of ACC, save in 


a ti RARER 
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ACC (BO) 
0033 6019 MOVFP DPX+B1,WREG ; get 2nd byte of DPX into w 
0034 1145 ADDWFC ACC+Bl ; add 2nd byte of ACC, save in 
ACC (B1) 
0035 601A MOVE'P DPX+B2,WREG ; get 3rd byte of DPX into w 
0036 1146 ADDWFC ACC+B2 ; add 3rd byte of ACC, save in 
ACC (B2) 
0037 601B MOVE'P DPX+B3,WREG ; get 4th byte of DPX into w 
0038 1147 ADDWFC ACC+B3 ; add 4th byte of ACC, save in 
ACC (B3) 

; Compute Al1*D(n-1) 
VO039 <7E22 MOVEP Dn1_1+B0,AARG+B0 ; move Dnil_1(BO) to AARG(BO) 
003A 7D23 MOVEP Dn1_1+B1,AARG+B1 ; move Dnl_1(Bl) to AARG(B1) 
003B 7E2ZC MOVE'P A11+B0, BARG+B0 ; move Al1(BO) to BARG(BO) 
003C 7F2D MOVE'P A11+B1,BARG+B1 ; move Al1(B1) to BARG(B1) 
003D EOAF call Db1Mult ; (ACCd,ACCc) = Al*D(n-1) 

; Compute Al*D(n-1) + A2*D(n-2) + output of previous section 

; multiplications already done, so simply perform a 32 bit add 

: of previously obtained multiplication results 
003E 6018 MOVFP DPX+B0,WREG ; get lowest byte of DPX into w 
O03F OF44 ADDWF ACC+BO ; add lowest byte of ACC, save in 
ACC (BO) 
0040 6019 MOVF'P DPX+B1,WREG ; get 2nd byte of DPX into w 
0041 1145 ADDWFC ACC+B1 ; add 2nd byte of ACC, save in 
ACC (B1) 
0042 601A MOVFP DPX+B2,WREG ; get 3rd byte of DPX into w 
0043 1146 ADDWFC ACC+B2 ; add 3rd byte of ACC, save in 
ACC (B2) 
0044 601B MOVFP DPX+B3,WREG ; get 4th byte of DPX into w 
0045 1147 ADDWFC ACC+B3 ; add 4th byte of ACC, save in 
ACC (B3) 

; save the upper 16 bits of D(n) from the 32 bit accumulator 

; left shift the result by 1, to adjust the decimal point after 

, a Q15*Q15 multiplication 
0046 1A45 ret ACC+Bl,w 
0047 1A46 ricf ACC+B2,w 
0048 0120 movwf Dnl 
0049 1A47 rict ACC+B3,w ; decimal adjust ( mult by 2) 
OO4A 0121 movwt Dn1+Bl 

; Compute B2 * [D(n) + D(n-2)] 

if BO EQUALS B2 

004B 6024 movfp Dnl_2+B0,wreg 
004C 0E20 addwf Dn1+B0,w 
004D 011C movwft AARG+B0 
OO4E 6025 movfp Dnl_2+Bl,wreg 
OO4F 1021 addwfc Dn1+Bl,w 
0050 0Q11D movwf AARG+B1 
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0051 7E30 MOVFP B10+B0,BARG+B0 ; move B10(B0O) to BARG(BOQ) 

0052 7F31 MOVFP B10+B1,BARG+B1 ; move B10(Bl1) to BARG(B1) 

0053 EQAF call Db1lMult ; (ACCd,ACCc) = B2*[D(n)+D(n-2) ] 
0054 5844 MOVPF DPX+B0, ACC+BO ; move DPX(BO) to ACC (BO) 

0055 5945 MOVPF DPX+B1,ACC+B1 ; move DPX(B1) to ACC(B1) 

0056 5A46 MOVPF DPX+B2,ACC+B2 ; move DPX(B2) to ACC(B2) 

0057 5B47 MOVPF DPX+B3,ACC+B3 ; move DPX(B3) to ACC (B3) 

else 


MOVFP16 B10,BARG 
MOVFP16 Dni,AARG 
call Db1lMult ; BO*D(n) 


MOVPF32 DPX,ACC 


MOVFP16 Bx2,BARG 
MOVFP16 Dn1_2,AARG 
call Db1Mult ; B2*D(n-2) 


ADD32 DPX, ACC 





endif 


; Shift down D(n-1) to D(n-2) after D(n-2) usage is no longer required. 
; This way in the next iteration D(n-2) is equal to the present D(n-1) 


0058 /C22 movfp Dnl_1,AARG+BO 

0059 5C24 movpf AARG+B0,Dn1_2 ; Shift down D(n-1) 

QO5A 7D23 movfp Dni_1+B1,AARG+B1 

Q005B 5D25 movpf AARG+B1,Dn1_2+Bl1 ; AARG = D(n-1) = multiplier 
005C 7E32 MOVFP B11+B0, BARG+BO ; move B11(BO) to BARG(BO) 
0O05D 7F33 MOVFP B11+B1,BARG+B1 ; move B11(Bl) to BARG(B1) 
OO5E EOAF call DbiMult ; (ACCd,ACCc) = B1l*D(n-1) 


; Compute Output Y = B1*D(n-1) + B2*D(n-2) + BO*D(n) 

; = BilAD(n=L) + BO* LD (Un) +4 Dine=2) | 

; Since all multiplications are already done, simply perform a 
P32) DLE andi Lon 


OO5SF 6018 MOVFP DPX+B0,WREG ; get lowest byte of DPX into w 
0060 OF44 ADDWF ACC+BO ; add lowest byte of ACC, save in 
ACC (BO) 

0061 6019 MOVFP DPX+B1,WREG ; get 2nd byte of DPX into w 

0062 1145 | ADDWFC ACC+B1 ; add 2nd byte of ACC, save in 


a 
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ACC (B1) 
0063 601A 
0064 1146 
ACC (B2) 
0065 601B 
0066 1147 


ACC (B3) 


0067 
0068 
0069 
006A 


006B 
006C 


006D 
OOQ6E 


OOQ6F 


0070 
OO71 


6020 
0122 
6021 
V12Z3 


7C2A 
7D2B 


7E38 
TEo9 


EQAF 


6018 
OF 44 


ACC (BO) 


0072 
0073 


6019 
1145 


ACC (B1) 


0074 
0075 


601A 
1146 


ACC (B2) 


0076 
0077 


601B 
1147 


ACC (B3) 


0078 
0079 


71028 
7D29 


. 
, 


. 
tA 


, 


BIQUAD A21,A22,B20,B21,Dn2,Dn2_1,Dn2 2,2 


. 
7 

. 
, 


. 
’ 


, 


° 
a 


. 
a, 

e 
, 


. 
, 


MOVFP DPX+B2,WREG 
ADDWFC ACC+B2 
MOVFP  DPX+B3,WREG 
ADDWFC ACC+B3 


get 3rd byte 
add 3rd byte 


get 4th byte 
add 4th byte 


of DPX into w 
of ACC, save in 


of DPX into w 
of ACC, save in 


Shift down D(n) to D(n-1) so that in the next iteration, the new 


D(n-1) is the present D(n) 


MOVFP Dn1+B0,WREG 
MOVWF Dni_1+BO0 
MOVFP Dn1+Bl,WREG 
MOVWF Dni_1+Bl 


2nd Biquad filter section 


Compute A22*D(n-2) 


MOVFP Dn2_2+B0,AARG+BO 
MOVFP Dn2 2+B1,AARG+B1 


MOVFP A22+B0, BARG+BO 
MOVFP A22+B1,BARG+B1 


call Db1Mult 


Add product to output of lst section 


Save result in 32 bit Accumulator 


MOVFP DPX+BO,WREG 
ADDWF ACC+BO0 


MOVFP DPX+B1,WREG 
ADDWFC ACC+Bl1 


MOVEF'P DPX+B2,WREG 
ADDWFC ACC+tB2 


MOVF'P DPX+B3,WREG 
ADDWFC ACC+B3 


Compute A1*D(n-1) 


MOVFP Dn2_1+B0,AARG+BO 
MOVE'P Dn2_1+B1,AARG+tB1 


get byte of Dnl into w 


; move to Dnl_1(BO0) 


get byte of Dnl into w 


move to Dl 1(BL) 


; move Dn2_ 2(B0) to AARG(BO) 
; move Dn2 2(B1) to AARG(B1) 


move A22(B0) to BARG(BO) 
move A22(Bl1l) to BARG(B1) 


(ACCd,ACCc) = A2*D(n-2) 


get lowest byte of DPX into w 
add lowest byte of ACC, save in 


get 2nd byte of DPX into w 
add 2nd byte of ACC, save in 


get 3rd byte of DPX into w 
add 3rd byte of ACC, save in 


get 4th byte of DPX into w 
add 4th byte of ACC, save in 


move Dn2_1(BO) to AARG(BO) 


; move Dn2 1(B1l) to AARG(B1) 
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OO7A 7E36 MOVFP A21+B0O,BARG+BO ; move A21(B0) to BARG(BO) 
QO7B 7F37 MOVF'P A21+B1,BARG+B1 +; move A21(Bl1) to BARG(B1) 
OO07C EOAF call Db1lMult ; (ACCd,ACCc) = Al*D(n-1) 


; Compute Al*D(n-1) + A2*D(n-2) + output of previous section 
: multiplications already done, so simply perform a 32 bit add 
; of previously obtained multiplication results 


007D 6018 MOVFP DPX+B0,WREG ; get lowest byte of DPX into w 
OO7E OF44 ADDWF ACC+BO ; add lowest byte of ACC, save in 
ACC (BO) 

OO7F 6019 MOVFP  DPX+B1,WREG ; get 2nd byte of DPX into w 
0080 1145 ADDWFC ACC+B1 ; add 2nd byte of ACC, save in 
ACC (B1) 

0081 601A MOVFP DPX+B2,WREG ; get 3rd byte of DPX into w 
0082 1146 ADDWEFC ACC+B2 ; add 3rd byte of ACC, save in 
ACC (B2) 

0083 601B MOVFP DPX+B3,WREG ; get 4th byte of DPX into w 
0084 1147 ADDWFC ACC+B3 ; add 4th byte of ACC, save in 
ACC (B3) 


; save the upper 16 bits of D(n) from the 32 bit accumulator 
; left shift the result by 1, to adjust the decimal point after 
7 a Q15*Q15 multiplication 





0085 1A45 rier ACC+Bl1,w 

0086 1A46 ELGE ACC+B2,w 

0087 0126 movwf Dn2 

0088 1A47 ricf ACC+B3,w ; decimal adjust ( mult by 2) 
0089 0127 movwft Dn2+B1 


* Compute: BZ * .[D(n)* 4+-Dian-2) | 


He BO EQUALS B2 
OO8A 602A movfp Dn2_ 2+B0,wreg 
008B 0E26 addwf Dn2+B0,w 
008C O11C movwf AARG+B0 
OO08D 602B movfp Dn2_2+Bl,wreg 
OO8E 1027 addwfc Dn2+Bl,w 
OO8F O11D movwf AARG+B1 
0090 7E3A MOVFP B20+B0, BARG+BO ; move B20(BO) to BARG(BO) 
0091 7F3B MOVFP B20+B1,BARG+B1 ; move B20(B1) to BARG(B1) 
0092 EOAF call Db1lMult ; (ACCd,ACCc) = B2*[D(n)+D(n-2) ] 
0093 5844 MOVPF DPX+B0, ACC+BO0 ; move DPX(BO) to ACC (BO) 
0094 5945 MOVPF DPX+B1,ACC+B1 ; move DPX(B1) to ACC(B1) 
0095 5A46 MOVPF DPX+B2,ACC+B2 ; move DPX(B2) to ACC(B2) 
0096 5B47 MOVPF DPX+B3, ACC+B3 ; move DPX(B3) to ACC(B3) 
else 


MOVFP16 B20,BARG 


$e RSS SSE SL SE SA SE ETT TE ST TMT TOS TET: 
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0097 7028 
0098 5C2A 
0099 7D29 
009A 5SD2B 


009B 7E3C 
009C 7F3D 


009D EOAF 


OO9E 6018 
OO9F OF44 
ACC (BO) 
OOAO 6019 
OOAL 1145 
ACC (B1) 
OOA2 601A 
OOA3 1146 
ACC (B2) 
OO0A4 601B 
OOAS 1147 
ACC (B3) 


OOA6 6026 
OOA7 0128 
OOA8 6027 
OOA9 0129 


e 
, 


° 
, 


’ 


, 


e 
, 


, 


endif 


igital Filters 


MOVFP16 Dn2,AARG 
call Db1lMult 


MOVPF32 DPX,ACC 


MOVFP16 Bx2,BARG 
MOVFP16 Dn2_ 2,AARG 
call DblMult 


ADD32 DPX, ACC 


. 
s 


s 


BO*D (n) 


B2*D (n-2) 


Shift down D(n-1) to D(n-2) after D(n-2) usage is no longer required. 
is equal to the present D(n-1) 


movfp 
movpf 
movfp 
movpf 


MOVEP 
MOVE'P 


call 


This way in the next iteration D(n-2) 


Dn2_1,AARG+BO0 
AARG+BO,Dn2_2 
Dn2_1+B1,AARG+B1 
AARG+B1,Dn2_2+B1 


B21+B0, BARG+BO 
B21+B1, BARG+B1 


Db1lMult 


Compute Output Y 


Since all multiplications are already done, 


32 bit. addition 


. 
ta 


° 
, 


. 
r 


. 
, 


Bl*¥D(n=-1) + B2*D (n=2) 


= BLAD (n-2) + BO* 1D) 


MOVFP DPX+B0, WREG 
ADDWF ACC+BO 
MOVE'P DPX+B1,WREG 
ADDWFC ACC+B1 
MOVFP DPX+B2,WREG 
ADDWFC ACC+B2 
MOVFP DPX+B3,WREG 
ADDWFC ACC+B3 


Shift down D(n) 
D(n-~-1) 


MOVEP 
MOVWE 
MOVFP 
MOVWE 


Dn2+B0O,WREG 
Dn2_1+BO 
Dn2+B1,WREG 
Dn2_1+Bl 


Shift down D(n-1) 


AARG = D(n-1) = multiplier 


move B21(B0O) to BARG(BO) 
move B21(Bl1) to BARG(B1) 


(ACCd,ACCc) = B1*D(n-1) 


+ BO*D (n) 
+ Dine2)] 


get lowest byte 


simply perform a 


of DPX into w 


add lowest byte of ACC, save in 


get 2nd byte of DPX into w 
add 2nd byte of ACC, save in 


get 3rd byte of DPX into w 
add 3rd byte of ACC, save in 


get 4th byte of DPX into w 
add 4th byte of ACC, save in 


to D(n-1) so that in the next iteration, the new 
is the present D(n) 


get byte of Dn2 into w 
move to Dn2_1(BO0) 
get byte of Dn2 into w 
move to Dn2 1(B1) 


renee ern re a pt 
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; The filter output is now computed 
; Save the Upper 16 Bits of 32 bit Accumulator into Y after 
; adjusting the decimal point 


. 
7 


MOV16 ACC+B2,Y 


OOAA 6046 MOVFP ACC+B2+B0,WREG ; get byte of ACCt+B2 into w 
OOAB 0142 MOVWF Y+BO ; move to Y(BO) 

OOAC 6047 MOVEP ACC+B2+B1,WREG ; get byte of ACCtB2 into w 
OOAD 0143 MOVWEF Y+B1 ; move to Y(B1) 

OOAE 0002 return ; Output Y(n) computed 


PRKKKKKKKKKK KKK KKK KKK KK KK KK KK RK KK KK KKK KKK KK RK RR RK RK KKK KR RK RK KK KK KKK 
; Set SIGNED/UNSIGNED Flag Before Including 17c42MPY.mac 


include “17c42MPY.mac” 


pRAKKRKKKKKKR KKK KKK KK KKK KK KR KKK KKK KKK KK KK KKK KK KK RK KR KK KK KKK KKK KK KR KK KKK 


; Low Pass Filter Co-efficients 





; ELLIPTIC LOWPASS FILTER 
; FILTER ORDER = 4 
; Sampling frequency = 2.000 KiloHertz 
; BAND 1 BAND 2 
; LOWER BAND EDGE .00000 . 60000 
; UPPER BAND EDGE -50000 1.00000 
; NOMINAL GAIN 1.00000 .00000 
; NOMINAL RIPPLE .01000 .05000 
7; MAXIMUM RIPPLE .00906 -04601 
; RIPPLE IN GB .07830 -26.74235 
; I A(I,1) A(I,2) BCL, 0) B (1,1) B(I,2) 
ef =i Be Be Fo 1 .167145 «200434 -462921 .285431 
pe . 147827 « 165900 ,O98Z273 -499908 O98 27TS 
_coeff lpass 7; co-eftfiicients. for Ist Cascade 
CLC Ter data 4369 Pes! ae 
01C2 EA9B data =9477 ; -~Al12 
01C3 2489 data 9355 -. BLO 
01C4 3B41 data 15169 ; Bil 
O1C5 2489 data 2353 2. BizZ 
; , CO-etfieients for 2nd Cascade 
01C6 ED14 data -4844 ae 
01C7 9DF7 data =25097 pS R22 
O1C8 5961 data 22881 7. B20 
O2C9. SRPED data 16381 ; B21 
O1CA 5961 data 22881 ; B22 


ca 

PR RKRKKRKKRKEKKKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKK KK KKK KKK KK KKK 
; 

PRAKKKKKKKRK KKK KKK KK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKKKKEK KKK KKK KK KKK KKK 
; High Pass Filter Co-efficients 

; 


. 
f 


RSS SL YE ON A A ES A SE 
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01CB DC8F 
O1CC E6F5 
O1CD 2079 
O1CE CB57 
O1CF 2079 


01D0 0C12 
01D1 9C1C 
01D2 56DE 
QTD3 C1D0 
01D4 56DE 


01D5 3BF2 
O1D6 DCC4 
01D7 1C6A 
01D8 C8Al 
01D9 1C6A 


_coeff hpass 


. ELLIPTIC HIGHPASS FILTER 
; , FILTER ORDER = 4 : 
; Sampling frequency = 2.000 KiloHertz 
; BAND 1 BAND 2 
; LOWER BAND EDGE .00000 -50000 
; UPPER BAND EDGE -40000 1.00000 
; NOMINAL GAIN .00000 1.00000 
_; NOMINAL RIPPLE .04000 .02000 
; MAXIMUM RIPPLE .03368 .01686 
; RIPPLE IN dB =29%7 49955 .14526 
> 2 A(I,1) A(I,2) B(I,0) B(I,1) B(I,2) 
e- ak -276886 .195648 «293677 -.411407 ~253677 
- 2 -.094299 - 780396 .678650 -.485840 .678650 


co-efficients for lst Cascade section 


data -~9073 
data -6411 
data 8313 
data -13481 
data 8313 


data 3090 


data -25572 
data 22238 
data -15920 


data 22238 


-All 


> ~A12 


B10 
Bid 
jal 


co-efficients for 2nd Cascade section 


“AZ 
-A22 


. B20 


B21 
B22 


oe KKKEKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKKKKKKKKKAKKK 


f 


eKKKKKKKKKKKKKEKKKKKKKKKKKK KE KKK KKKKKKKKK KKK KK KKK KKK K KKK KK KKKKKKKKKKKK 


y 


; Band Pass Filter Co-efficients 


: ELLIPTIC BANDPASS FILTER 
: FILTER ORDER = 4 

; Sampling frequency = 2.000 KiloHertz 

; BAND 1 BAND 2 BAND 3 
; LOWER BAND EDGE .00000 . 30000 .90000 
; UPPER BAND EDGE .10000 .70000 1.00000 
; NOMINAL GAIN .00000 1.00000 .00000 
; NOMINAL RIPPLE .05000 .05000 .05000 
; MAXIMUM RIPPLE .03644 .03867 .03641 
; RIPPLE IN dB TORIC TTS . 32956 208. 71629 
; I NET) A(I,2) B(I,0) B(I,1) 

; 1 ~. 936676 .550568 -444000 -~.865173 

« 2 . 936707 .550568 .615540 1.199402 


_coeff bpass 


data 30693/2 
data ~18041/2 
data 14549/2 
data -28350/2 
data 14549/2 


B(I,2) 


-444000 
.615540 


co-efficients for lst Cascade section 


RAL 
~A12 
B10 
Bll 
B12 


co-efficients for 2nd Cascade section 


tc rere rerrrtnnnenaeneeeree ernest ert EA serey ent tO 
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O1DA C40D data -~30694/2 2 She), 
O1DB DCC4 data -18041/2 ; ~A22 
OLDC 2765 data 20170/2 ; B20 
OLDD 4CC3 data 39302/2 f BZ 
O1DE 2765 data 20170/2 * B22 


; 
PRR KK RK KK KR KR RK KK RK KKK KK KK KK KK KK KK RR RR KKK KK KKK KK RK KK KK KKK KK KKK KKK KK 


. 
, 


POR KK RR KK KK KR KK KR RK RK KKK KK RK KK KK KKK KK KK KKK KK KKK KK KK KK KK KKK 


; Band Stop Filter Co-efficients 





; ELLIPTIC BANDSTOP FILTER 
; FILTER ORDER = 4 
: Sampling frequency = 2.000 KiloHertz 
; BAND 1 BAND 2 BAND 3 
7; LOWER BAND EDGE .00000 -45000 . 70000 
;UPPER BAND EDGE . 30000 .55000 1.00000 
;NOMINAL GAIN 1.00000 .00000 1.00000 
;NOMINAL RIPPLE .05000 .05000 .05000 
;MAXIMUM RIPPLE 5035 16 , 03241 03517 
;RIPPLE IN dB .B00L5 =2:9 4.78523 230027 
; I A(I,1) A(I,2) B(I,0) Be ty 1) B.( 1,2) 
ee . 749420 vooSeZ oe 2392685 .087936 sor 2635 
pis se =. TAIZS90 s585262 LaeltOOZZ -.270935 4.20022 
~Goetr.. bstop ; co-efficients for ist Cascade section 
O1DF DOOA data -~24557/2 ; ~All 
O1EO DAAC data -19113/2 ; -Al12 
O1E1 1922 data 1Z2868/2 7 BLO 
O1E2 O5A0 data 2881/2 > Bil 
01B3 1922 data 12868/2 ; Bi2 
; co-efficients for 2nd Cascade section 
O1E4 2FF6 data 24556/2 - SRZ1 
O1E5 DAAC data “1913/2 f =AZ2 
O1E6 4D71 data 39650/2 ; B20 
O1E7 EEA data -8878/2 SU BZA 
O1E8 4D71 data 39650/2 & B22 


, 
PRK KK RK KKK KR KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KK KK KKK KK KKK KK KK KK K 


END 


Errors : 0 
Warnings 
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Implementation of Fast Fourier Transforms 





INTRODUCTION 


Fourier transforms are one of the fundamental opera- 
tions in signal processing. In digital computations, Dis- 
crete Fourier Transforms (DFT) are used to describe, 
represent and analyze discrete-time signals. However, 
direct implementation of DFT is computationally very 
inefficient. Of the various available high speed algo- 
rithms to compute DFT, the Cooley-Tukey algorithm is 
the simplest and most commonly used. These efficient 
algorithms to compute DFTs are called Fast Fourier 
Transforms (FFTs). 


This application note provides the source code to com- 
pute the FFT using PIC17C42. The theory behind the 
FFT algorithms is well established and described in the 
literature and hence not described in this application 
note. A Radix-2 Cooley- Tukey FFT is implemented with 
no limits on the length of FFT. The length is only limited 
by the amount of available program memory space. All 
computations are done using double precision arith- 
metic. 


IMPLEMENTATION 


Since the PIC17C42 has only 232 x 8 general purpose 
RAM ( equivalent of 116 x 16), at most a 32 point FFT 
(16-bit REAL & IMAGINARY data) can be implemented 
using on chip RAM. To compute higher point FFT, the 
data is stored in program memory space of PIC17C42. 
The PIC17C42 has instructions (TABLRD & TABLWT) to 
transfer data between program memory space and on 
chip file registers. In extended microcontroller mode, the 
PIC17C42 has 2K x 16 (0000h:07FFh) on chip program 
memory space and 62K x 16 (O800h:0FFFFh) of exter- 
nal program memory space. In this mode, the code (in 
this case, the FFT code) may reside on the on chip 
EPROM and the data to be analyzed may be stored in 
external RAMs (up to 62K). A suggested method of 
connecting external RAMs (appropriate EEPROMs may 
also be used) is shown in Figure 3. 


If PIC17C42 is used in extended microcontroller mode 
and if all the code resides on chip, then the cost may 
further be reduced by using only one external SRAM 
instead of two. The block diagram is shown in Figure 2. 
The 16-bit data stored in the external RAM is organized 
as low byte followed by high byte. To achieve this, the 
code presented in this application note needs minor 
modifications, especially where TABLRD and TABLWR 
instructions are used. Address indexing must be 
incremented by two since 2 reads/writes must be per- 
formed to access a 16-bit data. 





The FFT is implemented with Decimation In Frequency. 
Thus the input data before calling the FFT routine 
("R2FFT") should be in normal order and the trans- 
formed data is in scrambled order. The original data is 
overwritten by the transformed data to conserve memory. 
This is achieved by use of in-place calculations. This in- 
place calculations causes the order of the DFT terms to 
be permuted. So at the end of the transform, all the data 
needs to be unscrambled to get the right order of the DFT 
terms. In some applications the order of terms is not 
necessary. Keeping this in mind, the unscrambling code 
is written as a separate subroutine ("Unscramble") and 
may be called if necessary. 


Before implementing the FFT using PIC17C42, a "C" 
program was written and tested. This high level pro- 
gramming helps in writing the assembly code and the 
results of both programs can be compared against while 
debugging the assembly code. The "C" source code for 
the Radix-2 FFT is shown in Appendix A. The assembly 
code source file of the FFT program is shown in Appen- 
dix B. For a listing of the header file "17C42.h" and the 
macro definition file "17C42.mac" please refer to Appen- 
dices C and D respectively of the application note 
ANw00540. 


FIGURE 1 - TEST WAVE FORM 
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TESTING PERFORMANCE 

The assembly code was developed and debugged using The performance of FFT using PIC17C42 is quite im- 
Microchip's PICMASTER In-Circuit Emulator System. A pressive noting that for an 8 bit machine with no hard- 
main program generates a test pattern (like a square ware multiplier. Also note that all computations are 
wave) and calls the FFT routines "R2FFT" & "Un- performed using double precision arithmetic. 
scramble". After the DFT terms are computed, the (16- & 32- bits) which is the case in most of the low end 
results are captured into PICMASTER's real time trace DSPs. Table 1 provides the real time performance in 
buffer by putting a trace point on a dummy TABLRD total number of Instruction cycles for both the "R2FFT" 
instruction and capturing only the 2nd cycle (data cycle & "Unscramble" routines using 64, 256 & 1024 Point 
of TABLRD) of the instruction. The data from Trace buffer FFT. Note that the timings are in a worst case situation 
was hot linked to Microsoft Excel using DDE and then and in general will be a lot better than shown in the table. 
the graphs were plotted and analyzed. The worst case situation arises because the 16 x 16 


The code was tested on various wave forms (a rectan- software multiplier ("DbIMult") does not have a uniform 
gular pulse, a triangular wave, square wave and a sine timing and depends on the input data. The worst case 
wave) and using FFT lengths of 64, 256 & 1024. The timing of the multiplier is used in the computation of 
results of a 256 Point FFT on a square wave is shown performance. 

below. The test wave form is shown in Figure 1 and the 

frequency spectrum of it computed by PIC17C42 is 

shown in Figure 2. As expected, the spectra appears at 

the odd harmonics of the input wave form's fundamental 

frequency ( At N*256/64, N = 0,1,3,5...). 


FIGURE 2 - FFT (MAGNITUDE SPECTRUM) OF FIGURE 1 COMPUTED BY PIC17C42 


Frequency Spectrum 


Magnitude 
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TABLE 1 - WORST CASE PERFORMANCE OF FFT IN INSTRUCTION CYCLES AND REAL TIME 
@ 16 MHZ 


R2FFT | 34116 + 768*Mult = 178024 + 4096*Mult= 
171588 911208 


Unscramble 5143 22495 


176731 (44.18 mS) 933703 (233.42 mS) 





1024 Point 
















878752 + 20480*Mult = 
4544672 













4638197 (1159.55 mS) 
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Table 2 shows the Program Memory & Data RAM 
requirements for an N Point FFT. The multiplier routine 
and other general purpose macro requirements are 
included in the memory requirements. The speed per- 
formance for the square wave test data differs from the 
Table 1 since worst case timings is not used and reflects 
a more reasonable data. 


FFT APPLICATIONS 


Although the FFT does not find a place in many 
microcontroller applications, it is very useful in providing 
a benchmark of the processor. As can be seen from 
Table 2, the performance is very satisfactory, consider- 
ing the fact that PIC17C42 is a Microcontroller and not 
a DSP. Also it should be borne in mind that all compu- 
tations are performed in 16/32 bit arithmetic and that 
PIC17C42 is a low cost 8 bit machine unlike the DSPs 
which are relatively expensive. 


TABLE 2 - REQUIREMENTS FOR RADIX-2 FFT 


N (FFT Length) 64 Point 256 Point 


Code Space 
(locations) 


Data Storage in 2*N = 128 
Program Memory 


Space 
Scratch RAM 


Performance 
(Square Wave 
Input Data) 


122384 (30.6 mS) 


FIGURE 3 - EXTERNAL MEMORY 
CONNECTION 





Two IDT71256 


ALE (32K x 16 SRAM) 





Vv CLK ES AD<0:15> 


PIC17C42 Cee] DKO:15> 








603 + 0.75*N = 651 603 + 0.75*N = 795 


2*N = 512 


644416 (161.1 mS) 





In applications like Instrumentation, where real time FFT 
computation is not required, PIC17C42 can be used as 
a single chip solution instead of a Microcontroller and a 
Digital Signal Processor. 


Suggested Reading : 


{1} L. R. Rabiner and B. Gold, Theory and Application Of 
Digital Signal Processing. 


Englewood Cliffs, NJ : Prentice-Hall, 1975. 


[2] C.S. Burrs and T. W. Parks, DFT/FFT and Convolution 
Alogorithms. 


New York : Wiley, 1985. 


[3] Jeffrey J. Rodriguez, An Improved FFT Digit-Reversal 
Algorithm. 


IEEE Transactions On Acoustics, Speech, And Signal 
Processing, 


Vol. 37, No. 8, Aug 1989. 


Author: Amar Palacherla 


Logic Products Division 





1024 Point 


603 + 0.75*N= 1371 


2*N = 2048 


3192176 (798 mS) 


FIGURE 4 - ALTERNATE EXTERNAL 
MEMORY CONNECTION 









One IDT71256 
(32K x 8 SRAM) 


AD<0:15> 


PIC17C42 
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APPENDIX A: FFT ALGORITHM 


MPASM BO.54 7 PAGE 1 


pRKKKRKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK 


; A Cooley-Tukey Radix-2 DIF FFT 
: Radix-2 implementation 

; Decimation In Frequency 

; Single Butterfly 

; Table Lookup of Twiddle Factors 


; Complex Input & Complex Output 


. All data is assumed to be 16 bits and the intermediate 
: results are stored in 32 bits 


; Length Of FFT must be a Power Of 2 


; Max Length Possible is 2**15 

: The input/output complex data is organized as a single array 
; of real data followed by imaginary data 

; Data is stored in External Memory and is accessed by 
; TABLRD & TABLWT Instructions 


PRAKKKKRKKKK KKK KK KKK KKK KKK KKK KKK KK KKK KAKKKKKK KKK KKKKKKKK KKK KKK KK KKK KKK KK KK KKK 


LIST P=17C42, C=120, T=ON, R=DEC, N=0 
include “17c42.h” 


. 
, 


include “17c42.mac” 
PRK KKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KK KKK KKK KK KKK KKK KKK 
; RLC16AB 


>; DESCRIPTION: 
; 16 bit rotate left A into B 


; ARGUMENTS: 
. 2*a => b 


; TIMING (in cycles): 
7 3 


RLC16AB MACRO a,b 


BEE _carry 
RLCF a+B0,W 
MOVWE b+BO 

RLCE a+B1,W 


MOVWF b+Bl1l 


ENDM 


pRKKKKKKKKKKKKK KKK KK KKK KKK KKK KKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KK KKK KKK KK KK KK KK 


; TBLADDR 


; DESCRIPTION: 
; Load 16 bit table pointer with specified label 


eS a ee ae EN A SN TCE aT RE I a Re ee RE 
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; TIMING (in cycles): 
: 4 


, 


TBLADDR MACRO label 





MOVLW (label) & Oxff 
MOVWE thiperi 
MOVLW page (label) 
MOVWE tbiptrh 
ENDM 
pRRKRKKKKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KK KKK RK KK KK AK KKK KKK KK K 
; ADDLBL 
; DESCRIPTION: 
: Add A Label (16 bit constant) To A File Register (16 bit) 
; TIMING (in cycles): 
; 4 
ADDLBL MACRO label,£ 
MOVLW (label) & Oxff 
ADDWF £+BO0 
MOVLW page (label) 
ADDWFC f+Bl 
ENDM 
PRK K KKK KKK KK RK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK RK KKK KKK KKK KKK KK KK KK KK 
0100 FftLen .set 256 ; FFT Length 
0008 Power .set 8 ; (2**Power = FftlLen) 
OOEF DigitRevCount .set 239 > (FftLen-1) - (2** ((Power+l1)/2)) 
0001 SCALE BUTTERFLY .set TRUE ; intermediate scaling performed 
0800 EXT RAM START ADDR .set Ox0800 ; External Memory Data Storage Start 
Addr 
PR RK KKKKKKK KKK KK KK KK KKK KK KK RK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KKK KK 
CBLOCK 0 
0000 0004 BO, B1,B2,B3 ; RAM offset constants 
ENDC 
CBLOCK 0x18 
0018 0002 AARG, AARG1 ; 16 bit multiplier A 
OO1A 0002 BARG, BARG1 ; 16 bit multiplicand B 
001C 0004 DPX,DPX1,DPX2,DPX3 ; 32 bit multiplier result = A*B 
ENDC 
CBLOCK 
0020 0004 ACC, ACCl, ACC2, ACC3 ; 32 bit accumulator for computa 
ENDC 
CBLOCK 
0024 0002 countl,countll ; N21 
0026 0002 count2,count22 ; N2 
0028 0002 QuartLen, QuartLenl ; FftLen/4 
ENDC 
CBLOCK 
002A 0002 LY OrEeset;, Tk -Ofiset d 
002C 0002 TF Addr, TF Addrl ; twiddle factor address computa 


A i 
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OO2ZE 0002 Cos,Cosl, 
0030 0002 Sinysind 
ENDC 
CBLOCK 
0032 0002 Varlloop, VarIloopl 
0034 0002 VarJloop, VarJloopl 
0036 0001 VarKloop 
0037 0002 VarL,Varbl 
ENDC 
CBLOCK 
0039 0002 Ki wad 
003B 0002 Yi, Yili 
003D 0002 XL, KEL 
OO3F 0002 pale caileal 
ENDC 
CBLOCK 
0041 0002 Roy hc 
0043 0002 Yt, Ytl 
ENDC 
CBLOCK 
0045 0004 temp, templ1, temp2, temp3 
0049 0002 testCount,testCountl 
004B 0002 PulseCount, PulseCountl 
ENDC 


, 
, 
PRR RK KKKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KK KK 


; . Test Program For FFT Subroutine 
pRRKKR KKK KKK KK KKK KK KKK KK KK RK KKK KK KK KKK KKK KK KK RK KKK KKK KKK KKK KK KKK KK 


° 
, 


ORG 0x0000 
; 
include “square.asm” ; Generate Test Vector Data 
p RRR KK KR KK KKK KK KR RR KK RK KR KK KR KK RR KKK RK KK KR RK KKK KKK KKK KK KK KKK KK KK KK 
; Test Routine For FFT 


; FFT Of Square Wave Pulse 
PRK KKK KKK KR KKK RK RK KK KK KKK KKK KKK KK RK RR KR KK KK KKK KK KKK KKK KKK KKK KKK KK KKK 


0008 PulseWidthFactor .set 8 
testFft 
MOVK16 2*PulseWidthFactor,testCount 


0000 BO10 . MOVLW (2*PulseWidthFactor) & Oxff 
OOO1 0149 MOVWE testCount+B0 
0002 BOOO MOVLW (2*PulsewWidthFactor) /256 
0003 014A MOVWE testCount+Bl 

CLR16 Yi 
0004 293B CLRF Yi+BO 
0005 293C CLRF Yit+Bl 

TBLADDR #xtRamAddr | ; load table pointers with data start addr 
0006 BOO0O | MOVLW  (ExtRamAddr) & Oxff 
0007 010D MOVWF tbilptrl 
0008 BOO8 MOVLW page (ExtRamAddr) 
0009 O1LOE MOVWE thlptrh 

nextPulse 


a IL AS eS ETE I LS ST A SE SE ETE 
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MOVK FftLen/PulseWidthFactor, PulseCount 
OO0A BO2Z0 MOVLW FftLen/PulseWidthFactor 
000B 014B MOVWF PulseCount 

MOVK FftLen/PulseWidthFactor, PulseCountl 
000C BO20 MOVLW FftLen/PulseWidthFactor 
OO00D 014C MOVWE PulseCountil 


° 
, 


MOVKi OX3FFF,Xi 





OOOE BOFF MOVLW (Ox3FFF) & Oxff 
OOOF 0139 MOVWE Xi+B0 
0010 BO3F MOVLW (Ox3FFF) /256 
0011 013A MOVWE Xi+Bl 
LX1 
0012 F034 call write 
0013 174B decfsz PulseCount 
0014 C012 goto LX1 
CLR16 Xi 
0015 2939 CLRF Xi+BO 
0016 293A CLRF Xit+Bl 
LX2 
0017 E034 call write 
0018 174C decfsz PulseCountl 
0019 C017 goto LX2 


° 
, 


DEC16 testCount 


OO1A 2900 CLRF WREG 
001B 0749 DECF testCount+B0 
OO1C 034A SUBWFB testCount+Bl 


TFSZ16 testCount 


OO1D 6049 MOVEP testCount+B0,WREG 

OOLE O84A IORWF testCount+Bl1,W 

OO1F 3300 TSTFSZ WREG 

0020 COOA goto nextPulse 

0021 E039 call R2FFT ; Compute Fourier Transform 

0022 £116 call Unscramble ; Digit Reverse the scrambled data 


; Fourier Transform Completed 
; capture data to PIC-MASTER Trace Buffer 
MOVK16 FftLen*2,temp 


0023 BOOO MOVLW (FftLen*2) & Oxff 
0024 0145 MOVWFE temp+B0 

0025 BOO2 MOVLW (FftLen*2) /256 
0026 0146 MOVWE temp+Bl 


SEES enema eee ee area : 
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. TBLADDR ExtRamAddr 


0027 BOOO MOVLW 

0028 010D MOVWF 

0029 BOO8 MOVLW 

002A 010E MOVWF 
capture 

002B A930 tablird 


DEC16 temp 


002c 2900 CLRF 
002D 0745 DECF 
O02E 0346 SUBWFB 


TFSZ16 temp 


OO02F 6045 MOVFP 
0030 0846 IORWF 
0031 3300 TSTFSZ 
0032 C0O2B goto 
0033 6033 self goto 
write 

0034 A439 tlwt 
0035 AF3A tablwt 
0036 A43B tlwt 
0037 AF3C tablwt 
0038 0002 return 


° 
, 





; load table pointers with data start addr 


(ExtRamAddr) & Oxff 
thlptrL 
page (ExtRamAddr) 
tblptrh 


0,1,Sin ; table latch = mem(tblptr) 


WREG 
temp+B0 
temp+Bl 


temp+B0,WREG 
temp+B1,W 
WREG 


capture 


self 


,1,Xit+Bl ; auto increment for Imag Data 


p RRR RK KKK KKK KKK RR KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KK KKK KK KKK KK KK KK 


RADIX-2 FFT 


; Decimation In Frequency 


; Input Data should be unscrambled 
; Output Data at the end is in scrambled form 
; To obtain the unscrambled form, the digit reverse counter 


; subroutine, 


“Unscramble” should be called (see the example) 


PRR KKK KR KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKK KKK KKK KKK KKK KKK KK 


R2FFT 
MOVK16 FftLen, count2 


0039 BOOO MOVLW 
OO3A 0126 MOVWE 
003B BOO1 MOVLW 
003C 0127 . MOVWF 


MOVK16 FftLen/4,QuartLen 


003D BO40 MOVLW 
OO3E 0128 MOVWE 
Q003F BOOO MOVLW 
0040 0129 MOVWF 
0041 292B elLYE 
MOVK li, TF Offset 

0042 BOO] MOVLW 
0043 012A MOVWF 


; count2 =N 


(FftLen) & Oxff 
count2+B0 
(FftLen) /256 
count2+Bl 


; QuartLen = FftLen/4 


(FftLen/4) & Oxff 
QuartLen+B0 
(FftLen/4) /256 
QuartLen+Bl 


TF Offset+Bl 
7 And TE OLEset. = tf 


i 
TF Offset 


a EN ss stn ETT renee 
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0044 
0045 


0046 
0047 
0048 
0049 


OO4A 
O04B 
O04C 


004D 
O04E 


O04F 
0050 


0051 
0052 


D053 
0054 
0055 
0056 


0057 
0058 
0059 


OO5A 
OO5B 
0O05C 
OO5D 


OO5E 
OO5F 
0060 


MOVK Power, VarKloop 
BOO08 MOVLW 
0136 MOVWF 

Kloop 

MOV16 count2,countl 
6026 MOVFP 
0124 MOVWE 
6027/ MOVE'P 
OL25 MOVWFE 

RRC16 count2 
1A27 RLCF 
1927 RRCF 
1926 RRCF 

CLR16 VarJloop 
2934 CLRF 
2935 CLRF 

CLR16 TF Addr 
292C CLRF 
292D CLRF 


Jloop 


, 


Power 
VarKloop 


count2+B0,WREG 
count1+B0 
count2+Bil,WREG 
CoOuntiseR 


count2+B1,W 
count2+Bl 
count2+B0 


VarJloop+B0 
VarJloop+Bl 


TF_Addr+B0 
TF Addr+Bl 


; count2 = 


Implementing FFT 


7 Kileop 
for K = 1 to Power-1 
; countl = count2 


get byte of count2 into w 
move to countl (BO) 
get byte of count2 into w 
move to countl1 (Bl) 


count2/2 


move sign into carry bit 


; 2PAGGr, = 0 


; Read Twiddle factors from Sine/Cosine Table from Prog Mem 


. 
, 


MOVFP16 TF Addr,tblptrl 


6D2C 
6E2D 


ADDLBL 


BO094 
OFOD 
BO002 
110E 


A830 
A030 
A231 


ADD16 


6028 
OF OD 
6029 
110E 


A82E 
A02E 
A22F 


MOVFP 
MOVFP 


SineTable,tblptrl 


MOVLW 
ADDWF 
MOVLW 
ADDWFC 


tablrd 

tira 

tlrd 
QuartLen,tblptrl 


MOVFP 
ADDWF 
MOVFP 
ADDWFC 


tablrd 
tird 
tird 


load sine table address to table 


TF_Addr+B0,tblptr1+B0O ; move TF_Addr(BO) to tblptr1 (BO) 
TF Addr+Bl,tblptr1+Bl ; move TF_Addr(Bl) to tblptrl (Bl) 


(SineTable) & Oxff 
tblptr1+Bo 
page (SineTable) 


CholperlsBi 


OO, San 
O,Sin 
1,Sin+Bl 


QuartLen+B0,WREG 
tbiptr1l+B0 
QuartLen+Bl,WREG 
tbLpLri+Bl 


0,:0;Cos 
Q0,Cos 
1,Cos+Bl 


; add table offset 


Read Sine Value 


get lowest byte 


; add lowest byte 


get 2nd byte of 
add: 2nd byte -of 


from lookup table 


of QuartLen into w 
of tblptrl, save in 
QuartLen into w 
tblptril, save in 


Read Cosine Value from table 
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0061 
0062 
0063 
0064 


0065 
0066 
0067 
0068 
0069 


OO6OA 
006B 
006C 
006D 
006K 


OOGF 
OO70 
O07] 
0072 


0073 
0074 


0075 
0076 
0077 
0078 


0079 
OO7TA 
007B 
007C 
007D 
OO07E 


OO7F 
0080 


. 
, 


ADD16 TF Offset, TF Addr 
602A MOVFP 
OF2C ADDWF 
602B MOVFP 
LL2D ADDWFC 


° 
, 


RLC16AB VarJloop, Variloop 


8804 BCF 
1A34 RLCF 
0132 MOVWF 
1A35 RLCF 
0133 MOVWE 
ITloop 
RLC16AB count2,VarL 
8804 BCF 
1A26 RLCF 
0137 MOVWF 
1A27 RLCF 
0138 MOVWE 
ADDI 6 VariIloop, VarL 
C037 MOVFP 
Qe 37 ADDWF 
6033 MOVFP 
ELS ADDWEFC 


° 
f 


; Get Real & Imag Data from external RAMs 


TF_Offset+B0,WREG 
TF Addr+B0 
TF Offset+Bl,WREG 
TF_Addr+B1 


_Sarry 


' VarJloop+BO0,W 


VarIloop+B0O 
VarJloop+Bl1,W 
VarIloop+Bl 


Carry 
count2+B0,W 
VarL+B0 
count2+Bl1,W 
VarL+Bl 


VarIloop+B0,WREG 
VarL+B0 . 
VarIloop+B1, WREG 
VarL+Bl 


e 
td 


e 
7 


. 
, 


. 
vy 


° 
s 


° 
a’ 


. 
4 


, 


Tr AGgdr-=-TE Addr. + TE OLT Ser 
get lowest byte 
add lowest byte 
get 2nd byte of 
add 2nd byte of 


of TF Offset into w 
of TF Addr, save in 
TF Offset into w 
TF Addr, save in 


; I = J*2 since Real followed by Imag 
VarL = count2*2 
; VarL = (I+count2) *2 


get lowest byte of VarIloop into w 
add lowest byte of VarL, save in 

get 2nd byte of VarIloop into w 

add 2nd byte of VarL, save in VarL(B1) 


(Program Memory) 


; load table pointers with data start addr 


MOVFP16 VarL,tblptrl 


6D37 MOVFP 
6E38— MOVFP 
ADDLBL ExtRamAddr,tblptrl 
BOOO MOVLW 
OFOD ADDWF 
B008 MOVLW 
110E ADDWFC 
A93D tablrd 
A03D tlird 
A23E tlrd. 
A83F tablrd 
A03F tird 
A240 tlird 


MOVFP16 VarIloop,tbliptrl 


6D32 
6E33 


MOVFP 
MOVEP 


VarL+B0,tblptr1+BO ; move VarL (BO) 
VarL+Bl,tblptr1+Bl 


(ExtRamAddr) 
tblptr1+Bo 
page 
tbiptri+Bl 


O71, 41 
0,X1 
1,X1+B1 
07.05 a: 
0,Y1 
Ly YIEBL 


VarlIloop+B0,tblptr1+BO ; move VarIloop (BO) 
VarlIloop+Bl1,tblptr1+Bl ; 


° 
, 


& Oxftft 


(ExtRamAddr) 


. 
, 


. 
, 


e 
, 


; read data(L) 


to tblptrl1 (BO) 


move VarL(Bl) to tblptrl1(B1) 


; add data addr offset 


auto increment for Imag Data 


real data XL 


imag data YL 
7; read data(TI) 


to tblptril (BO) 


move VarlIloop(Bl1) to tblptrl (BL) 


nS SE 
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0081 
0082 
0083 
0084 


0085 
0086 
0087 
0088 
0089 
008A 


008B 
008C 
008D 
OO8E 
O08F 
0090 


0091 
0092 
0093 
0094 


0095 
0096 
0097 
0098 
GOS2 
OO9A 


009B 
009C 
009D 
0098 


OO09F 
OOA0 
OOA1 


OOA2 


ADDLBL ExtRamAddr,tblptrl 


BO0O0O0 
OF OD 
B008 
110E 


A939 
A039 
A23A 
A83B 
A03B 
A23C 


SUB16ACC 


603D 
0439 
0141 
603E 
023A 
0142 


ADD16 


603D 
OF 39 
603E 
113A 


SUB16ACC 


603F 
043B 
0143 
6040 
G23¢ 
0144 


ADD16 


603F 
OF3B 
6040 
LL3C 


1A3A 
193A 
L939 


1A3C 


RRC16 


RRC16 


. 
wf 


° 
, 


MOVLW (ExtRamAddr) & Oxff 
ADDWF tblptr1+Bo 
MOVLW page (ExtRamAddr) 
ADDWFC tblptr1+Bl 
tablrd 0,;1,Xi ; 
tlrd 0, Xi 
tird 1,X1+Bl 
tablrd .0;0,¥a 
tlird O77 Ya 
tilrd 1,Y1i+B1 : 
Real & Imag Data is fetched 
Compute Butterfly 
Rlg why we ; 
MOVFP X1+B0O,WREG , 
SUBWE Xi+BO,W 7 
MOVWE Xt+BO 
MOVFP X1+B1,WREG ; 
SUBWFB Xi+B1,W ; 
MOVWE Xt+Bl 
Sp Me 
MOVFP X1+B0,WREG : 
ADDWF Xi+BO ; 
MOVFP X1+B1,WREG 7 
ADDWFC Xi+Bl , 
Pe Ve ; Yt = Yi - YL 
MOVFP Y1+B0,WREG ; 
SUBWF Yi+BO,W , 
MOVWE Yt+BO 
MOVFP Y1+B1,WREG ; 
SUBWFB Yi+B1,W ; 
MOVWE Yt+Bl 
Y1,Yi ; Yi = Yi + Yl 
MOVFP Y1+B0O,WREG ; 
ADDWEF Yit+BO ; 
MOVFP Y1+B1,WREG ; 
ADDWFC Yi+Bl ; 


Xi 


ed 


if SCALE BUTTERFLY 


RLCF Xi+B1,W 
RRCF Xi+B1 
RRCF Xi+B0 
RLCF Yi+B1,W 


. 
, 


sub 2nd byte of Yi, 


add data addr offset 


auto increment for Imag Data 


real data XI 


imag data YI 


Xt = Xi - Xl 
get lowest byte 
sub lowest byte 


get 2nd byte of 
sub 2nd byte of 


Xi = Xi + Xl 


get 
add 
get 
add 


lowest byte 
lowest byte 
2nd byte of 
2nd byte of 


get 
sub 


lowest byte 
lowest byte 


get 2nd byte of 


get lowest byte 
add lowest byte 
get 2nd byte of 
add 2nd byte of 


of Xl into w 
of Xi, save in Xi (BO) 


Xl into w 


Xi, save in Xi(Bl) 

of Xl into w 

of Xi, save in Xi (BO) 
Xl into w 

Xi, save in Xi (Bl) 


of Yl into w 
of Yi, save in Yi(BO) 


Yl into w 


save in Yi(Bl1) 


of Yl into w 

of Yi, save in Yi(BO) 
Yl into w 

Yi, save in Yi(B1) 


move Sign into carry bit 


move sign into carry bit 


CN Tt a a Eenmnnmannesmmessenennese taal 
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00A3 
OOA4 


OOA5 
OO0A6 
OOA7 


00A8 
OOA9 
OOAA 


OOAB 
OOAC 


OOAD 
OOAE 


OOAH 


OOB4 
OOB5 


OOB6 
00B7 


00B8 


00B9 
OOBA 
0OBB 
OOBC 
OOBD 
OOBE 
OOBF 
00CO 


193C€ 
193B 


RRC16 Xt 


1A42 
1942 
1941 


RRC16 CE 


1A44 
1944 
1943 


MOVFP16 Cos,AARG 


782E 
492EF 


MOVFP16 Yt,BARG 


7A43 
7B44 


182 
MOVPF32 DPX,ACC 


oC20 
oD 2 
5E22 
SR23 


MOVFP16 Sin, AARG 


7830 
T9S4 


MOVFP16 Xt, BARG 


TA41 
7B42 


E182 


ADD32 ACC,DPX 
6020 
OFIC 
6021 
LL 
6022 
111E 
6023 
ELE 


RRCF 
RRCF 


RLCF 
RRCF 
RRCF 


RLCF 
RRCF 
RRCF 


endif 


MOVFP 
MOVFP 


MOVFP 
MOVFP 


Call 


MOVPF 
MOVPE 
MOVPF 
MOVPF 


MOVF'P 
MOVFP 


MOVE'P 
MOVEP 


Call 


MOVFP 
ADDWF 
MOVFP 
ADDWFC 
MOVEP 
ADDWEC 
MOVFP 
ADDWFC 


Yi+Bl. 
Yi+B0 


Xt+B1,W 
Xt+Bl 
Xt+BO 


Yt+B1,W 
Yt+B1 
Yt+BO 


Cos+B0, AARG+BO 
Cos+B1,AARG+B1 


Yt+B0, BARG+BO0 
Yt+Bl,BARG+B1 


Db1lMult ; COS*Yt 


DPX+B0,ACC+BO0 
DPX+B1;,;ACCTB1 
DPX+B2, ACC+B2 
DPX+B3,ACC+B3 


Sin+B0O, AARG+BO0 
Sin+B1,AARG+B1 


Xt+B0, BARG+B0 
Xt+Bl,BARG+B1 


Db1lMult ; 


ACC+B0,WREG 
DPX+BO 
ACC+B1,WREG 
DPX+B1 
ACC+B2,WREG 
DPX+B2 
ACC+B3,WREG 
DPX+B3 


, move 


_, move 


; Move sign into carry bit 


# move sign into carry bit 


, Move 
, move 


, Move 


; move Yt (Bl) 


DPX (BO) 
DPX (B1) 
DPX (B2) 
DPX (B3) 


7, move 
, move 
, move 


Sin (BO) 
Sin(B1) 


, move 
, Move 


Xt (BO) 


; move Xt (Bl) 


7 get 
; add 
7 get 
; add 
7 get 
; add 
7; get 
; add 


2nd byte 
2nd byte 
3rd byte 
3rd byte 
4th byte 
4th byte 


to 
to 
to 
to 


to 
to 


SIN*Xt, Scale if necessary 


lowest byte 
lowest byte 


of 
of 
of 
of 
of 
of 


Cos (BO) to AARG(BO) 
Cos(Bl) to AARG(B1) 


Yt (BO) to BARG (BO) 
to BARG(B1) 


ACC (BO) 
ACC (B1) 
ACC (B2) 
ACC (B3) 


AARG (BO) 
AARG (B1) 


to BARG (BO) 
to BARG (B1) 


of ACC into w 

of DPX, save in DPX(BO) 
ACC into w 

DPX, save in DPX(B1) 
ACC into w 

DPX, save in DPX(B2) 
ACC into w 

DPX, save in DPX(B3) 


atc tt si 
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00C1 
00C2 


00C3 
00C4 


OOCS 


00C6 
00C7 
00C8 
00C9 


OOCA 
O0OCB 


0O0CC 
O0OCD 


OOCE 


OOCE 
OO0DO 
OOD1 
00D2 
00D3 
00D4 
00D5 
00D6 


0OD7 
00D8 


OOD9 
OODA 
OODB 


OODC 
OODD 


MOVPF16 DPX+B2,Y1 


JES 
SF40 


° 
y 


MOVFP16 Yt,BARG 


7A43 
7B44 


E182 
MOVPF32 DPX,ACC 


5C20 
5D21 
5E22 
5F23 


MOVFP16 Cos, AARG 


7182E 
D228. 


MOVFP16 Xt,BARG 


TA41 
7B42 


E182 


SUB32 ACC, DPX 
6020 
O51¢ 
6021 
031D 
6022 
O31E 
6023 
031F 


MOVPF16 DPX+B2,X1 


SE3D 
SF3E 


DEC16 tblptrl 
2900 
070D 
030E 


A439 
AF3A 


MOVPE 
MOVPF 


MOVE'P 
MOVFP 


Call 


MOVPF 
MOVPF 
MOVPF 
MOVPF 


MOVEP 
MOVFP 


MOVFP 
MOVE'P 


Call 


MOVFP 
SUBWF 
MOVFP 
SUBWFB 
MOVFP 
SUBWE'B 
MOVFP 
SUBWFB 


MOVPF 
MOVPF 


results 


CLRF 
DECF 
SUBWFE'B 


tlwt 
tablwt 


DPX+B2+B0, Y1+BO0 
DPX+B2+B1,Y1+B1 


Yt+BO, BARG+BO 
Yt+Bl, BARG+B1 


DoiMalt. 7% SIN? ¥t 


DPX+B0,ACC+BO0 
DPX+B1,ACC+B1 
DPX+B2,ACC+B2 
DPX+B3, ACC+B3 


Cos+B0, AARG+BO 
Cos+Bl,AARG+B1 


Xt+B0O, BARG+BO 
Xt+Bl,BARG+B1 


Db1lMult 


ACC+B0,WREG 
DPX+B0O 
ACC+B1,WREG 
DPX+Bl 
ACC+B2,WREG 
DPX+B2 
ACC+B3,WREG 
DPX+B3 


DPX+B2+B0, X1+B0 
DPRTBZ+BL, XLRI 


of butterfly 


WREG 
tblptr1+Bo 
tbhiptri+Bi 


0,X1L 
pg AIA 


; Yl = 


, move 
, move 


; AARG 


, move 
, move 


, move 
, move 
, move 
, move 


, move 
, move 


, move 
, move 


; COS* 


; DPX 


7 get 
; Sub 
7 get 


; sub 


7 get 
+ -sub 
, get 
; sub 


7; XL = COS*Xt - SIN*Yt, 


, move 


, move 


; tabl 


COS*Yt + SIN*Xt, Scale if neces 


DPX+B2 (BO) 
DPX+B2 (B1) 


to Y1(BO) 
to Y1AB1) 


= SIN, BARG = Yt 

Yt (BO) to BARG (BO) 
Yt (B1) to BARG(B1) 
DPX(BO) to ACC (BO) 
DPX(B1) to ACC (B1) 
DPX(B2) to ACC (B2) 
DPX (B3) to ACC (B3) 


Cos(BO) to AARG(BO) 
Cos(B1l) to AARG(B1) 


Xt (BO) to BARG (BO) 
Xt (B1) to BARG (1) 
Xt, Scale if necossary 


= COS*XE- = SIN*Yt 


lowest byte of ACC into w 

lowest byte of DPX, save in DPX(BO) 
2nd byte of ACC into w 

2nd byte of DPX, save in DPX(B1) 
3rd byte of ACC into w 

3rd byte of DPX, save in DPX(B2) 
4th byte of ACC into w 

Ath byte of DPX, save in DPX(B3) 


Scale if neces 


DPX+B2 (BO) to X1(BO) 
DPX+B2(B1) to X1(B1) 


€ pointer already loaded with I 


; auto increment for Imag Data 


ct tenn tS A 
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OODE A43B tlwt 0,Yi 
OODF AE3C Eabiwt «kj, O,; Yas ; Xi & Yi stored 
MOVFP16 VarL,tblptrl . ; read data(L) 

OOEO 6D37 MOVFP VarL+B0O,tblptri+BO ; move VarL(BO) to tblptri (BO) 
OOE1 6E38 MOVFP VarL+Bl1,tblptr1+Bl ; move VarL(B1l) to tbliptrl1(B1l) 
ADDLBL ExtRamAddr,tblptrl ; add data addr offset 

OOE2 BOOO MOVLW (ExtRamAddr) & Oxff 

O0OE3 OFOD ADDWF tblptr1+B0 

OOE4 BOO8 MOVLW page (ExtRamAddr) 

QOE5 110E ADDWFC tbiptrl1+Bl 

OOE6 A43D tlwt 0,X1 

O0OE7 AF3E tablwt 1,1,X1+B1 ; auto increment for Imag Data 
OOE8 A43F tlwt O5:E 

OOE9S AE40 tablwt 1,0,Y1+B1 ; X(L) & Y(L) stored 


; Increment for next Iloop 


° 
, 


RLC16AB .countl1,temp ; temp = countl1*2 
OOEA 8804 BCF JCaEry 
OOEB 1A24 RLCF count1+B0,W 
OOEC 0145 MOVWF temp+BO 
OOED 1A25 RLCF counti+Bl1,W 
QOOBE 0146 MOVWF temptBl 
ADD16 temp, VarIloop ; I= 1 + temp 
OOP 6045 MOVFP temp+B0,WREG ; get lowest byte of temp into w 
OOO OF32 ADDWF VarIloop+BO ; add lowest byte of VarIloop, save in 


Var l Loop (BO) 
OOF1 6046 MOVFP temp+B1,WREG ; get 2nd byte of temp into w 


OOF2 1133 ADDWFC VariIloop+Bl ; add 2nd byte of VarIloop, save in 
VarlIloop (Bl) 


MOVK16 (FftLen*2),temp 


00F3 BOO0O0 MOVLW ((FftLen*2)) & Oxff 
OOF4 0145 MOVWE temp+B0 

OOF5 BOO2 MOVLW ((F£tLen*2) ) /256 
OOF6 0146 MOVWF temp+Bl 


SUB16 Varlloop, temp temp = 2*FftLen - I 


“eo 


OOF7 6032 MOVFP VarIloop+B0,WREG ; get lowest byte of VarIloop into w 
OOF8 0545 SUBWF temp+B0 ; sub lowest byte of temp, save in 

temp (BO) 

OOF9 6033 MOVFP VarIloop+B1,WREG ; get 2nd byte of VarIloop into w 

OOFA 0346 SUBWFB temp+Bl ; sub 2nd byte of temp, save in temp(B1) 


DEC16 temp 


OOFB 2900 CLRF  WREG 
OOFC 0745 DECF temp+BO0 
OOFD 0346 SUBWFB temp+B1 


ea 
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OOFE 9746 btfss temp+Bl1,MSB 
OOFF CO6A goto Tloop ; while I < 2*FftLen 
; I Loop end 


; increment for next J Loop 


INC16 VarJloop ; J= 7+ 1 
0100 2900 CLRF WREG 
O101 1534 LNCE VarJloopt+B0 
OLO2-11355 ADDWFC VarJloop+Bl 


MOV16 count2, temp 


0103 6026 MOVEP count2+B0,WREG ; get byte of count2 into w 
0104 0145 MOVWF temp+BO 7; move to temp (BO) 
0105. 6027 MOVE'P count2+Bl1,WREG ; get byte of count2 into w 
0106 0146 MOVWE temp+Bl 7; move to temp (B1) 
SUB16 VarJloop, temp ; temp = count2 - J 
0107 6034 MOVFP VarJloop+B0,WREG ; get lowest byte of VarJloop into w 
0108 0545 SUBWF temp+BO0 ; sub lowest byte of temp, save in 
temp (BO) 
OT09- 6035 MOVFP VarJloop+B1l,WREG ; get 2nd byte of VarJloop into w 
O10A 0346 SUBWFB temp+B1l1 ; sub 2nd byte of temp, save in temp (81) 





DEC16 temp 


010B 2900 CLRF WREG 

O10C 0745 DECF temp+BO 

010D 0346 SUBWFB temp+Bl 

O10E 9746 btfss temp+Bl,MSB 

O10F C051 goto J LOOp- ; while J < count2 
; J Loop end 


; increment for next K Loop 


. 
Ld 


RLC16 TE Offset TE OETSSG SoZ. * Tr .Ofiest 
0110 8804 BoE _carry 
Q111 1B2A RLCF TE Offset +Bo 
0112 1B2B RLCF TF Offset+Bl 
OLS 2736 decfsz VarKloop 
0114 C046 goto Kloop ; while K < Power 
0115 0002 return ; FFT complete 


; K Loop End 
; FFT Computation Over with data scrambled 
; Descramble the data using “Unscramble” Routine 


pK KI KK HK I I IK I I KK KK RK KK OK KK KKK KK KK KKK KK KK 


; Unscramble Data Order Sequence 


; A digit reverse counter 
IK IK I RIK IA IK RIK KK I A IK IK OK IK RK KK KK KK KK KK KK KKK 





___ 
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include 


CLR16 


0116 
O11’) 


2934 
2939 


OLLS-2933 


MOVK 


0119 
O11A 


BOO1 
0132 


MOVK16 


B080 
0136 
B000 
O137 


‘011B 
011C 
011D 
O11 


Oller C127 


SUB16 


0}20 6036 
0121 0534 
VarJloop (BO) 


0122 6037 
0123 0335 
VarJloop (B1) 


RRC16 
0124 


O125 
0126 


1A37 
1937 
1936 


MOV16 


0127 
0128 
O1L29 
012A 


6034 
0145 
6035 
0146 


SUB16 
012B 6036 


OT2C°.0545 
temp (B0) 


“reverse.asm” 


Implementing FFT 


PRR KKK KKK KKK KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK 


A digit reverse counter 


Unscramble Data Order Sequence Of Radix-2 FFT 


Length 


(must be a power of 2) 


is limited only by 


the amount of External RAM available and must be 
a number less than 2**15 


PRA KKK KRKKK KKK KKK KKK KK KK KKK KKK KK RE KK KKK KKK KKK KK KKK KEK KKK KK KK KKK KKK KKK 


Unscramble 


VarJloop 


1,VarIloop 


nextlI 


CLRF 
CLRF 


clrf 
ee td, 


MOVLW 
MOVWF 


FftLen/2,VarKloop 


KlessJ 


MOVLW 
MOVWF 
MOVLW 
MOVWF 


goto 


VarKloop, VarJloop 


VarKloop 


testK 


VarJloop, temp 


VarKloop, temp 


MOVE'P 
SUBWF 


MOVFP 
SUBWFB 


RLCF 
RRCF 
RRCF 


MOVFP 
MOVWF 
MOVFP 
MOVWF 


MOVF'P 
SUBWE 


VarJloop+B0 
VarJloop+Bl 


VarIloop+Bl 


a3 
Varlloop 


(FftLen/2) & Oxff 
VarKloop+B0 
(F£tLen/2) /256 


VarKloop+Bl 


testkK 


VarKloop+B0,WREG 
VarJloop+B0 


VarKloop+B1,WREG 
VarJloop+Bl 


VarKloop+B1,W 
VarKloop+Bl 
VarKloop+B0 


VarJloop+B0,WREG 
temp+BO0 
VarJloop+Bl1,WREG 
temp+B1 


VarKloop+B0O, WREG 
temp+BO0 


° 
, 


a, 


° 
, 


° 
, 


. 
, 


J=J-K 


get lowest byte 
sub lowest byte 


of VarKloop into w 
of VarJloop, save in 


get 2nd byte of 
sub 2nd byte of 


VarKloop into w 
VarJloop, save in 


K = K/2 


move sign into carry bit 


get byte of VarJloop into w 
move to temp (BO) 
get byte of VarJloop into w 
move to temp (B1) 


temp = J - K 


get lowest byte of VarKloop into w 
sub lowest byte of temp, save in 


errr SS st 
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012D 6037 MOVFP VarKloop+B1,WREG ; get 2nd byte of VarKloop into w 
O12E 0346 SUBWFB temp+Bl ; sub 2nd byte of temp, save in temp (B1) 
O12F 9746 btiss temp+Bl,MSB 
0130" C220 goto KlessJ ; while K < J 

ADD16 VarKloop, VarJloop ; J =I+ kK 
0131 6036 MOVFP VarKloop+B0,WREG 7; get lowest byte of VarKloop into w 
0132 OF34 ADDWF VarJloop+B0 ; add lowest byte of VarJloop, save in 


VarJloop (BO) 


01-33. 6037 MOVE'P VarKloop+Bl,WREG ; get 2nd byte of VarKloop into w 
0134 1135 ADDWFC VarJloop+Bl ; add 2nd byte of VarJloop, save in 
VarJloop (B1) 


, if (1 < j) then swap data(i) & data(j) 


MOV16 VarJloop, temp 





0135 6034 MOVFP VarJloop+B0O, WREG ; get byte of VarJloop into w 
0136 0145 MOVWF temp+BO0 ; move to temp (BO) 
0137 6035 MOVFP VarJloop+Bl,WREG ; get byte of VarJloop into w 
0138 0146 MOVWE temp+Bl ; move to temp (B1) 
SUB16 Varlloop, temp pO CEM p< ade 8 
0139 6032 MOVFP Varlloop+B0,WREG ; get lowest byte of VarIloop into w 
013A 0545 SUBWEF temp+BO ; sub lowest byte of temp, save in 
temp (BO) 
013B 6033 MOVE'P Varilloop+B1,WREG 7 get 2nd byte of VarJloop into w 
013C 0346 SUBWFB temp+Bl ; sub 2nd byte of temp, suave in tome (ii) 


DEC16 temp 


OL3D-.2900 CLRF WREG 

O13E 0745 DECF temp+BO 
O13F 0346 SUBWFB temp+Bl 
0140 9F46 DLLSe temp+Bl1,MSB 
0141 C174 goto incr 


7 Swap data 
; read data(i) 


RLC16AB VarlIloop,tblptrl ; add twice the addr, since Real Data 
0142 8804 BCF _carry 
0143 1A32 RLCF VarIloop+BO0,W 
0144 010D MOVWE tblptr1+Bo 
0145 1A33 RLCF Variloop+Bl1,W 
0146 O10E MOVWE thiptri+e1 
ADDLBL ExtRamAddr,tblptrl ; is followed by Imag Data 
0147 BOOO MOVLW (ExtRamAddr) & Oxff 
0148 OFOD ADDWF tblptr1+Bo 
0149 BOO8 MOVLW page (ExtRamAddr) 
O14A 110E ADDWFC tblptr1l+Bl 


a eT SN NS i ee NS 
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O14B 
O14C 
014D 
O14E 
0O14F 
0150 


OLS 
0152 
0153 
0154 
0155 


0156 
0137 
0158 
O1LS2 


O15A 
OL5B 
OLSC 
OL5D 
O15E 
O15F 


0160 
0161 
0162 


0163 
0164 
0165 
0166 


0167 
0168 
0169 
O16A 
016B 


016C 
O16D 
O16E 
O16F 


A939 tablrd 
A039 tid 
A23A tere 
A83B tablrd 
A0Q3B tird 
A23C tird 


; read data(j) 


RLC16AB VarJloop,tblptrl 


8804 BCF 
1A34 RLCF 
010D MOVWFE 
1A35 RLCF 
010E MOVWF 


ADDLBL ExtRamAddr,tblptrl 


O0,1,Xi ; auto increment for Imag Data 
0,Xi 

1,Xit+Bl ; real data XI 

0,0, Yi 

O,.¥2 

1,Yi+Bl ; imag data YI 


; add twice the addr, since Real Data 
_carry 

VarJloop+B0, W 

tblptr1+BO 

VarJloop+B1,W 

tbiptri+e. 


; is followed by Imag Data 


BOOO MOVLW (ExtRamAddr) & Oxff 
OFOD ADDWF tblptr1+BO 
BOO08 MOVLW page (ExtRamAddr) 
110E ADDWFC tblptr1l+Bl 
A93D tablird 0,1,Xl ; auto increment for Imag Data 
A03D tird 07a 
A23E tlird '1,X14+Bl ; real data XL 
A83F tablrd 0,0,Y1 
A03F tird OF XE 
A240 tird 1,Y1+Bl ; imag data YL 
; Interchange data(I) & data(J) 
; J addr already loaded into table pointers, bu autoincremented 
DEC16 tblptrl 
2900 CLRF WREG 
070D DECF thIpEeri+Bo 
0305 SUBWFB tbiptrl+Bl 
A439 tlwt 0,Xi 
AF3A tablwt 1,1,Xi+Bl1 7; auto increment for Imag Data 
A43B tlwt O5-¥a: 
AE3C tablwt 1,0,Yi+Bl ; X(I) & Y(I) stored 
RLC16AB VarlIloop,tblptrl ; add twice the addr, since Real Data 
8804 BCF Carry 
1A32 RLCF VarIloop+B0,W 
010D MOVWE tbliptri+Bo 
1A33 RLCF Variloop+Bl,W 
010E MOVWE tblptr1+Bl 


ADDLBL ExtRamAddr,tbliptrl 


BOOO MOV LW 
OF OD ADDWE 
BOO08 MOVLW 
110E ADDWEC 


; is followed by Imag Data 


(ExtRamAddr) & Oxff 
tblptr1+B0o 
page (Ext RamAddr) 
tblptr1+Bl 


At errr St PLT rt 
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0170 A43D tlwt 0,X1 

0171 AF3E Lablwt- dys) xi+Bi. ; auto increment for Imag Data 
0172 A43F tlwt Og Yt 

0173 AE40 tablwt 1,0,Y1+B1 ; X(L) & Y(L) stored 


; increment I 
incl 
INC16 Varlloop 


0174 2900 CLRF WREG 
O)7 5: PS32 INCF VarIloop+B0 
OILS. £133 ADDWFC VarIloop+Bl 


MOVK16 DigitRevCount, temp 





0177 BORF MOVLW (DigitRevCount) & Oxff 
0178 0145 MOVWE temp+B0 
0179 BOOO MOVLW (DigitRevCount) /256 
O17A 0146 MOVWF temp+Bl 

SUB16 VarlIloop, temp ; temp = DigitRevCount - I 
017B 6032 MOVFP VarIloop+B0O,WREG ; get lowest byte of VarIloop into w 
017C 0545 SUBWE temp+B0 ; sub lowest byte of temp, save in 
temp (BO) 
017D 6033 MOVFP VarIloop+B1,WREG ; get 2nd byte of VarIloop into w 
O17E 0346 SUBWFB temp+Bl ; sub 2nd byte of temp, save in temp (Bl) 
O17F 9746 btfss temp+B1,MSB 
0180 C11B goto nextI ; while i < DigitRevCount 
0181 0002 return 


; 

; End digit reverse counter 

; 

PRAKKKKKKK KK KKKK KKK KKK KKK KKK KKK KK KKK KK KK KK KK KKK KKK KKK KKK KKKK KKK KKK KKK KKK KK 


pRKKKKKKKKKKKKKKK KKK KKK KK RK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KK 


: Include Double Precision Multiplication Routine 
pRKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KK KKK 
0001 SIGNED equ TRUE 


include “17c42mpy.mac” 


, 
PRK KR KKKKKKRKRKK KKK KKK KK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KK KKK KKK KK 


7 Sine-Cosine Tables 
PRR KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK 
; 

include ‘“fft256.tbl1” 


0 256 Point FFT Sine Table 
; coefficient table (size of table is 3n/4). 


° 
f 


SineTable 
0294 0000 data 0 
0295 0324 data 804 
0296 0648 data 1608 
0297 O96A data 2410 
0298 OC8C data 3242 
0299 OFAB data 4011 


NN ET ce UTE EI eeTanenmannereneeneneneesemeenanerernen amos {eae emnemmereerertared 
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029A 12C8 data 4808 
029B 15E2 data 5602 
O29C I8E9 data 6393 
029D 1C0OB data 7179 
O29E 1F1A data 71962 
O29F 2223 data 8739 
O2A0 2528 data 9512 
O2A1 2826 data 10278 
O2A2 2B1F data 11039 
0O2A3 2E11 data 11793 
O2A4 30FB data 12539 
O2A5 33DF data 13279 
O2A6 36BA data 14010 
O2A7 398C data 14732 
O2A8 3C56 data 15446 
O2A9 3F17 data 16151 
O2AA 41CE data 16846 
O2AB 447A data LIS 30. 
O2ZAC 471C data 18204 
O2AD 49B4 data 18868 
O2AE 4C3F data 19519 
O2AF 4EBF data 20159 
02B0 5133 data 20787 
O2Bl 539B data 21403 
O2B2 55F5 data 22005 
O02B3 5842 data 22594 
O2B4 5A82 data ie Ia AG) 
O2B5 5CB3 data a Hl 
0286 5ED7 data 24279 
O?R7 60EB data 24811 
O7R8 62F1 data 20529 
07139 64E8 data 25832 
OZBA 66CF data 26319 
021313 68A6 data 26790 
O2BC 6A6D data 27245 
O2BD 6C23 data 27683 
O2BE 6DC9 data 28105 
O2BF 6F5E . data 28510 
O2C0 70E2 data 28898 
QO2C1l 7254 data 29268 
O2C2 73B5 data 29621 
02C3 7504 data 29956 
O2C4 7641 data 20273 
O2C5 776B data 30571 
02C6 7884 data 30852 
O2C7 7989 data Sil Rall 
O2C8 7ATC data 31356 
O2C9 7BS€ data 31580 
O2CA 7029 data 31785 
O2CB 7CE3 data SLovd 
O2CC 7D89 data B213) 
O2CD 7E1D data 32285 
O2CE 7E9C data 32412 
O2CF 7F09 data S20ek 
O2D0 7F61 data 32609 
O2D1 7FA6 data 326/35 
O2D2 7FD8 data 32928 
02D3 7FF5 data 32-757) 
CosTable 

O2D4 7FFF data S276) 
02D5 7FF5 data S257" 
O2D6 7ED8 data 32728 
O2D7 7FA6 data 32678 
O2D8 7F61 data 32609 
O02D9 7F09 data S22 1 
O2DA 7E9C data 32412 
O2DB 7E1D data 32285 


a a ee 
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O2DC 7D89 data Seo d 
02D: TCE data 31971 
O2DE 7C29 data 31785 
O2DF {BSC data 31580 
O2EO 7A7C data 31356 
O2E1 7989 data 31413 
O2E2 7884 data 30852 
O2E3 776B data BUS 7 3. 
O2E4 7641 data 30273 
O2E5 7504 data 29956 
O2E6 73B5 data 29621 
O2E7 7254 data 29268 
O2E8 70E2 data 28898 
O2E9 6F5E data 28510 
O2EA 6DC9 data 28105 
O2EB 6C23 data 27683 
O2ZEC 6A6D data 27245 
O2ED 68A6 data 26790 
O2EE 66CF data 26319 
O2EF 64E8 data 25832 
O2FO 62F1 data 25329 
O2F1 60EB data 24811 
O2F2 S5ED7 data 24279 
O2F3 5CB3 data 23432 
O2F4 5A82 data 23170 
O2F5 5842 data 22594 
O2F6 55F5 data 22005 
O2F7 539B data 21403 
02F8 5133 data 20787 
O2F9 4EBF data 20159 
O2FA 4C3F data 19519 
O2FB 49B4 data 18868 
O2FC 471C data 18204 
O2FD 447A data E7530 
O2FE 41CE data 16846 
O2FF 3F17 data 16151 
0300 3C56 data 15446 
0301 398C data 14732 
0302 36BA data 14010 
0303 33DF data 13279 
0304 30FB data 12539 
0305 2E11 data 11793 
0306 2B1F data 11039 
0307 2826 data 10278 
0308 2528 data 9512 
0309-2223 data 8739 
O30A 1FIA data 7962 
030B 1C0B data 7179 
O30C 18F9 data 6393 
O30D 15E2 data 5602 
O30E 12C8 data 4808 
O30F OFAB data 4011 
0310 OC8C data 3212 
0311 096A data 2410 
0312 0648 data 1608 
0313 0324 data 804 
0314 0000 data 0 
O3L5 CDE data -804 
0316 F9B8 data -1608 
0317 F696 data -2410 
0318 F374 data -3212 
0319 F055 data -4011 
031A ED38 data -4808 
031B EAILE data -5602 
O31C E707 data ~6393 
031D E3F5 data -7179 
O31E EQE6 data -7962 
031F DDDD data -8739 
0320 DAD8 data -9512 


_———— 
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0321 D7DA data =LO2ZT8 
0322 D4El data * ee PO3 9: 
0323 DIEF data ~11793 
0324 CF05 data =-12539 
0325: CC21 data -13279 
0326 C946 data -14010 
0327 C674 data -14732 
0328 C3AA data -15446 
0329 COE9 data -16151 
032A BE32 data -16846 
032B BB86 data ~17530 
032C B8E4 data -18204 
032D B64C data ~18868 
O32E B3Cl1 data -19519 
O32F B1l4l data ~20159 
0330 AECD data -20787 
0331 AC65 data -21403 
0332 AAOB data -22005 
0333 ATBE data -22594 
0334 ASTE data ~23170 
0335 A34D data ~23731 
0336 A129 data -24279 
0337 9F15 data -24811 
0338 9DOF data -25329 
0339 9B18 data =25832 
033A 9931 data -26319 
0338. 975A data -26790 
033C 9593 data ~27245 
033D 93DD data ~27683 
0336 9237 data -28105 
033% 90A2 data -28510 
0340 8FLE data -28898 
O34) 8DAC data -29268 
0342 8C4B data =296021 
0343 B8AFC data -29956 
0344 89BF data -30273 
0345 8895 data =305 72. 
0346 877C data =30852 
0347 8677 data eae ae Ba 
0348 8584 data =31356 
0349 84A4 data -31580 
034A 83D7 data =31785 
034B 831D data =3.19-]4, 
034C 8277 data ~32137 
034D 81E3 data =32285 
O34E 8164 data -32412 
O34F 80F7 data =32521 
0350 809F data -32609 
0351 805A data -32678 
0352 8028 data HS2728 
0353 800B data ES ZT 1 


, 
PRKKRRKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KK KK KK KKK KKK KKK 


We ease whee ee eee eee ee eee eee eas 
; FFT Input/Output Data Stored In External RAM 

; Operate Processor In Extended Microcontroller Mode 

; External Data Starts at Address 0x0800, with 2 bytes of 


; Real Data followed by 2 bytes of Imaginary Data. 
PRRKRKKKKKK RK KKK KKKKKKKKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KKK KK RK K 


ORG EXT RAM START ADDR 
Pe RANRGE 
; END 
Errors : 0 
Warnings : 0 
Cc mae Oe ee 
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INTRODUCTION 


A general purpose resonator routine is implemented 
using PIC17C42. This routine is used to generate mul- 
tiple tones. A tone signal is normally generated using 
extensive table lookup schemes. When a multiple tone 
signal is desired, each tone must have it’s own lookup 
table, thus requiring a large amount of storage space, 
especially when various frequencies are to be gener- 
ated. This application note implements a tone genera- 
tion using recursive techniques. The algorithm for a 
resonator is developed and implemented using 
PIC17C42. 


THEORY 


Generation of asingle tone basically implies generating 
samples of a sine/cosine wave. The Z-Transform of a 
sine wave is given as follows : 


Faniwis, o ae _ 
X(Z) Zz? - 2*z*cos(WT) +1 


The impulse response of the above transform (i.e. for 
X(z) = 1) will generate a sine wave of frequency w 
sampled ata rate of T ( = 1/fs). Thus the above equation 
is translated to: 


-t*eal 
Y(z) = z ‘sin (wT) 
1 - 2*z “cos (WT) +z? 


The above equation can be rewritten in a difference 
equation form as follows: 


y(n) - 2y(n-1)cos(wT) + y(n-2) = x(n-1)sin(wT) 


Rearranging the above equation and setting, x(n) as an 
impulse sequence, the following recursive equations 
are obtained. 


y(n) = 2°K, *y(n-1)-y(n-2) 
y(n-2) = y(n-1) 
y(n-1) = y(n) 

with the following conditions: 
K, = cos(wT) 
K, = initial y(n-1) = sin(wT) 
K, = initial y(n-2) =0 


IMPLEMENTATION 


The above developed algorithm is implemented as a 
subroutine using PIC17C42. All computations are per- 
formed using double precision arithmetic (16/32-bits). 
The recursive tone generation algorithm is implemented 
as a subroutine (labelled as “Resonator”). This subrou- 
tine generates samples of a single tone. To generate 
multiple frequencies, simply call this resonator routine 
for the desired frequencies and sum the outputs. The 
three tone co-efficients are stored in program memory 
and are read into the data memory using TABLRD instruc- 
tions. 


The fully commented code is listed in Appendix A. The 
timing and memory requirements are included in the 
comment sections of the code. Fora listing of the header 
file "17C42.h" and the macro definition file "17C42.mac” 
please refer to Appendices C and D respectively of the 
application note ANDS00540. This code can be easily 
modified and used in various applications like DTMF 
generation, sound generation, etc. The tones generated 
can easily be output to an on chip PWM channel which 
in turn can drive a speaker for producing various sounds. 
If using a PWM channel, it is suggested to set the PWM 
frequency much higher than the sampling frequency 
used (in the example code, for 8 KHz sampling fre- 
quency, use at least 20 KHz PWM frequency). 


As an example, a dual tone is generated and the 
resulting digital wave form is analyzed. The main pro- 
gram calls the function “Resonator” twice for generating 
the two desired tones and the two outputs are summed. 
A sampling frequency of 8 KHz was used to generate a 
dual tone of 800 Hz and 1.10 KHz. The resulting wave 
form is shown in Figure 1. The spectrum of the signal 
shown in Figure 2 shows 2 peaks corresponding to the 
two desired tones (800 Hz & 1.10 KHz). The assembly 
code was tested using PICMASTER™ (Microchip’s 
Universal In-Circuit Emulator System). 


The generated tones were captured into the 
PICMASTER'’s trace buffer and then transferred to 
Microsoft Excel using Dynamic Data Exchange (DDE). 
Once the data is in Excel itis analyzed using Excel's FFT . 
utility. 
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FIGURE 1 - DUAL TONE WAVE FORM CAPTURED BY PICMASTER 


Dual Tone Wave 


Amplitude 


Time (Sample Number) 





FIGURE 2 - FREQUENCY SPECTRUM OF FIG. 1.1 SHOWING THE DUAL TONE FREQUENCIES 


Spectrum Of Dual Tone 


To 
aa 
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128 160 


Frequency (Sample Number*Fs/256) 


PERFORMANCE 


Table1 below provides the performance of the resonator 
(labeled in the source code as “Resonator”) in terms of 
both timing and memory requirements. Since a double 
precision multiplier is used (software implementation), 
the multiplier timing is not always constant. Therefore 
the timings are given for the worst case. Note that 
irrespective of the frequency and the sampling (resolu- 
tion) of the tone, program memory requirements is only 
54 locations which in case of table lookup could be very 
large. 


TABLE 1 


Data Memory 


9 + 9*(# of tones to be generated) 


Program memory] 54 locations 








APPLICATIONS 


Tone generation is required in many application. The 
code provided in this application note may be used as a 
general purpose routine to generate desired tones. It 
can be used in applications involving secure off-site 
control, where commands/data in the format of tones 
are transmitted over a telephone line. The tone genera- 
tion finds applications involving signal modulations as 
well. The routine can be used to generate audible tones 
and output to a speaker connected to an I/O Port ora 
PWM channel. 


Author: Amar Palacherla 
Logic Products Division 
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APPENDIX A: TONE.LST 


MPASM BO.54 PAGE lL 


PRKKKRKKKKKKKKKK KKK KK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KK KKK KK KK KKK KK KKK KKK 


: Dual Tone Generation 


; A generic resonator subroutine is implemented to generate 

; tones. Samples Of A Sin/Cos Wave are generated using 

; recurssive techniques. Table Lookups are thus avoided 

; This is especially useful in generating multiple tones 

; (e.g. DTIMF tone generation, tone signalling, etc), or programmable 
; tone generation which may vary for each application unit. 


PRAKRKKKKKKKKKKKK KKK KKK KKK KKK KKK KKKKKKKKKK KKK KK KKK KKK KKK KKK KK KKK KK KK KK KK KK 


LIST P=17C42, C=80, T=ON, R=DEC, N=0 
include “17c42.h” 


include “17c42.mac” 


PRAKKKKKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KK KKK KK KK KK KK KK 


; TBLADDR 


; DESCRIPTION: 
r Load 16 bit table pointer with specified label 





; TIMING (in cycles): 
; 4 


TBLADDR MACRO label 


MOVLW (label) 
MOVWF tblptrl 
MOVLW page (label) 


MOVWF tblptrh 

ENDM 
DOO II IC IO II IC IC ICI IIIS III IG III ICI III II IK I Ik 
; ADDLBL 
; DESCRIPTION: 


; Add A Label (16 bit constant) To A File Register (1 


; TIMING (in cycles): 
: 4 


ADDLBL MACRO label,f 
MOVLW (label) 
ADDWE £+BO 
MOVLW page (label) 


ADDWFC f+Bl1 


ENDM 
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p RRR KKKKK KKK KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKKK KKK KKK 


CBLOCK 0 
0000 0004 BO, Bl, B2,Bs ; RAM offset constants 
ENDC 
CBLOCK 0x18 
0018 0002 AARG, AARG1 ; 16 bit multiplier A 
001A 0002 BARG, BARG1 ; 16 bit multiplicand B 
001ic 0004 DPX, DPX1,DPX2,DPX3 ; 32 bit multiplier result = A*B 
ENDC 
CBLOCK ; Generic Resonator 
0020 0002 Ki,Kil eK. 
0022 0003 SinCos 2C,SinCos_ 2,SinCosl 2 
*; y(n-2), Init Value = K3 
0025 0002 SinCos_1,SinCosl1 1 ; y(n-1), Init Value = K2 
0027 0002 SinCos,SinCosl ; y(n) 
0029 0000 
ENDC 
CBLOCK 
0029 0002 tonelK1,tonelKl1l ; Tone 1 variables - 
0028 0003 tonel_2C,tonel 2,tonell_2 
002M 0002 tone! 1,tonell. “1 
0030 0002 tonel,tonell 
0032 0000 
0032 0002 tone2K1,tone2K11 ; Tone 2 variables 
0034 0003 tone2_2C,tone2 2,tone21 2 
0037 0002 tone2_1,tone21 1 
0039 0002 tone2,tone21 
003B 0000 
003B 0002 dualTone, dualTonel ; tonel+tone2 
ENDC 
PRR KKK RRR KKK KKK KK KK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKK KKK KKK KK 
OO5A #define ADD OFFSET FALSE 
OO5B _ #define coeff_addr 0x0030 +; prog mem addr of 
OO5C #define DummyAddr Ox0A00 


PRR KR KKK KKK KKK KKK KKKKK KKK KKK KK KKK KKK KKK K KKK KKK KA KK KKK KK KKK KK 


; Test Routine For Sin Wave Generation 

: (a) Call Intialization Subroutine to read desired s 
: freq from prog mem to data mem. 

(b) Call the resonator subroutine to generate sampl 
; sine wave. 

: (c) Perform a Dummy Table Write of The Sine Wave Da 
; PIC-MASTER emulator can capture the data in 


, 
PRR KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK 


RRA Ee a CT a ETO EET aE ES EE NS TO EE AEE A EL TT RI 
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ORG 0x0000 
0000 C040 goto start 


PRKK RR KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKKKK KKK KKK KKK KK KKK KKK 
;Resonator Co-efficients For Desired Tones 
ORG coeff addr 


; Tone 1 Resonator Constants 
;Sample Rate = fs = 8 khz, Tone Freq = f = 0.800 Khz 


0030 678E DATA 26510 ; Kl = COS(wT) = COS (360*£/ 
0031 259E DATA 9630 ; K2 = SIN(wT) = SIN(360*£/ 
0032 0000 DATA 0 ; K3 is init value of y(n-2 


; Tone 2 Resonator Constants 
; Sample Rate = fs = 8 khz, Tone Freq = £f = 1.10 Khz 


B033 5324 DATA 21281 ; Kl = COS(wT) = COS (360*f/ 
0034 1855 DATA 6229 ; K2 = SIN(wT) = SIN(360*f/ 
0035 0000 DATA 0 ; K3 is init value of y(n-2 


PRKRKEKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKK KKK KKK KK 


ORG 0x0040 
start 
0040 E057 call Coeff Read 





; load table pointers with a dummy = addr 


MOVK16 DummyAddr,tblptrl 


0041 BOOO MOVLW (OxOA00) & Oxff 
0042 010D MOVWF tbhlpcrit+so 
0043 BOOA MOVLW ((O0x0A00) >> 8) 
0044 O10E MOVWF tblptri+Bl 
NextSample 
0045 0000 nop 
0046 A43B tlwt 0,dualTone 
capture 
0047 AE3C tablwt 1,0,dualTone+Bl ; for PIC-MASTER tr 
0048 0000 nop 
0049 BO29 movlw tonelKl ; load indirect add 
OO04A 0101 movwf fsr0 ; for Tone 1 
004B EO06C call Resonator ; Compute next samp 
004C BO32 movilw tone2K1l ; load indirect add 
004D 0101 movwft fsr0 - Lor one. 2 
O04E E06C call Resonator ; compute next samp 
; Compute Tonel + Tone2 for dual tone 
ADD16ACC tonel,tone2,dualTone 


eee eee er) 
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; AQualTone = tonel 


OO4F 6030 movfp tonel+B0,wreg 
0050 0E39 addwf tone2+B0,w 
0051.01.38 movwf dualTonet+BO 
0052 6031 movfp tonel+Bl,wreg 
0053 103A addwfc tone2+Bl,w 
0054 013C movwf dualTone+B1l 
0055 C045 goto NextSample 
0056 C056 self goto self 


PRR KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KKK KKK KKK KKK KK KKK KKK 


; Initialization routine 
; Read Tone 1 & Tone 2 Resonator Frequencies from Program M 


; Data Memory 
; Program Memory : 3 + 8*(#of tones to be gene 


; Timing : 4 + 11*(#of tones to be gen 


PRA KKKKKKKK KKK KKK KKK AK KKK KK KKK KKAKK KKK KAKAKK KKK AK KKK KA KKK KK KK 


Coeff Read 


TBLADDR coeff addr 


0057 BO30 MOVLW (0x0030) 

0058 O10D MOVWF tblptrl 

0059 BOOO MOVLW page (0x0030) 

005A 010E MOVWF tblptrh 

OO5B A929 tablrd 0,1,tonelKl1. 

O0O5C A029 tlrd 0,tonelK1l 

O0O5D AB2A tablrd 1,1,tonelK1+Bl ; read Kl 
OO5E AO2E tlrd 0,tonel 1 

OO5F AB2F tablrd 1,1,tonel_1+Bl ; read K2 
0060 AO02C tird 0,;tonel 2 

0061 A22D tlird 1,tonel 2+B1 ; read K3 
0062 292B Cline tonel 2C 

0063 A932 tablrd 0,1,tone2K1 

0064 A032 tlrd 0,tone2K1 

0065 AB33 tablrd 1,1,tone2K1+Bl ; read Kl 
0066 AQ37 tisd O0,tone2 1 

0067 AB38 tablrd 1,1,tone2 1+Bl ; read K2 
0068 A035 jou Bi ae | 0,tone2 2 

0069 A236 tiled 1,tone2 2+Bl ; read K3 
OO6A 2934 clrt tone2 2C 

O006B 0002 return 


PRK KKKKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKK KKK KKK KK KKK KK KKK 


; Resonator Subroutine 
; Before calling this routine, load the indirect register, 
; with the starting RAM address of the desired Tone Variabl 
; ( eg. For Tonel Generation, load FSRO with “TonelK1” addr 
Sn Ne SS SES SE A ENTE 
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; Timing (worst case) 


- 20 + 36 + (worst case multiplier time) 
: = 56 + 179 = 235 cycles 

; = 58.75 uS @ 16Mhz 

; = 47.00 uS @ 20Mhz 

; = 37.60 uS @ 25 Mhz 


; Memory Requirements 
: Program Memory : 54 locations 
; Data Memory : 9 + 9* (#of tones to be ge 


PRAKKKKKKKKEKKKKKK KKK KKK KKKKKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KK KK 


Resonator 


; Transfer tone varialbles to resonator’s variables using i 


; This is necessary for making the “Resonator” a generic 
; subroutine, so that the same code can be called for vario 


; tones. 
; Indirect addressing mode can be used throught the code i 


; subroutine, but is less efficient. 





O06C 8D04 jejend _fsi 

O06D 8404 bsf _f£s0 ; auto increment FSRO 
OO6E 4020 movpf indf0,K1+B0 

OO6F 4021 movpf indf0,K1+B1 

0070 4022 movpf indf0,SinCos 2C 
0071 4023 movpf indf0,SinCos 2+B0 
0072 4024 movpf indf0,SinCos_2+Bl 
0073 4025 movpf indf£0,SinCos_1+B0 
0074 4026 movpf indtO, SinCces, 1+Bi 
0075 4027 movpf indf0, SinCos+B0 
0076 4028 movpf indf0,SinCos+Bl 


; Compute 2*K1*y(n-1) 
MOVFP16 K1,BARG 
0077 7A20 MOVF'P K1+B0, BARG+BO ; move Ki(BO) t 


0078 7B21 MOVFP K1+B1,BARG+B1 - move KRL(BL): = 


MOVFP16 SinCos_1,AARG 


0079 7825 MOVEFP SinCos_1+B0,AARG+B0O; move Si 
OO7A 7926 MOVFP SinCos_1+B1,AARG+Bl; move Si 
007B EOA2 call Db1Mult 
RLC32 DPX ; DPX = 2*K1*y(n-1) 
007C 8804 BCF Carry 
Q07D TBIC RLCF DPX+B0 


aS Sea RNS Se EIA a FN PT ep a ed BC INN lt Ea TR SN FET a RSE ONE oe KB SG a i ES Ee 
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OO7E 
OO7F 
0080 


0081 


0082 
0083 


0084 
0085 


0086 
0087 
0088 
0089 
008A 


008B 


008C 
008D 
OO08E 
O08F 


0090 


0091 


0092 
0093 
0094 


VU8S 


1B1D RLCF DPX+Bl1 
1B1E RLCF DPX+B2 
1B1F RLCF DPX+B3 
; subtract y(n-2) * (2**15) 
2922 GLre SinCos 2C 
RRC24 SinCos 2C 
1A24 RLCF SinCos 2C+B2,W ; move sign 
1924 RRCF SinCos_ 2C+B2 
1923 RRCF SinCos 2C+Bl 
1922 RRCF SinCos_ 2C+B0 
SUB24 SinCos 2C,DPX1 ; DPX = 2*K1l*y(n-1) - y(n- 
6022 MOVFP SinCos 2C+B0,wreg ; get lowes 
051D SUBWF DPX1+B0 ; sub lowest byt 
6023 MOVF'P SinCos 2Ct+Bl,wreg ; get 2nd b 
O31E SUBWFB DPX1+B1 ; sub 2nd byte o 
6024 MOVFP SinCos. 2C+B2,wreg + get 3rd b 
031F SUBWFB DPX1+B2 ; sub 3rd byte o 
RLC24 DPXL ; adjust decimal point 
8804 BCF _carry 
1B1D RLCF DPX1+B0 
1B1E RLCF DPX1+Bl1 
1BIF RLCF DPX1+B2 
; update past samples with newly computed values 
MOVPF16 DPX2,SinCos ; y(n) = 2*K1l*y(n-1) - y(n 
5E27 MOVPF DPX2+B0,SinCos+BO ; move DPX2 
5F28 MOVPF DPX2+B1,SinCos+Bl ; move DPX2 
MOV16 SinCos _1,SinCos_2 ; y(n-2) = y(n-1) 
6025 MOVFP SinCos_1+B0,wreg ; get byte o 
0123 MOVWF SinCos_ 2+B0 ; move to Si 
6026 MOVF'P SinCos_1+Bl,wreg ; get byte o 
0124 MOVWE SinCos 2+Bl ; move to Si 


seeetetuemnmmenmnrannpsneenenenonr aera amma oeeneae nee ae a aa ann rr ony 
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MOVPF16 DPX2,SinCos_ 1 VSL) ea 
0096 5E25 MOVPF DPX2+B0,SinCos_ 1+B0; move DP 
0097 SF26 MOVPF DPX2+B1,SinCos_1+Bl; move DP 


; Generation Of The Next Sample Of The Resonator (sine wave 
; The 16 bit result is stored in location “SinCos” (low Byt 
; “SinCost1” (High Byte) 


; write back all the computed values to respective tone var 


0098 0701 decf fsr0 

0099 8D04 ber eee 

OO9A 8C04 bes _fs0 

009B 6028 movfp SinCos+Bl,indf0 
Q009C 6027 movfp SinCos+BO, indf0 
009D 6026 movfp SinCos_1+Bl,indf0 
OO9E 6025 movfp SinCos_1+B0,indf0 
O09F 6024 movfp SinCos_2C+B2, indf0 
QOA0N 6023 movfp SinCos 2C+Bl1,indf0 
O00A1 0002 return 


, 
PRREKKKKKKKKKK KKK KKK KKK KKK KK KKK KK KKK KK KK KKK KKKKKK KA KKK KKK KKK 


: Include Double Precision Multiplication Routine 
PRR RK KKK KK KKK KKK KKK RR KKK KKK KKK KK KKKKKKKKK KKK KKKKKK KKK KKK KKK 





0001 SIGNED equ TRUE 


include “17c42mpy.mac” 
; NOLIST 


pRAK KR KEKKKKKKKKKKKKK KK KKK KKK KK KKKK KKK KKK KKK KKK KKK KKK KK KK KKK 


; 
PRK KKK KK KK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KK KK 


; Double Precision Multiplier For PIC17C42 
; Dmult 
7; DESCRIPTION: 


7 Multiplication : AARG (16 bits) * BARG (16 bits) -> DPX 


: (a) Load the lst operand in locations AARG+BO & AARG 
; (b) Load the 2nd operand in locations BARG+BO & BARG 
; (c) CALL Dmult 

; (d) The 32 bit result is in locations ( DPX+B0,DPX+B 
In the signed case, a savings of 9 clks can be real 
; BARG as the positive factor in the product when pos 


; TIMING (worst case): 
: unsigned: 17 


ST SS SSS SS PSD ES IO A PS SL IE RESET 
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; signed: BARG+ 17 
: BARG- 17 
; NOTE : Define SIGNED/UNSIGNED To 1/0 before including 
; this file in your program 


PKK KKK KKK KKK KK KKK RK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKK KKK KKK 


; Multiplication Macro 


PRAKKKKKKKKKKKKKKEK KEK KKK KKK KKK KKK KKK RK KK KK KKK KK KKK KK KK KKK KKK 


; TIMING: unsigned: 11+7*104+8%*11 = 169 clks 
; (worst case) signed: 11+7*10+7*11+5 = 163 clks 
MULTMAC MACRO 
variable i 
i= 0 
if SIGNED 
while i < 15 
else 
while i < 16 
endif 
if i< 8 ; test low byte 
btfsc BARG+B0,i 
else 7 test high byte 
btfsc BARG+B1,i-8 
fi 
goto add#v (i) 
PE a oe 38 
rLer DPX+B3,W ; rotate sign into carry bit 
ErcE DPX+B3  4¢ for i < 8, no meaningful bits 
rrcef DPX+B2 ; are in DPX+BO0 
rrcet DPX+Bl1 
else 
rier DPX+B3,W ; rotate sign into carry bit 
Prer DPX+B3 
rrer DPX+B2 
rrcf DPX+B1 
ErOeT DPX+BO 
£3; 
1 = itl 
endw 
Clr DPX+B0 ; if we get here, BARG = 0 
return 
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add0O 
movfp AARG+B0,WREG 
addwf DPX+B2 ;add lsb 
movfp AARG+B1,WREG 
addwfc DPX+B3 ;add msb 
rlLor AARG+B1,W ; rotate sign into carry bit 
PECL DPX+B3 ; for i < 8, no meaningful bits 
reer DPX+B2 ; are in DPX+B0 
rer DPX+Bl 


a SIGNED 


while i < 15 


else 


while i < 16 





endif 
af ae, SQ 
btfss BARG+B0,1 ztest low byte 
else 
btfss BARG+B1,i-8 ; test high byte 
fi 
goto noadd#v (i) 
add#v (i) 
movip AARG+B0,WREG 
addwf DPX+B2 ;add lsb 
movfp AARG+B1,WREG 
addwfc DPX+B3 ;add msb 
noadd#v (i) 
Li <8 
Flot AARG+B1,W ; rotate sign into carry bit 
Fret DPX+B3 ; for 1 -< 8, no meaningful bits 
Trot DPX+B2 ; are in DPX+B0 
PreL DPX+B1 
else 
rict AARG+B1,W ; rotate sign into carry bit 
erce DPX+B3 
rrof DPX+B2 
rrcf DPX+Bl 
fret DPX+BO 
fi 
i = itl 
endw 


Lt SIGNED 


ELGt AARG+B1,W ; Since BARG is always made posit 
rref DPX+B3 ; the last bit is known to be zer 
rrcef DPX+B2 
rref DPX+B1 
ErCE DPX+BO0 


A TA SS RS a CT SS EDA SE OE 
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endif 
ENDM 
; Double Precision Multiply ( 16x16 -> 32 ) 
; ( AARG*BARG -> : 32 bit output in DPX 
Db1lMult 
Lr SIGNED 
OOA2 971B btfss BARG+B1,MSB ; test sign of BARG 
OOA3 COAE . goto argsok ; if positive, ok 
NEG16 AARG+BO ; if negative, then negate 
O0OA4 1318 COMF AARG+B0+B0 
OOA5 1319 COME AARG+B0+B1 
OOA6 2900 CLRF wreg 
OOA7 1518 INCF AARG+B0+B0 
OOA8 1119 ADDWFC AARG+BO0+B1 
NEG16 BARG+B0 ; AARG and BARG 
OOA9 131A COMF BARG+B0+B0 
OOAA 131B COMF BARG+B0+B1 
OOAB 2900 CLRF wreg 
OOAC 151A INCF BARG+B0+B0 
OOAD 111B ADDWFC BARG+BO0+B1 
endif 
argsok 
CLR16 DPX+B2 ; clear initial partial pr 
OOAE 291E CLRF DPX+B2+B0 
OOAF 291F CLRE DPX+B2+Bl1 
MULTMAC ; ; use macro for multiplica 
0000 variable i 
0000 i= 0 
if SIGNED 
while i < 15 
else 
while i < 16 
endif 
ss oe ae ; test low byte 
btfsc BARG+B0, i 


errr ntti thn pentane i AL 
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else ; test high byte 
bttisc BARG+B1,i-8 
fi 
goto add#v (i) 
a ee a A 
FICE DPX+B3,W ; rotate sign into carry bit 
rrcf DPX+B3 ; for i < 8, no meaningful bits 
EECE DPX+B2 ; are in DPX+B0 
YYCL DPX+B1 
else 
PLC DPX+B3,W ; rotate sign into carry bit 
Error DPX+B3 
reek DPX+B2 
Eroet DPX+Bl 
LeCe DPX+B0 
oak 
i = itl 
endw 
i ey eB ; test low byte 
OOBO 981A btfsc BARG+BO,i 
else ; test high byte 
BELSC BARG+B1,1i-8 
£3 
OUBL Clits goto addo 
pi See Oa a | 
OOB2 1ALF rlcf DPX+B3,W ; rotate sign into 
OOB3 191F Hreor DPX+B3 ; for i < 8, no mea 
OOB4 191E erer DPX+B2 ; are in DPX+B0 
OOB5 191D rect DPX+B1 
else 
Piet DPX+B3,W ; rotate sign into carry bit 
rroft DPX+B3 
EECE DPX+B2 
EPCE DPX+Bl1 
rece DPX+BO 


<p rp aA SST SS SE PSS cP ATS CIES 
© 1993 Microchip Technology Inc. DS00543B-page 13 
4-173 


Tone Generation 





: 
0001 i = itl 
uses Pee, Se ; test low byte 
OOB6 991A btfsc BARG+B0O,i 
else ; test high byte 
btfsc BARG+B1,1i-8 
fi 
OOBT -Cbip goto addl 
Ea <8 
OOB8 1ALF rlef DPX+B3,W ; rotate sign into 
OOB9 191F ret DPX+B3 ; for i < 8, no mea 
OOBA 191E rrcf DPX+B2 ; are in DPX+B0 
OOBB 191D erer DPX+Bl 
else 
rice DPX+B3,W ; rotate sign into carry bit 
EECE DPX+B3 
rrcf DPX+B2 
rrcf DPX+B1 
rrcft DPX+BO0 
£7 
0002 4 aed 
if i< 8 , test low byte 
OOBC 9AI1A btfsc BARG+B0,i 
else ; test high byte 
btfsc BARG+B1,i-8 
sal 


aS SS SES al SE Bo a TS 
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OOBD C127 goto add2 
a oes ae 
OOBE 1A1F ricf DPX+B3,W ; rotate sign into 
OOBF 191F EECE DPX+B3 ; for i < 8, no mea 
OOCO 191E Creer DPX+B2 ; are in DPX+B0 
00C1 191D rret DPX+Bl 
else 
PL DPX+B3,W ; rotate sign into carry bit 
Erect DPX+B3 
rroar DPX+B2 
LYreck DPX+Bl 
TEce DPX+BO 
£3. 
0003 i = itl 
a oh cag Te <e o| ; test low byte 
00C2 9B1A btfsc BARG+BO,i 
else ; test high byte 
btfsc BARG+B1,1i1-8 
fi 
O0C3 CLs1 goto add3 
Lf. a. <8 
00C4 1AILF rLCE DPX+B3,W ; rotate sign into 
OOCS: 2OLE na ea DPX+B3 ; for i < 8, no mea 
00C6 191E rrot DPX+B2 ; are in DPX+BO 
00C7 191D reer DPX+B1 
else 
TLOL DPX+B3,W ; rotate sign into carry bit 
rrcf DPX+B3 
Eroer DPX+B2 
rrer DPX+B1 





EE TA a AP a a ET ES RP a TN EG Ea TE LEE I OT OT OL I ET 
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rrer DPX+BO 
fi 
0004 1 = itl 
p Os cee ae Go| ; test low byte 
00C8 9C1A btfisc BARG+BO0,i 
else ; test high byte 
btfse BARGtB1,i-8 
fa. 
QO0CS C13B goto add4 
it a <8 
OOCA 1A1F rlicf DPX+B3,W ; rotate sign into 
OOCB 191F rrct DPX+B3 ; for i < 8, no mea 
OOCC 191E reer DPX+B2 ; are in DPX+BO0 
OOCD 191D Feet DPX+B1 
else 
FLCE DPX+B3,W ; rotate sign into carry bit 
rroft DPX+B3 
eagles DPX+B2 
rref DPX+B1 
CECE DPX+BO . 
peat 
0005 i = i+l 
It ao 428 ; test low byte 
OOCE 9DIA btfsc BARG+B0, i 
else Ga test high byte 
btfsc BARG+B1,1i-8 


2: ST EE CEE EI EC SC I I EE AEN TES TET ATE 
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ie 
OOCF C145 goto add5 
ta <.58 
OODO 1A1F rier DPX+B3,W ; rotate sign into 
OO0D1 191F rref DPX+B3 ; for i < 8, no mea 
OOD2 191E Erect DPX+B2 ; are in DPX+B0 
00D3 191D rer DPX+Bl 
else 
ELCE DPX+B3,W ; rotate sign into carry bit 
Pret DPX+B3 
Proce DPX+B2 
Pret DPX+B1 
rece DPX+B0 
Sat 
0006 i = itl 
1 eS ; test low byte 
0O0D4 9EIA btfsc BARG+B0, i 
else ; test high byte 
btfisc BARG+B1,i-8 
ap 
00D5 Cl4F | goto addé 
Lea a8 
0OOD6 1A1F pa nope DPX+B3,W ; rotate sign into 
OOD7 191F rrcef DPX+B3 ; for i < 8, no mea 
OOD8 191E rEeL DPX+B2 ; are in DPX+B0 
0O0D9 191D ¥rcet DPX+B1 
else 
Trice DPX+B3,W ; rotate sign into carry bit 
Peer DPX+B3 


ST ES REED ETE CS a ET A ST ET 
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LEeCE DPX+B2 
rrcef DPX+B1 
rrcee DPX+B0 
fi 
0007 i = i+l 
a i ae Oa, ame «| ; test low byte 
OODA 9SFIA btfsc BARG+B0,1 
else ; test high byte 
btfsc BARG+B1,1i-8 
£4 
OODB C159 goto add7 
te. 8 
OODC 1A1F PLL DPX+B3,W ; rotate sign into 
OODD 191F Erer DPX+B3 ; for i < 8, no mea 
QOODE 191E Prer DPX+B2 ; are in DPX+B0 
OODF 191D rect DPX+B1 
else 
rlLer DPX+B3,W ; rotate sign into carry bit 
rrcef DPX+B3 
Erect DPX+B2 
rrcf DPX+B1 
rret DPX+BO0 
fi 
0008 i = itl 
Sie 58 ; test low byte 
bttse BARG+B0, i 


eee eee eee erence eee en enna rere erentrreneerentrenrnestensirrserararaseensnasncnssaunssesmnannsasinuamenmmenssanasnetisy 
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else ; test high byte 
OOEO 981B btfsc BARG+B1,1i-8 
£3. 
OOEL C1Le3s goto add8g 
ae de 36 
rilcE DPX+B3,W , rotate ‘sign into carry bit 
EreL DPX+B3 ; for i < 8, no meaningful bits 
rret DPX+B2 ; are in DPX+BO 
ErCt DPX+B1 
else 
QOOE2 1A1F Flot DPX+B3,W ; rotate sign into 
OOE3 191F LECT DPX+B3 
OOE4 1915 Erect DPX+B2 
OOE5 191D Trot DPX+Bl1 
OOE6 191C Yrcr DPX+B0 
niga 
0009 1 = itl 
aE: 25'S, 2B ; test low byte 
btfsc BARG+B0,i 
else ; test high byte 
OOE7 991B btfsc BARG+B1,i-8 
Pa. 
OOE8 C16E goto add9Q 
ch a: Ao 8 
EBLGt DPX+B3,W ; rotate sign into carry bit 
pa etony DPX+B3 ; for i < 8, no meaningful bits 
rrer DPX+B2 ; are in DPX+B0 
Erreet DPX+B1 
else 
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OOE9 1A1LF orice DPX+B3,W ; rotate sign into 
OOEA 191F Cree DPX+B3 
OOEB 191E ret DPX+B2 
OOEC 191D rrcef DPX+B1 
OOED 191C ELE DPX+BO0 
£4: 
OOO0A i = itl 
3. 8 ; test low byte 
btfsc BARG+B0,i 
else ; test high byte 
OOEE 9A1B btfsc BARG+B1,1i-8 
fi 
OOEF C179 goto addi0 
a as «e028 
rlet DPX+B3,W ; rotate sign into carry bit 
Frot DPAFBS ; for i < 8, no meaningful bits 
rrcr DPX+B2 ; are in DPX+B0 
EECe. DPX+Bl1 
else 
OOFO 1A1F PLE DPX+B3,W ; rotate sign into 
OOF1 191F LECT DPX+B3 
OOF2 191E exert DPX+B2 
O0OF3 191D Erer DPX+B1 
OOF4 191C Bret DPX+BO0 
fi 
000B oe ek 
ra 8 ; test low byte 
btfsc BARG+B0, i 
else ; test high byte 
La I NE a Be ae ae aD Dane A PEN SE a a OE 
DS00543B-page 20 . © 1993 Microchip Technology Inc. 


4-180 


Tone Generation 








OOF5 SBIB btfsc BARG+B1,i-8 
£7 
OOF6 C184 goto addil 
a Ocoee: Cee a 9 
rlhet DPX+B3,W ; rotate sign into carry bit 
Peer DPX+B3 ; for i < 8, no meaningful bits 
reer DPX+B2 ; are in DPX+B0 
ELCE DPX+Bl 
else 
OOF7 1A1F rlcf DPX+B3,W ; rotate sign into 
OOF8 191F erect DPX+B3 
OOF9 191E Fret DPX+B2 
OOFA 191D rret DPX+Bl1 
OOFB 191C rrert DPX+BO 
£4: 
000C 1 = itl 
a es Oe =| ; test low byte 
btfsc BARG+B0, i 
else ; test high byte 
OOFC 9C1B btfsc BARG+B1,i-8 
fi 
OOFD C18F goto addi2 
ee as ee 
ELet DPX+B3,W ; rotate sign into carry bit 
paper ena DPX+B3 ; for i < 8, no meaningful bits 
erCE DPX+B2 ; are in DPX+B0 
BLCE DPX+B1 
else 
OOFE 1A1F rler DPX+B3,W ; rotate sign into 


© 1993 Microchip Technology Inc. | DS00543B-page 21 
4-181 


Tone Generation 





OOFF 191F rrcef DPX+B3 
0100 191K rrcf DPX+B2 
0101 191D TEce DPX+B1 
0102 191C Prcr DPX+B0 
£3. 
O00D i = itl 
if 1 < 8 ; test low byte 
btfsc BARG+B0,i 
else ; test high byte 
0103 9D1B btfsc BARG+B1,i-8 
fi 
0104 C19A goto add13 
if i< 8 
rick DPX+B3,W ; rotate sign into carry bit 
rrct DPX+B3 ; for i < 8, no meaningful bits 
rref DPX+B2 ; are in DPX+B0O 
reer DPX+B1 
else 
0105 1A1F let DPX+B3,W ; rotate sign into 
0106 191F Yrer DPX+B3 
0107 191E TrcEt DPX+B2 
0108 191D rrcf DPX+B1 
0109 191C rreof DPX+BO0 
fi 
OOOE i = i+l 
abe: els 6. oS ; test low byte 
btfsc BARG+B0,i 
else ; test high byte 
010A 9E1B btfsc BARG+Bi1,i-8 
fi 


a a ee ee ee ee 
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010B C1A5 goto addl14 
LE a < 8 
plet DPX+B3,W ; rotate sign into carry bit 
rret DPX+B3 ; for 1.< 8, no meaningful bits 
EFreL DPX+B2 ; are in DPX+B0 
ror DPX+B1 
else 
010C 1A1F ler DPX+B3,W ; rotate sign into 
010D 191F rrcf DPX+B3 
O10E 191E EecE DPX+B2 
O10F 191D ag oh DPX+B1 
0110 191¢C Pret DPX+BO 
£2 
OO0OF i = itl 
Ubi 291 elrt DPX+BO ; if we get here, B 
0112 0002 return 
addo 
0113 6018 movfp AARG+B0,WREG 
0114 OFIE addwf DPX+B2 ;add lsb 
0115 6019 movfp AARG+B1,WREG 
Glo: LLIF addwfc DPX+B3 ;add msb 
0117 1A19 PLeE AARG+B1,W ; rotate sign into 
0118 191F ErCL DPX+B3 ; for i < 8, no mea 
0119 191E Pret DPX+B2 ; are in DPX+B0 
O11A 191D FEcE DPX+Bl 
0001 i=l 
a SIGNED 
while i < 15 
else 
while i < 16 
endif 
ee a 
btfss BARG+BO, i ;test low byte 
else 
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btfss BARG+B1,i-8 ; test high byte 
fi. 
goto noadd#v (i) 
add#v (i) 
movfp AARG+B0,WREG 
addwf DPX+B2 ;add lisb 
movfp AARG+B1,WREG 
addwfc DPX+B3 ;add msb 
noadd#v (i) 
5p as We Oe 
pal Ion a AARG+B1,W ; rotate sign into carry bit 
Eror DPX+B3 ; for i < 8, no meaningful bits 
Fret DPX+B2 ; are in DPX+B0 
rrcf DPX+B1 
else 
rlicf AARG+B1,W ; rotate sign into carry bit 
CECE DPX+B3 
rrcf DPX+B2 
rrcef DPX+Bl1 
rrcf DPX+BO 
£3: 
i = i+l 
endw 
2d 8 ;test low byte 
Q011B 911A btfss BARG+B0,i 
else 
7; test high byte 
btfss BARG+B1,i-8 
fi 
OTC Ci2 goto noaddl 
add1 
011D 6018 movfp AARG+B0,WREG 
O1L1E OFIE addwf DPX+B2 ;add lsb 
O11F 6019 movfp AARG+B1,WREG 
0120 111F addwfc DPX+B3 ;add msb 
noaddl 
Es 8 
0121 1A19 rlcf AARG+B1,W ; rotate sign into 
0122 191F EXCE DPX+B3 ; for i < 8, no mea 
0123 1915 rref  DPX+B2 ; are in DPX+BO 
0124 191D reer DPX+B1 
else 
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rlee AARG+B1,W ; rotate sign into carry bit 
Eecr DPX+B3 
Erer DPX+B2 
Pret DPX+Bl 
rrer DPX+B0 
fi 
0002 i = itl 
i ht Sa a So ;test low byte 
0125 921A btfss BARG+B0,i 
else ; test high byte 
btfss BARG+B1,i-8 
fi 
0126 C12B goto noadd2 
add2 
0127 6018 movfp AARG+B0,WREG 
0128 OFIE addwf DPX+B2 ;add lsb 
0129 6019 movfp AARG+B1,WREG 
012A 111F addwfc DPX+B3 ;add msb 
noadd2 
Deva ee 
012B 1A19 cler AARG+B1,W ; rotate sign into 
OL2C -191LF rrcf DPX+B3 ; for i < 8, no mea 
O12D “SLE EroLr DPX+B2 ; are in DPX+B0 
012E 191D rarer DPX+B1 
else 
rler AARG+B1,W ; rotate sign into carry bit 
reer DPX+B3 
rrer DPX+B2 
trot DPX+Bl1 
reer DPX+B0 
sta 
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0003 ; i = itl 
if 3 <8 ;test low byte 
O12F 931A btfss BARG+B0,i 
else 
; test high byte 
btfss BARG+B1,1i-8 
£1, 
O130 C135 goto noadd3 
add3 
0131 6018 movfp AARG+B0,WREG 
0132 OFI1E addwf DPX+B2 ;add lsb 
0133 6019 movfp AARG+B1,WREG 
Oi36 Le addwfc DPX+B3 ;add msb 
noadd3 
tk <8 
0135 1A19 riot AARG+B1,W ; rotate sign into 
0136 191F ECL DPX+B3 ; for i < 8, no mea 
0137 191E 2rer DPX+B2 ; are in DPX+BO 
0138 191D Pret DPX+B1 
else 
ELCL AARG+B1,W ; rotate sign into carry bit 
rect DPX+B3 
rrcf DPX+B2 
rrcf DPX+Bl 
rrer DPX+B0 
a 
0004 i = itl 
eed <8 ;test low byte 
0139 941A btfss BARG+B0,i 
else 


; test high byte 


btfss BARG+B1,i-8 
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fi 
013A C13F goto noadd4 
add4 
013B 6018 movfp AARG+B0,WREG 
013C OFILE addwf DPX+B2 ;add lsb 
013D 6019 movfp AARG+B1,WREG 
O138 TLE addwfc DPX+B3 ;add msb 
noadd4 
Le. a <8 
O13F 1A19 ries AARG+B1,W ; rotate sign into 
0140 191F LECr DPX+B3 ; for i < 8, no mea 
0141 191E Erer DPX+B2 ; are in DPX+B0 
0142 191D rrcf DPX+B1 
else 
rlict AARG+B1,W ; rotate sign into carry bit 
rref DPX+B3 
rrceft DPX+B2 
Ercr DPX+B1 
EECE DPX+B0 
fi 
0005 1 = i+l 
LEE 8 ;test low byte 
0143 951A btfss BARG+B0, i 
else ; test high byte 
btfss BARG+B1,i-8 
fi 
0144 C149 goto noadd5 
add5 
0145 6018 movfp AARG+BO0,WREG 
0146 OFIE addwf DPX+B2 ;add lsb 
0147 6019 movfp AARG+B1,WREG 
0148 111F addwfc DPX+B3 ;add msb 
noadd5 
if i. < 8 
0149 1A19 rlict AARG+B1,W ; rotate sign into 
014A 191F rrcef DPX+B3 ; for i < 8, no mea 
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014B 191E rref DPX+B2 * are in DPX+B0 
014C 191D i Erce DPX+B1 
else 
FICE AARG+B1,W ; rotate sign into carry bit 
erect DPX+B3 
Erect DPX+B2 
rrcef DPX+Bl1 
EEeer DPX+BO 
£7. 
0006 i = itl 
ae ay ee 7 ;test low byte 
014D 961A btfss BARG+B0,i 
else ; test high byte 
btfss BARG+B1,i-8 
£2: 
014E C153 goto noadd6 
add6 
O14F 6018 movfp AARG+BO, WREG 
0150 OFLE addwf DPX+B2 ;add lsb 
0151 6019 movfp AARG+B1,WREG 
O152: 11 addwfc DPX+B3 ;add msb 
noadd6 
af <8 
0153 1A19 rlLort AARG+B1,W ; rotate sign into 
0154 191F rrcef DPX+B3 ; for i < 8, no mea 
0155 191E rrcf DPX+B2 ; are in DPX+B0 
0156 191D rref DPX+Bl1 
else 
ELSE AARG+B1,W ; rotate sign into carry bit 
rrcf DPX+B3 
rrcf DPX+B2 
rref DPX+Bl1 
rref DPX+BO 


ee a 
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fa: 
0007 ace a+. 
Le a eS test low byte 
0157 971A btfss BARG+B0,i 
else ; test high byte 
btfss BARG+B1,i-8 
rae 
OL5SCL5p goto noadd7 
add7 
0159 6018 movfp AARG+B0,WREG 
015A OFIE addwf DPX+B2 ;add lsb 
015B 6019 movfp AARG+B1,WREG 
O1L5C. LEER addwfc DPX+B3 ;add msb 
noadd7 
if <3 
015D 1A19 iol Seka AARG+B1,W ; rotate sign into 
O15E 191F Pret DPX+B3 ; for i < 8, no mea 
QO15F 191E aha ol a DPX+B2 ; are in DPX+B0 
0160 191D rrcef DPX+Bl 
else 
FLGE AARG+B1,W ; rotate sign into carry bit 
rrcef DPX+B3 
rrcef DPX+B2 
PRCT DPX+Bi 
rrcef DPX+BO 
fi 
0008 i = itl 
Le ae 8 ;test low byte 
btfss BARG+B0, i 
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0161 


0162 


0163 
0164 
0165 
0166 


0167 


0168 
0169 
O16A 
016B 


0009 


016C 


016D 


0165 
O16F 
0170 
0171 


a a a a 
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901B 


C167 


6018 
OFI1E 
6019 
ae Sy 


1A19 
LSOLE 
191E 


POLO 
191C 


911B 


CliZ 


6018 


OF1E 
6019 
LEE 


adds 


noadd8s 


add9 


noadd9 


else 


btfiss 
Ti 

goto 

movfp 

addwf 


movfp 
addwfc 


TE eer 8 


rlef 
rrcf 
rref 


rrcef 


else 


ricf 
rref 
rref 
rrcef 
rref 


fi 


i = itl 


EEG. Sg 


btfss 


else 


btfss 
fi 

goto 

movfp 

addwf 


movfp 
addwfc 


il cals ee a 


; test high byte 


BARG+B1,i-8 


noadd8 
AARG+B0,WREG 
DPX+B2 ;add lsb 
AARG+B1,WREG 
DPX+B3 ;add msb 
AARG+B1,W ; rotate sign into carry bit 
DPX+B3 ; for i < 8, no meaningful bits 
DPX+B2 ; are in DPX+B0 
DPX+B1 
AARG+B1,W ; rotate sign into 
DPX+B3 
DPX+B2 
DPX+Bl1 
DPX+B0 
;test low byte 
BARG+B0, i 


; test high byte 


BARG+B1,i-8 


noadd9 


AARG+B0,WREG 


DPX+B2 


;add ilsb 


AARG+B1,WREG 


DPX+B3 
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PriEct AARG+B1,W ; rotate sign into carry bit 
Pres DPX+B3 ; for i < 8, no meaningful bits 
reer DPX+B2 ; are in DPX+BO0 
reer DPX+Bl 
else 
0172 1A19 LLOE AARG+B1,W ; rotate sign into 
O73 L9LF PEGE DPX+B3 
0174 191E bapa OF a DPX+B2 
0175 191D rrcf DPX+B1 
0176 191C ECE DPX+B0 
£3: 
OOOA = 441 
af a <8 ;test low byte 
btfss BARG+B0,i 
else 





; test high byte 


0177 921B btfss BARG+B1,i-8 
ER 
OTS: Cl ID goto noadd10 
add10 
0179 6018 movfp AARG+B0,WREG 
O17A OFIE addwf DPX+B2 ;add isb 
017B 6019 movfp AARG+B1,WREG 
OL7C) LILLE addwfc DPX+B3 ;add msb 
noaddl10 
es. <8 
riLeL AARG+B1,W ; rotate sign into carry bit 
reer DPX+B3 ; £0r 4 < 6; no meaningful bits 
Fret DPX+B2 ; are in DPX+B0 
reese DPX+Bl 
else 
017D 1A19 cLEL AARG+B1,W ; rotate sign into 
O17E 191F rrof DPX+B3 
O17F 191E rrcef DPX+B2 
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0180 191D rrceft DPX+B1 
0181 191C rrcef DPX+B0 
mae 
OO0OB i = itl 
if i< 8 


;test low byte 


btfss BARG+B0,i 
else 
; test high byte 
0182 931B btfss BARG+B1,i-8 
fi 
0183 C188 goto noaddll 
addil 
0184 6018 movfp AARG+B0,WREG 
0185 OFIE addwf DPX+B2 ;add lsb 
0186 6019 movfp AARG+B1,WREG 
0187 111F addwfc DPX+B3 ;add msb 
noaddil 
if i< 8 
ELeL AARG+B1,W ; rotate sign into carry bit 
Trek DPX+B3 ; for i <8, no meaningful bits 
rrcf DPX+B2 ; are in DPX+B0 
rrcf DPX+B1 
else 
0188 1A19 rict AARG+B1,W ; rotate sign into 
0189 191F rref DPX+B3 
O18A 191E EreLt DPX+B2 
018B 191D rref DPX+Bl1 
018C 191C rrcf DPX+B0 
Fi 
000C i = itl 
if i< 8 


;test low byte 


btfss BARG+B0,i 


else ; test high byte 


nnn ne onl eee nee neg nnn nna RENE ERR ERENT 
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018D 941B btfss BARG+B1,1-8 
Fu. 
O18E. C193 goto noaddl2 
addl2 
O18F 6018 movfp AARG+BO,WREG 
0190 OF1LE addwf DPX+B2 ;add isb 
0191 6019 movfp AARG+B1,WREG 
O1.92> LILLE addwfc DPX+B3 ;add msb 
noaddl2 
Lf a 6 
ler AARG+B1,W ; rotate sign into carry bit 
rrer DPX+B3 ; for i < 8, no meaningful bits 
rrcef DPX+B2 ; are in DPX+BO0 
rrcef DPX+Bl 
else 
0193 1A19 ric£ AARG+B1,W ; rotate sign into 
0194 191F reot DPX+B3 
0195 191E Erect DPX+B2 
0196 191D rret DPX+B1 
O197) 191C ao DPX+B0 
£2. 
000D i = i+l 
Oe ee | ;test low byte 
btfss BARG+BO, i 
else 


; test high byte 


0198: 9518 btfss BARG+B1,i-8 
fi. 
0199 C19E goto noadd13 
add13 
019A 6018 movfp AARG+BO, WREG 
019B OFIE addwf DPX+B2 ;add lsb 
019C 6019 movfp AARG+B1,WREG 
019D LILF addwfc DPX+B3 ;add msb 
noadd13 
if i< 8 
PLCE AARG+B1,W ; rotate sign into carry bit 
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rrcet 
rref 
rref 
else 
OL9E 1A19 ricf 
O19F 191F rrcft 
O1A0 191F rret 
QO1A1 191D rrcf 
01A2 191C . rrcf 
fi 
OOO0E = at 
if i< 8 
btfss 
else 
01A3 961B btfss 
fi 
0O1A4 C1A9 goto 
addl14 
O1A5 6018 movfp 
O1A6 OFIE addwf 
O1A7 6019 movfp 
01A8 111F . addwfc 
noadd14 
if i< 8 
ricf 
rrcf 
rret 
rrcf 
else 
O1A9 1A19 rlcft 
Q1AA 191F rrcf 
Q1AB 191E rrcf 
Q1AC 191D rref 
QO1AD 191C rrcef 


DPX+B3 ; for i < 8, no meaningful bits 
DPX+B2 ; are in DPX+B0 
DPX+Bl1 


AARG+B1,W ; rotate sign into 


DPX+B3 
DPX+B2 
DPX+B1 
DPX+BO0 
;test low byte 
BARG+B0,i 


; test high byte 


BARG+B1,i-8 


noaddl14 
AARG+B0,WREG 
DPX+B2 ;add lsb 


AARG+B1,WREG 
DPX+B3 ;add msb 


AARG+B1,W ; rotate sign into carry bit 
DPX+B3 ; for i < 8, no meaningful bits 
DPX+B2 ; are in DPX+B0O 


DPX+Bl 


AARG+B1,W ; rotate sign into 


DPX+B3 
DPX+B2 
DPX+Bl 
DPX+B0 


A Stet tn ER 
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fA. 


OOOF i = itl 


if SIGNED 


O1AE 1A19 rlicf AARG+B1,W ; since BARG is alw 
O1AF 191F rreft DPX+B3 ; the last bit is k 
O1B0O 191E rref DPX+B2 
O01B1l 191D rref DPX+Bl 
OL1B2 191C cecof DPX+BO0 

endif 
01B3 0002 return 


, 
PRAKKKKKK KKK RK KKK KR KKK KK KK KK RK RK KR KK KK KR KKK KK KK KK KK KK KK KKK KK 


END 


Errors : 0 
Warnings : 0 
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Servo Control of a DC-Brush Motor 





INTRODUCTION 


The PIC17C42 microcontroller is an excellent choice for 
cost-effective servo control in embedded applications. 
Due to its Harvard architecture and RISC-like features, 
the PIC17C42 offers excellent computation speed needed 
for real time closed loop servo control. This application 
note examines the use of the PIC17C42 as a DC brush 
motor servo controller. It is shown that a PID (Propor- 
tional, Integral, Differential) control calculation can be 
performed in less than 200 uS (@16 MHz) allowing 
control loop sample times in the 2 KHz range. Encoder 
rates up to 3 MHz are easily handled by the PIC17C42's 
high speed peripherals. Further, the on-chip peripherals 
of the PIC17C42 allow an absolute minimum cost sys- 
tem to be constructed. 


Closed-loop servo motor control is usually handled by 
16-bit, high-end microcontrollers and external logic. In 
an attempt to increase performance many applications 
are upgrading to DSPs. However, the very high perfor- 
mance of the PIC17C42 makes it possible to implement 
these servo control applications at a significant reduction 
in overall system cost. 


The servo system uses a PIC17C42 microcontroller, a 
programmable logic device (PLD), and a single-chip 
H-bridge driver. Such a system might be used as a 
positioning controller in a printer, plotter, or scanner. The 
low cost of implementing a servo control system using 
the PIC17C42 allows this system to compete favorably 
with stepper motor systems offering a number of advan- 
tages: 


¢ Increased Acceleration, Velocity 
e Improved Efficiency 

¢ Reduced Audible Noise 

¢ True Disturbance Rejection 


SYSTEM OVERVIEW 


DC Servo Control 


Modern digital servo systems are formed as shown in 
Figure 1. These systems control a motor with an incre- 
mental feedback device known as a sequential encoder. 
They consist of an encoder counter, a processor, some 
form of digital-to-analog converter, and a power ampli- 
fier, which delivers current or voltage to the motor. 


Developed by Teknic Inc. 


FIGURE 1 - A TYPICAL SERVO SYSTEM 


Digital 
Commande Processor 


Power : 
Amplifier . 


eee ee) 
ounter 2 


Encoder 





The PIC17C42 implements both the servo compensator 
algorithm and the trajectory profile (trapezoidal) genera- 
tion. A trajectory generation algorithm is necessary for 
optimum motion and its implementation is as important 
as the servo compensator itself. The servo compensator 
can be implemented as a traditional digital filter, a fuzzy 
logic algorithm, or the simple PID algorithm (imple- 
mented in this application note). The combination of 
servo compensator and trajectory calculations can place 
significant demands on the processor. 


The digital-to-analog conversion can be handled by a 
conventional DAC or by using pulse-width modulation 
(PWM). In either case the output signal is fed to a power 
stage which translates the analog signal(s) into usable 
voltages and currents to drive the motor. 


PWM output can be a duty-cycle signal in combination 
with a direction signal or a single signal which carries 
both pieces of information. In the latter case a 50% duty 
cycle commands a null output, a 0% duty cycle com- 
mands maximum negative output, and 100% maximum 
positive output. 


The amplifier can be configured to supply a controlled 
voltage or currentto the motor. Most embedded systems 
use voltage output because of its simplicity and reduced 
cost. 


Sequential encoders produce quadrature pulse trains, 
from which position, speed, and direction of the motor 
rotation can be derived. The frequency is proportional to 
speed and each transition of ®1 and ®2 represents an 
increment of position. The phase of the signals is used 
to determine direction of rotation. 
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FIGURE 2 - THE PIC17C42 SERVO SYSTEM 


Serial PWM1 
Command 7 Pwm2 [— 
TCLK12 


Non-Servo 
/O PIC17C42 
RTCC 16-bit timer input 


TCLK3 16-bit timer input 
RTCC TCLK12 = 8-bit timer input 


TCLK3 RX, TX = serial port receive 
and transmit pins 


CLKIN CLKOUT 


Saturation 


Note: The Z-1 operator indicates a one sample time delay 
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These encoder signals are usually decoded using a 
small state machine into Count Up and Count Down 
pulses. These pulses are then routed to an N-bit, up- 
down counter whose value corresponds to the position 
of the motor shaft. The decoder/counter may be imple- 
mented in hardware, software, or a combination of the 
two. 


The PIC17C42 Based Motor Control Boar 


The PIC17C42 based servo system described here has 
a full RS-232 ASCIl interface, on-board switching power 
supply, H-bridge motor drive, over-current protection, 
limit switch inputs and digital I/O. The entire system 
measures 5” x 3.5” and is shown in Figure 3. The system 
can be used to evaluate the PIC17C42 in servo applica- 
tions. All unused PIC17C42 pins are available at an I/O 
connector for prototyping. 


A PID algorithm is used as a servo compensator and 
position trajectories are derived from linear velocity 
ramp segments. This system uses 50%-null PWM as the 
digital-to-analog conversion technique. The power stage 
is a high current output switching stage which steps-up 
the level of the PWM signal. Encoder signal decoding is 
accomplished using an external PLD. The up/down 
counter is implemented internally in the PIC17C42 as 
combination of hardware and software (Figures 5 
and 6). 


THE COMPENSATOR 


PID is the most widely used algorithm for servo motor 
control. Although it may not be the most optimum control- 
ler for all applications, however it is easy to understand 
and tune. 


The standard digital PID algorithm’s form is shown in 
Figure 4. U(k) is the position or velocity error and Y(k) is 
the output. 


This algorithm has been implemented using the 
PIC17C42 math library. Only 800 instruction cycles are 
required resulting in a 0.2mS PID execution time at 
16 MHz. 


Integrator wind-up is a condition which occurs in PID 
controllers when a large following error is present in the 
system, for instance when a large step disturbance is 
encountered. The integrator continually builds up during 
this following error condition even though the output is 
saturated. The integrator then “unwinds” when the servo 
system reaches its final destination causing excessive 
oscillation. The PID implementation shown above avoids 
this problem by stopping the action of the integrator 
during output saturation. 


MOTOR ACTUATION 


The PIC17C42 contains a high-resolution pulse width 
modulation (PWM) subsystem. This forms a very effi- 
cient power D/A converter when coupled to a simple 
switching power stage. The resolution of the PIC17C42 
PWM subsystem is 62.5nS (at 16 MHz). This translates 
into 10-bit resolution at a 15.6KHz rate or 1 part in 800 
(9 1/2-bit) resolution at 20KHz. This allows effective 
voltage contro! while still maintaining the modulation 
frequency at or above the limit of human hearing. This is 
especially relevant in office automation equipment where 
minimizing noise is a design goal. 


The motor responds to a PWM output stage by time 
averaging the duty cycle of the output. Most motors react 
slowly, having an electrical time constant of 0.5mS or 
more and a mechanical time constant of 20.0mS or 
more. A 15KHz PWM output is effectively equivalent to 
that of a linear amplifier. 


In the system shown in Figure 2, the H-bridge’s direction 
input is wired directly to the PIC17C42’s PWM output. 
The H-bridge is powered by a DC supply voltage, V__. In 
this configuration 0 volts is presented to the motor when 
the PWM signal is at a 50% duty cycle, -V_ volts at 0% 
duty cycle and +V_ volts at 100% duty cycle. 


ENCODER FEEDBACK 


Position feedback for the example system is derived 
from a quadrature encoder mounted on the motor shaft. 
Both incremental position and direction can be derived 
from this inexpensive device. The quadrature encoder 
signals are processed by a 16R8-type PLD device as 
shown in Figure 2. The PLD converts the quadrature 
pulses into two pulse streams: Count Up and Count 
Down (Figure 5). These signals are then fed to two 
16-bit timers of the PIC17C42 (TMR3 and RTCC). A 
logic description for the PLD decoder is shown in Appen- 
dix A. 


The PIC17C42 keeps track of the motor shaft’s incre- 
mental! position by differencing these two 16-bit timers. 
This operation is performed each servo sample time and 
the current position is calculated by adding the incre- 
mental position to the previous position. Since both 
timers are 16-bits deep, keeping track of the overflow is 
unnecessary, unless the encoder signals frequency is 
greater than 32767 times the sample frequency. For 
example, at a servo sample time of 1mS, the maxi- 
mum encoder rate would be 3.2767 MHz. 


Counter wrap-around is not a concern because only the 
difference between the two counters is used. Two’s- 
complement subtraction takes care of this automati- 
cally. Position is maintained as a three-byte, 24-bit 
quantity in the example program shown in Appendix F. 
However, there is no limit to the size of the internal 
position register. By adding the 16-bit incremental posi- 
tion each sample time to an N-byte software register, an 
N-byte position may be maintained. 


i A 
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FIGURE 5 - SEQUENTIAL ENCODER SIGNALS 


01 


2 


1x mode 
up_count 


down_count 





4x mode 
up count 


down_count 


FIGURE 6 - ENCODER INTERFACE SCHEME 


1 6-bit counter 


16-bit counter 


PIC17C42 


TRAJECTORY GENERATION 


A trajectory generation algorithm is essential for opti- 
mum motion control. A linear piecewise velocity trajec- 
tory is implemented in this application. For a position 
move, the velocity is incremented by a constant accel- 
eration value until a specified maximum velocity is 
reached. The maximum velocity is maintained for a 
required amount of time and then decremented by the 
same acceleration (deceleration) value until zero veloc- 


ity is attained. The velocity trajectory is therefore trap-. 


ezoidal for along move and triangular short move where 
maximum velocity was not reached (Figure 8). 


The doPreMove subroutine is invoked once at the begin- 
ning of a move to calculate the trajectory limits: The 
doMove routine is then invoked at every sample time to 
calculate new "desired" velocity and position values as 
follows: 


VK = VkK-1+A (A = Acceleration) 
PK = Pk-1 + VK-1 + A/2 


For more details on trajectory generation, see 
Appendix E. 








up-count 


RA1/RT 


1 
down-count 1x/4x select 


RB5/TCLK3 19 


IMPLEMENTATION DETAILS 


The program structure is straightforward: An interrupt 
service routine (ISR) processes the servo control and 
trajectory generation calculations, and a foreground 
loop is used to implement the user interface, serial 
communication and any exception processing (i.e. limit 
switches, watchdog timer, etc.). 


The ISR has a simple structure. In order to effect servo 
control we need to read the encoder, calculate the new 
trajectory point and PID values, and set the output of the 
PWM, all at a constant, predefined rate. The ISR is 
initiated by a hardware timer (TMR2) on the PIC17C42. 
To make sure that the servo calculation always occurs | 
synchronously with the PWM subsystem, the PWM2 
output is wired to the input pin of TMR12 (TMR1 in 
internally-clocked, 8-bit timer mode; TMR2 in externally- 
clocked, 8-bit counter mode). N is loaded into the PR2 
register. The sample rate then becomes the PWM rate 
divided by N. In this implementation N=16 (Figure 8). 
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FIGURE 7 - SAMPLING SCHEME 
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FIGURE 8 - VELOCITY RAMP SEGMENTS FOR POSITION MOVES 
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FIGURE 9 - FLOWCHART FOR FORE- FIGURE 10 - FLOWCHART FOR INTERRUPT 
GROUND PROCESSING SERVICE ROUTINE 


DCMOTOR.ASM 


Save 
Program Registers 
Setup 


doMposMvel 


¢ Read up_count and down_count 
* Measure current velocity, position 
IdleFunction 


doExtStat 
* Monitor ext status inputs 


GetChk 
Move No 
? 


Running? } 


Got a char? 


Trajectory Yes 
in Progress? coMoNe 
Get 
Command | 
doError 
* Computer position and velocity error 


Yes doServo 
Solve On * Compute PID 
Next Execute |e PWM value 
Command * Write PWM value 
Command Function 


Yes doCapture Regs 
cAbreas * For PICMASTER based debug 


* Output position, velocity, etc. info. 


Yes 
Restore 
Send ERROR Send response Registers 
message message 
RETURN 
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The following events must occur in the interrupt service 
routine: 


« Read Timers (RTCC & TMR3) 


¢ Calculate the new Reference Position using the Tra- 
jectory Generation Routine. 


Calculate Error: U(k) = Reference Position - Current 
Position 


Calculate Y(k) using PID 
¢ Set PWM output 


¢ Manage other housekeeping tasks (i.e. service serial 
characters) 


The entire ISR requires only 0.250mS to execute with 
16MHz processor clock frequency. 


COMMAND INTERFACE 


The following commands are implemented and recog- 
nized by the user interface in the foreground loop. 


Move (Value): M, [-8,388,608,, to 8,388,607 


Commands the axis to move to a new position or 
velocity. Position data is relative, velocity data is abso- 
lute. Position data is in encoder counts. Velocity data is 
given in encoder counts per sample time multiplied by 
256. All moves are performed by the controller such that 
velocity and acceleration limits set into parameter memory 
will not be violated. 


10! 


All move commands are kept in a one deep FIFO buffer. 
The command in the buffer is executed as soon as the 
executing command is complete. If no move is currently 
executing the commanded move will start immediately. 


Mode: O, (Type), [P,V, T] 


An argument of “P” will cause all subsequent move 
commands to be incremental position moves. A “V” 
argument will cause all subsequent moves to be abso- 
lute velocity moves. A "T" argument sets a "Torque 
mode" where all subsequent M commands directly write 
to the PWM. This is useful for debug purposes. 


Set Parameter: S, (#,Value) [00, to FF,, -8,388,608,, to 
8,388,607,,] 


Sets controller parameters to the value given. Param- 
eters are shown in Table 1. 


TABLE 1 - PARAMETERS 


Parameter Range 


Velocity Limit /00 | 0 to 8,388,607, * 


Acceleration Limit 0 to 8,388,607, ** 
Kp: Proportional Gain -32768,, to 32767, 


Kd: Differential Gain -32768, , t0 32767, 


Ki: Integral Gain -32768,, to 32767, 
* (counts per sample time multiplied by 256) 


** (counts per sample time per sample time multiplied by 
256) 





Read Parameter: R, (#) [00, to FF,] 
Returns the present value of a parameter. 
Shutter: C 


Returns the time (in sample time counts 0 to 65,536, ,) 
since the start of the present move and captures the 
commanded and actual values of position and velocity at 
the time of the command. 


Read commanded position: P 


Returns the commanded position count which was cap- 
tured during the last Shutter command. 
Range: -8,388,608,, to 8,388,607... 


Read commanded velocity: V 


Returns the commanded velocity multiplied by 256 
which was captured during the last Shutter command. 
Range: -8,388,608,, to 8,388,607, 


Read actual position: p 


Returns the actual position count which was captured 
during the last Shutter command. 
Range: -8,388,608,, to 8,388,607. 


Read actual velocity: v 


Returns the actual velocity multiplied by 256 which was 
captured during the last Shutter command. 
Range: -8,388,608,, to 8,388,607. 


External Status: X 


Returns a two digit hex number which defines the state 
of the bits in the external status register. Issuing this 
command will clear all the bits in the external status 
register unless the event which set the bitis still true. The 
bits are defined in Table 2. 


TABLE 2 - EXTERNAL STATUS REGISTER 
BITS 


reine | lmtreached 
res | -imtvesched 
rena | pate 


Move Status: Y 










Returns a two-digit hex number which defines the state 
of the bits in the move status register. Issuing this 
command will clear all the bits inthe move status register 
unless the event which set the bit is still true. The bits are 
defined in Table 3. 


TABLE 3 - MOVE STATUS REGISTER BITS 


move buffer empty 
reité | movecomplete 
eitso [na 
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Read Index position: |! | FIGURE 11 - TYPICAL SERVO RESPONSE: 


Returns the last index position captured in position DESIRED/ACTUAL POSITION 
counts. 


Set Position (Value): H, [-8,388,608,, to 8,388,607 Position Response 


Sets the actual and commanded positions to the value 
given. Should not be sent unless the move FIFO buffer 
is empty. 


Reset: Z . 
Performs a software reset. 


tol 


Kp = 2048 

Kd = 20480 
Ki = 1024 
Actual = = s 


Capture Servo-Response: c (#Count) Desired == 


c 

° 
= 
” . 
° 
a. 








The c command will set a flag inside indicating that 
starting with the next M (servo move) command, velocity 50 100 
and position information will be sent out (by invoking the Time (mSec) 

doCaptureRegs procedure) during every servo-loop for 
#counttimes. Atthe end of the #count, the processor will 
halt (see doCaptureRegs procedure). This is useful for 
debug purposes. 





POSITION ERROR 


; Position Error 
Disable Servo: s 


This command disables servo actuation. The servo will 
activate again with the execution of the next M (move) 


ae vy, 7h ) 
command. This is useful for debug purposes. : 120 140 160 
Examples: 
Z ;Reset software (No <CR> required) ” Kp = 2048 
OV ;Set velocity servo mode (No <CR> Kd = 20480 


Time (mSec) Ki = 1024 
; required) 


M 1000<CR> ;Set velocity to 1000 





M-1000<CR> ;Set velocity to 1000 in reverse 
;direction 













Velocity Response 







OPTIMIZING THE SYSTEM 


Once the PID loop is successfully implemented, the next 
challenge is to tune it. This was made simple through 
extensive use of the PICMASTER In-Circuit Emulator 
for the PIC17C42. 


The PICMASTER is a highly sophisticated real-time in- 
circuit emulator with unlimited break-point capability, 8K 
deep trace buffer and external logic probes. It’s user 
interface software runs under Windows™ 3.1 with pull- 
down menus and on-line help. The PICMASTER soft- 
ware also support dynamic data exchange (DDE) through 
which it is possible to send its trace buffer information to 
a spreadsheet, such as EXCEL, also running under 
windows. 


Kp = 2048 
Kd = 20480 
Ki = 1024 


Actual mace 
Desired = 


120 


Velocity 









N 

60 80 100 
Time (mSec) 
Velocity = counts/sample 


40 





140 160 





To tune the PID, first a small amount of diagnostics code 
is added in the servo routine (doCaptureRegs). This 
code simply outputs, at every sample point, the actual 


and desired position values, actual and desired velocity pore 
values, position error and velocity error by using TABLWT ; 

instruction. These are captured in the trace buffer of the Kp = 2048 
emulator. The ‘trace’ condition is set up to only trace the : Kd = 20480 
data cycles of the 2-cycle TABLWT instructions. Next, the wih Time (mSec) Ki = 1024 


trace buffer is transferred to EXCEL and the various 


Velocity = counts/sample 
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parameters are plotted. The plots graphically show the 
amounts of overshoot, ripple and response time. By 
altering Kp, Ki and Kd, and plotting the results, the 
system can be fine tuned. 


Under windows multitasking environment, using 
PICMASTER emulator this can be done in real time as 
described below. 


Three sessions are set up under windows: 


1. Aterminal emulator session to send commands to the 
motor control board. The “terminal” program provided 
with windows Is used, although any communications 
software such as PROCOMM will work. 


2. Second, a PICMASTER emulation session is in- 
voked. The actual PIC17C42 is replaced in-circuit by 
the emulator probe. Within the emulator, trace points 
are setup to capture the actual and desired position 
and velocity values on appropriate bus cycles. 


3. Third, asession of EXCEL is started and dynamically 
linked to the PICMASTER sessions such that when- 
ever the trace buffer is full, the data is sent over to 
EXCEL. A few simple filtering commands in EXCEL 
are used to separate the various data types, i.e. 
actual position data from desired position from actual 


velocity etc. Next, various plot windows are set up 


within EXCEL to plot these information. 


Once these setup have been done, for every servo 
move, the responses are automatically plotted. It is then 
a simple matter of varying the PID coefficients and 
observing the responses to achieve the desired system 
response. At any point, the responses can be stored in 
files and/or printed out. 


Except for very long “move” commands, most position 
and velocity commands are executed (i.e. system settled) 
in less than 500 samples, making it possible to capture 
all variables (actual and desired position and velocity, 
and position errors and servo output) in PICMASTER’s 
8K trace buffer. 


Windows is a trademark of Microsoft Corporation. 


CONCLUSIONS 


Using a high-performance 8-bit microcontroller as the 
heart of a servo control system is a cost-effective solu- 
tion which requires very few external components. A 
comparison with a popular dedicated servo-control chip, 
is presented in Table 4. 


TABLE 4 - SERVO CONTROL CHIP 
COMPARISON 







: 







PIC17C42 ; PIC17C42 
@8MHz | @16MHz | @25MHz 


Max Encoder 1MHz 3.3 MHz 4.5 MHz 
Rate 
Servo Update 0.25 ms 0.16 ms 
Time 


Max Sampling | 4 KHz 2-3 KHz 4-5 KHz 
Frequency 


Also apparent in the comparison table is the additional 
processing power available when using the 
microcontroller. This processing can be used to provide 
a user interface, handle other |/O, etc. Alternatively, the 
additional processing time might be used to improve the 
performance of compensator and trajectory generation 
algorithms. A further advantage is that for many embed- 
ded applications using motor control the microcontroller 
proves to be a complete, minimum cost solution. 








Credit 


This application note and a working demo board has 
been developed by Teknic Inc. Teknic (Rochester, N.Y.) 
specializes in Motor Control Systems. 


References 


1. Thomas Bucella, “Comparing DSPs to Microproces- 
sors in Motion Control Systems-Some Real World 
Data”, PCIM conference proceedings © 1990 Intertec 
Communications, Inc. 


2. David M. Auslander, Cheng H. Tham, “Real-Time 
Software for Control” © 1990 Prentice-Hall, Inc., 
Englewood Cliffs, NJ 


3. “DC Motors, Speed Controls, Servo Systems” Fifth 
Edition © 1980 Electro-Craft Corporation, Hopkins, 
MN 


trent AR EA A ER i te Tt en 


© 1993 Microchip Technology Inc. 


DS00532B-page 9 





0} ebed-gzesoosa 


iy 


OT] — |<0 |} 00 


P1 


RTS 


DTR 
Tx 
Rx 


RI C6 


10E16R 


+5V 


!IDB9Mini 


DO2 
Dl2 
-10V 


Ci+ 


C1- 


MAX232 


C7 
+i] 10E16R yoy 


C8 
10E16R 


Index 26 


PIC17C42 


RAO/INT 
RA1/RT 


REO/ALE 
RE1/~OE 
RE2/~WR 


RD7/AD15 
RD6/AD14 
RD5/AD13 
RD4/AD12 
RD3/AD11 


Address _ 


he) 
label BE 


~WR 


f 


V XIGNAddV 


902-7 


“OUI ABojouyoe | diyoosoIy €661 © 


” Gomes ive 
RA3 RD2/AD10 

RxD 22) Bad/RX/DT RD1/AD9 
RAS/TX/CK RDO/AD8 
RC7/AD7 

Osc RC6/AD6 
RC5/AD5 

RC4/AD4 

56 RC3/AD3 
OSC2/CLKOUT RC2/AD2 

4 MHz RC1/AD1 
2-D1 RCO/ADO 


> 
Ke) 
KO 


ut 


19 


EEPROM 
256 x 8 


> 
rs 
_s 
rm 


mu 


R2 
+5V 12KPA 
om 2 


JOJOW YSNIg-9 B JO [04]U0D OAIES 


1) TEST RBS/TCLK3 
Address RB4/TCLK12 
RB3/PWM2 

~MCLR/Vpp  RB2/PWM1 
RB1/CAP2 

~ RBO/CAP1 





ee bei 


ExtCAP 
eee CAP1 Ext 


_- LED1 
= ILN26RP 


PIC17C42 Based DC Servo Control ae 
Sheet 1 of 3 
Controller Logic 


Microchip 





WVdYSVId DILVINSHOS 


L0e-~ 


‘Ou ABojouyoe | diyOOJOI—Z EGE L © 


11 eBed-gzesoosa 









+8V 
eu 
1 
RP1 1 1 io 
3 aie { 2 P5 a RPT MH Paeea 
z ee 
i eh cea VA deans ecco 1 
- 7 19 CountDn 
Reset~ C D 
4X 2 eset ountDn 18 CountU 





CountUp 











2 t. 16 
15 
MOLEX5-M 14 
13 
12 
3 Zz p> 
8 
RP2 
"72 56PR T T; . 
— 3 
P) = Q2 R15 =a 
2N3904 | 9 12KPA ~ 
CR1 
a fit iN40o1 7 ee 
2 360PA 
2 1 2 {1 GPO~ 
te +5V ! PW soc 
— a3 ™ PWB_MCEVM1.0 — socDIP_40.6M 
fae — Z2TX451 
3 fe 6 +Limit rare ane 11 9 ie 8 sLimit~ 
Fane 4 socDIP_20.3M 
GPI 
1 | 





Sheet 2 of 3 
Encoder and I/O 





» Microchip T echnology incorporated 


Ricrochip 


P4 = 
IWTB6x.1 
4 2.7Kx7ID C28 74HC14 
2| 5 
PIC17C42 Based DC Servo Control System 


A B Cc D E 








WVYDVIG OILVINSHOS :(‘LNOD) V XIGNaddV 


JOOW YUSNIG-5q B JO JO1]U05 OAIOS 


800-7 


zt ebed-gzesoosa 


‘ou; ABojouyoe | diyooudIW E661 © 


+24V 
6 In LMD18200 LMD18200 . 
1-F4, 2-E1 Vv Bst 7 


U7 


a 2 PWM Out1 2 Motor+ 1 


10 Motor- 2 





cig _|? Oui2 
1 


Brake ; 
ue fe - 2 C18 +5V 
7 £N\ 


Ground Bs2 {1 > 12KPA 
TFlag {2 = P7 


= iSense IMinifit- 
RQ IMinifit-4 

ISense 

2.21K%1PA IDrive 



















<del 
+5V 
LN 
2 
U8 CR3 2 
5 irai2 OR? , 1N4148 
: 7 12KPA oc 
7 sae Bie CR4 
1N4148 
12KPAS. “72 1N4689 ee 
V = oe 
+24V R12 +24V ay, 
aS +24V 
MC34063 
61 Vcc « ISense 4 3 
C21 
lh By C24 +1 2 
aE = 820E50R “|5 
+1 P6 
C23 = |Minifit-2 
aE 680E6.3R 
MC34063 ie 
2 
1 18.7K%1PA 56.2K%1PA 
4 
PIC17C42 Based DC Servo Control System 
Sheet 3 of 3 
“ Supply and Output 
Microchip Technology Incorporated 
B C D E F 


WVYDVIG DILVINSHOS ‘(-LNOD) V XIGNSddV 


JOJO YSNAG-O B& JO [01}UOD OAIAS 


servo Control of a DC-Brush Motor 








APPENDIX B: ENCODER PLD EQUATIONS 


Combination quadrature decoder and input synchronizer. This design 
allows 1x decoding or 4x decoding based on the X4 pin. 


* Ver 1.0 - November 8, 1991 
} 
MODULE QuadDivider; 
TITLE QuadDivider V1.0; 
COMMENT Device: 16R8; 


TYPE MMI 16R8; 
INPUTS; 
RESET NODE[PIN2] INVERTED; 
X4 NODE[PIN3]; 
PO NODE[PIN4]; { Phid } 
P90 NODE[PIN5]; { Phi90 } 
INDX NODE[PIN6]; 
{ Feedback pins } 
S2 NODE[PIN12]; 
S4 NODE[PIN13]; 
POD NODE[PIN14]; 
P90D NODE[PIN15]; 
CntUp NODE[PIN18]; 
CntDn NODE[PIN19]; 
UP NODE[PIN16]; 
COUNT NODE[PIN17] INVERTED; 
OUTPUTS; 
S2 NODE[PIN12]; 
S4 NODE[PIN13]; 
POD NODE[PIN14]; 
P90D NODE[PIN15]; 
CntUp NODE[PIN18]; 
CntDn NODE[PIN19] 
UP NODE[PIN16]; 
COUNT NODE[PIN17] INVERTED; 


’ 





TABLE; 

S2 := POD & !RESET; 

S4 := P90D & !RESET; 

POD := PO & !RESET; 

P90D := P90 & !RESET; 

CntUp := COUNT & UP; 

CntDn := COUNT & !UP; 

COUNT := 
( POD & S2 & !P90D & S4 & X4{ Cl } 
+!POD &€ !S2 & PIDD & !S4 {C2} 
+!1POD & S2 & !P90D & !S4 & X4{ C3 } 
+ POD & !S2 & P90D & S4 & X4{ C4 } 
+ POD & S2 & P90OD & !S4 & X4{ C5 } 
+!POD & !S2 & !P90D & S4 { -C6:-} 
+!POD & S2 & P90D & S4 & X4{ C7 } 
+ POD & 'S2 & !P90D & !S4 & X4{ C8 } 
) & !RESET; 

UP = 
( 
'POD & S2 & !P90D & SA4 
+!POD & S2 & P90D & S4 
+!POD & S2 & P9OD & !S4 
+ POD & S2 & P90D & !S4 
+ POD & !S2 & P9OD & !S4 
+ POD & !S2 & !P90D & !S4 
+ POD & !S2 & !P90D & SA4 
+!POD & !S2 & !P90D & S4 
) & !RESET; 

END; 


END QuadDivider; 


a 
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APPENDIX C: (PART 1): PID ALGORITHM FLOWCHART 


7 ? | 


Enter doServo 

































Limit 


Compute Error Value U0 


















Compute proportional exceeded 
Y = Kp.U0 No 
Convert YpwM from 
Is ¥ Bypass integral unipolar to bipolar 
saturated? "Anti-wind-up" 
LMD18200 requires that 


PWM duty cycle is not 
Compute integral of Error 0% or 100% 


XU =U + U0 


compute integral portion 
Y=Y+Ki.LU 










Set Ypwm =1% 
Set YPwmM= 99% 













Compute differential 
Y = Y + Kd. (UO - U1) 





Scale Y 
Y = Y.2 SHIFTNUM 





Ypwm = 100% 
Zero lowest 6 bits 
of YPwM 
Write Ypwm high byte — PW1DCH 
Write Ypwm high byte - PW1DCL 


Save current error value as 
previous error U1 = U0 












Positive 
overflow in Y 


Yes 







Set Y to max pos value = 
007FFFFFh 

Set Y to max neg value = 
FF800000h 





No 










Negative Yes 


overflow in Y 










Extract Ypwe from Yk 
YPWM = Y <23:8> 
Check external position 
min./max. limit inputs 
























SEES PC SR ASE NE PS SS NE SLRS 
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APPENDIX C: (PART 2): PID ALGORITHM CODE LISTING 


o 
’ 
e 
e 
e 
? 
e 
, 
. 
e 


oServo 


MOV16 


LOADAB 
CALL 
MVPF 32 


CLRFE 
CPFSGT 
CALL 


LOADAB 
CALL 
ADD32 


MVFP16 


~SUB16 


MVFP16 
CALL 
ADD32 


CLRF 
CPFSGT 
GOTO 
MOVFP 


grabloop 


grabok 


poss 


negs 


RLC32 
DECF SZ 
GOTO 


CLRF 
BTFSC 
GOTO 


MOVE'P 
ANDLW 
IORWE 
CLRF 
CPESGT 
GOTO 


INCF 
CLRF 
MOVLW 
MOVPF 
SETFE 
SETF 
GOTO 


MOVE'P 
IORLW 
ANDWE 
SETF 
CPEFSLT 
GOTO 


SETF 
SETF 
CLRF 
BSF 

CLRF 
CLRF 


doServo 


POSERROR, UO 


U0, KP 
Dmult 
DPX, Y 


WREG 
SATF LAG 
doiIntegral 


INTEGRAL, KI 
Dmult 
DPX, Y 


U0, AARG 
U1, AARG 
KV, BARG 
Dmult 
DPX,Y 


WREG 
SHIFTNUM 
grabok 
SHIFTNUM, TMP 


» 4 
TMP 
grabloop 


SATFLAG 
Y+B3,MSB 
negs 


Y+B2,WREG 
0x80 
Y+B3 
WREG 
Y+B3 
zeroobits 


SATF LAG 
Y+B3 

Ox7F 
WREG, Y+B2 
Y+Bl 

Y+B0 
zero6bits 


Y+B2,WREG 
Ox7F 
Y+B3 
WREG 
Y+B3 
zero6bits 


SATF LAG 
Y+B3 
Y+B2 
Y+B2,MSB 
Y+Bl 
Y+B0 


~~. “as 78 “a “a “es 


=a 


“se 


~e -e “se te 


“a 


“ae 


va 


KKK KK KK KK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KH KKK KKK KKK KKK KKK KKK KK KK KKK KEK 


DESCRIPTION: Performs the servo loop calculations. 


save new position error in UO 


compute KP*U0 Basic PID 


calculation 
Y=KP*U0 


if previous output saturated, do panti- 
not accumulate integrator wind-up 


compute KI* INTEGRAL 
Y=KP *U0+KI* INTEGRAL 


compute KV* (U0-U1) 


Y=KP *U0+KI* INTEGRAL+KV* (U0-U1) 


scale Y by SHIFTNUM 
Y= Y * (2**SHIFTNUM) 


Scale Y 


saturate to middle 16 bits, 
keeping top 10 bits for PW1DCH 
and PWIDCL 


check if Y >= 2**23 If positive 
overflow, saturate y 
to maximum positive 
number 


if not, zero 6 bits 


if so, set Y=Ox007FFFFF 
clear for debug purposes 


overflow, saturate y 
to maximum negative 


value 


if not, zero 6 bits 


if so, set Y = OxFF800000 
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zeroobits 
MOV2 4 

doTorque 
MOVLW 
ANDWF 


BTFSC 
GOTO 
tplimit 
BTFSS 
GOTO 
CLR32 
GOTO 
tmlimit 
BTFSS 
GOTO 
CLR32 
mplimitok 
MOVLW 
MOVPF 
MOVLW 
MOVPF 
ADD16 


CLRF 

MOVLW 
MOVPE 
ADD16 


testmax 
CLRF 
CLRF 
CLRF 
MVFP16 
SUB24 
BTFSS 
GOTO 
MOV16 
GOTO 

testmin 
CLRF 
CLRF 
CLRF 
MVFP16 
SUB24 
BTFSC 
GOTO 
MOV16 

limitok 
MOVLB 
MOVEP 
MOVFP 


MOV16 


RETURN 


Y+B1, YPWM+B0 


0xC0 
YPWM+B0 


YPWM+B1,MSB 


tmlimit 


EXTSTAT, BIT6 
mplimitok 
YPWM 
mplimitok 


EXTSTAT, BITS 
mplimitok 
YPWM 


PW1DCH_INIT 
WREG, TMP+B1 


PW1DCL_INIT 


WREG, TMP+BO 
TMP , YPWM 


TMP+B1 

0x40 

WREG, TMP+BO0 
TMP, YPWM 


TMP+B2 
YPWM+B2 
YPWM+B3 
YPWMAX , TMP 
YPWM, TMP 
TMP+B2,MSB 
testmin 
YPWMAX, YPWM 
limitok 


TMP+B2 

YPWM+B2 
YPWM+B3 
YPWMIN, TMP 
YPWM, TMP 
TMP+B2,MSB 
limitok 
YPWMIN, YPWM 
BANK3 

YPWM+B0, PW1DCL 
YPWM+B1, PW1DCH 


u0,U1 


® 
é 


~“s se ve 


7e 4e Ue 


va 


~ée 


~e 


“es 


move Y to YPWM and zero 6 bits 


- entry point for torque mode 


If external position 
limits have been 
reached then zero 
PWM output. 


Convert PWM from 


adjustment from bipolar to unipolar ; s 
unipolar to bipolar 


for 50% duty cycle 


correct by 1 LSB 
add one to bitS5 of PW1DCL 


a | Sa 


PWM cycle must not 


check pwm maximum limit be 0% of 100% 


LMD18200 must have a minimum pulse 
so duty cycle must not be 0 or 100% 


saturate to max 


check pwm minimum limit 


saturate to min 


Write PWM values to 
PWM registers 


set new duty cycle 


=a 


push errors into U(k-1) 


KKK KKK KK KK KKK KK KKK KK KKK KK KKK KKK KKK KK KKK KEKE KKK KK IK KK KK KKK KKKKKKKKKKKKKKKKKKKK 


eer RE RE LL 
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APPENDIX D: ENCODER INTERFACE ROUTINE 


PRKK KK KK KR KKK KKK KK KK KKK KK KKK RK KKK KKK KK KK KKK KK KK KKK KK KK RK KK KK KKK KK KK KK KK KKK KK KK 


7; NAME: doMPosMVel 
; DESCRIPTION: Calculates current position from UpCount and DownCount 
doMPosMVelL 


; Do UpCounter first 


MVFP16 UPCOUNT, TMP+BO : save old upcount 
readUp 
MOVPF RTCCH, WREG 
MOVPF RTCCL, UPCOUNT+B0 
CPFSEQ RTCCH ; Skip next if HI hasn’t changed 
GOTO readUp ; HI changed, re-read LO 
MOVPF WREG, UPCOUNT+B1 ; OK to store: HI now 
CLRE MVELOCITY+BO ; clear bits below binary point 
MOV16 UPCOUNT,MVELOCITY+B1 ; compute upcount increment 
SUB16 TMP+BO,MVELOCITY+B1 
; Now do DownCounter 
MVFP16 DOWNCOUNT, TMP+BO ; save old downcount 
readDown 
MOVLB BANK2 ; timers in Bank 2 
MOVPF TMR3H, WREG 
MOVPF TMR3L, DOWNCOUNT+B0 
CPFSEQ TMR3H ; Skip next if HI hasn’t changed 
GOTO readDown ; HI changed, re-read LO 
MOVPF WREG, DOWNCOUNT+B1 ; OK to store HI now 
MVFP16 DOWNCOUNT+B0, TMP+B2 ; compute downcount increment 
SUB16 TMP+BO, TMP+B2 
SUB16 TMP+B2,MVELOCITY+B1 ; compute new measured velocity 
CLRF MVELOCITY+B3 ; Sign extend measured velocity for 
BTFSC MVELOCITY+B2,MSB ; 24 bit addition to measured posi- 
£407 
SETF MVELOCITY+B3 
ADD24 MVELOCITY+B1,MPOSITION; compute new measured position 
; delta position = measured velocity 
RETURN 


PRKK RK KKK KAKKKKK KKK KKK KKK KKK KKK KK KKK KKK KR KKK KKK KKK KKK RK KKK KK KR KK KK KK KK KK KKK KK KK 


a a gh ee 
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APPENDIX E: IMPLEMENTATION DETAILS OF TRAJECTORY GENERATION 


doPreMove: 


This routine is executed only once at the beginning of 
each move. First, various buffers and flags are initialized 
and a test for modetype is performed. In position mode, 
the minimum move is triangular and consists of two 
steps. Therefore, if abs (MOVVAL) > 2, an immediate 
move is performed. Otherwise, normal move generation 
is possible with the sign of the move in MOVSIGN and 
the appropriate signed velocity and acceleration limits in 
V and A, and MOVVAL/2 in HMOVVAL. 


In velocity mode, the sign of the move is calculated in 
MOVSIGN and the appropriate signed velocity and 
acceleration limits are placed in V and A. Finally, at 
modeready, MOVVAL is sign extended for higher preci- 
sion arithmetic and the servo is enabled. 


In torque mode, MOVVAL is output directly to the PWM 
and the servo is disabled, and doMove is not executed. 
doMove: 


Move generation is based on a piecewise constant 
acceleration model. During constant acceleration, this 
results in the standard equations for position and veloc- 
ity given by 


x(t) = xO + vO"t + a*(t**2)/2,v(t) = vO + a*t 


With the units for t in sample times, the time increment 
between subsequent sample times is 1, yielding the 
iterative equations for updating position and velocity 
implemented in doPosVel and given by 


P(k) = P(k-1) + V(k-1) + A/2, — V(k) = V(k-1) +A, 


where A is the signed acceleration limit calculated in 
doPreMove. The inverse equations of this iteration, 
necessary for undoing an unwanted step, are contained 
in undoPosVel and given by 


P(k-1) = P(k) - V(K-1) - A/2,  V(K-1) = V(k) - A. 


In position mode, the actual shape of the velocity profile 
depends on the values of V, A and the size of the move. 
Either the velocity limit is reached before half the move 
is completed, resulting in a trapezoidal velocity profile, or 
half the move is completed before the velocity limit is 
realized, resulting in a triangular velocity profile. 


In the algorithm employed here, the velocity limit is 
treated as a bound on the actual velocity limit, thereby 
permitting exactly the same number of steps during the 
speedup and speeddown sections of the move. Phase1 
is defined as the section of the move where the com- 
manded position is less than half the move, and phase2 
is the remaining portion of the move. T1 is time when the 
actual velocity limit is reached and T2 is the time at the 
end of phase 1. 


FIGURE A - SPEED PROFILE FOR TRAPEZOIDAL MOVES 


half move 





FIGURE B - SPEED PROFILE FOR 
TRIANGULAR MOVES 





FIGURE C - SPEED PROFILE FOR 
VELOCITY MOVES 


final velocity 


initial velocity 
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Furthermore, let x be the amount of undershoot and y the 
amount of overshoot of half the move at T2. Discretization 
error is minimized by using the values of x and y whether 
one more step will reduce the size of the final immediate 
move during the last step of the move. For a triangular 
move, the discretization error is given by min. (2x, 2y), 
resulting in the condition that if 2x > 2y, then take one 
more speedup step. In the case of a trapezoidal move, 
the discretization error is given by min. (2x, y-x), yeilding 
the condition that if 3x > y, take one more step during the 
flat section of phase2. 


At the beginning of doMove, MOVTIME is incremented 
and doPosVel is called to evaluate the next proposed 
values of commanded position and velocity under the 
current value of A. In position mode, phase1, the original 
position plus half the move minus the new proposed 
commanded position is calculated and placed in 
MOVDEL, with the previous MOVDEL saved in 
MOVTMP. As halfthe move would be passed, MOVTMP 
= -x and MOVDEL = y, with y>0 for the first time 
indicating that phase1 is about to be completed. There- 
fore, if y<0, we continue in phase1, where if maximum 
velocity has not been reached, the new proposed 
commanded position is executed. On the other hand, if 
the proposed move would exceed the maximum velocity, 
we undo the proposed move, set the current accelera- 
tion to zero, reevaluate the iterative equations with the 
new acceleration, set T1=MOVTIME-1, and execute the 
move. 


Since T1 is cleared in doPreMove, it is used as a flag to 
indicate if this corner in the velocity profile has been 
reached. Once we find that y>0, we drop into code that 
is executed only one time, with phase2 beginning on the 
next step. If T1=0, maximum velocity has not yet been 


reached, so T1=T2 and the velocity profile is triangular. 
In this case, Ais negated for speeddown, and if x>y, one 
more step is needed to minimize the discretization error. 
So A is negated, the proposed step undone, A is again 
negated for speeddown and the step recalculated and 
executed, with T2=T1=MOVTIME-1. 


If T1 is not zero, indicating that we are in the flat section 
of phase1, then go to t2net1, where T2=MOVTIME-1, 
and if 3x>y, then one more phase2 flat step is necessary 
to minimize the discretization error. PH2FLAT is defined 
as the number of steps in the flat section of phase2, and 
is used as a counter during its completion. !f 3x>y, then 
PH2FLAT=T2-T1, otherwise PH2FLAT=T2-T1-1 and 
phase’1 is finally complete. All subsequent steps will 
proceed through phase2, first deciding if the flat section 
is finished by checking if PH2FLAT has reached zero. If 
not, go to flat where PH2FLAT is decremented, and 
tested if zero. If so, the speeddown section is begun by 
calculating the appropriate signed acceleration limit A, 
and executing the last of the flat section moves. For all 
following steps, PH2FLAT=0, leaving only the final test 
for zero commanded velocity to indicate the end of the 
move. This will always occur since the actual maximum 
velocity, bounded above by the user supplied limit, is 
always an integer multiple of the user supplied accelera- 
tion limit, with exactly the same number of steps taken 
during speedup and speeddown. 


The velocity mode is much more straightforward, with 
the velocity profile in the form of a ramp. If the final 
velocity has not been reached, the move continues at 
maximum acceleration. If the final velocity has been 
reached, the acceleration is set to zero and the move 
generation of commanded position and velocity contin- 
ued unless the final velocity is zero. 


PA Nf fs Pr shh ees rete rs ns i nsressteher 
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APPENDIX F: COMPLETE CODE LISTING (DCMOTOR.LST) 


MPASM B0.54 PAGE 1 


“Revisions 2.0, 27 June 93” 


SubTitle “Revision: 2.0, 27 June 93” 


KKK KK KKK KKK IK KK KKK KK KI KKK KKK KK KKK KK IKK IK KKK KK KKK KEKE KK KE KKKKKKKKKKAKKK KK KKK 


Revised: 8/5/92 
CREDIT: Developed by Teknic Inc. 1992 


Assembled using MPASM. User’s with ASM17 are suggested to get Microchip's 
new universal assembler (MPASM). To assemble with ASM17, all “if”, “else” 
“endif” directives must be replaced by “#if”, “#else” and “#endif” 


respectively. 
KKK KKK KK KKK KK KKK KEK RK KKK KE KK KK RK KKK KKK KK KKK KEK KEKE KKK KIKI KEKE KKKKKKKKKKKKK 


=. ™s te fF -.s 3° =s «4 ~ ~ 
e . s s e 


PROCESSOR PIC17C42 
LIST COLUMNS=120, XREF=YES, NOWRAP, LINES=255, R=DEC 


oA II IK I KK II FI IC TI I I IK I KE IK KK IKK KKK KK KKK KK KK KKK KKK KK KKK KK KKK KK KKK 
; 


OOF4 2400 MASTER CLOCK set 16000000 ; Input Clock Freq in Hz 
0358 _SAMPLE_ RATE set 1000 ; Sample rate in Hz 

07D0 _ENCODER_RATE set 2000 ; 2000 Pulses/rev 

1770 _RATED_ SPEED set 6000 ; in RPM 

2580 _BAUDRATE _ set 9600 


PERK KEK KEKE KKK KKK KK EK KKK KKK KK KKK KK KKK KK KKK KK KKK KKK KEK KKK KK KEK KKK KEKE KK KKEKKEKKKKKK 


include “17¢c42.h” 


include “17c42.mac” ; General Purpose Macros 
0058 #define PICMASTER DEBUG TRUE ; Enable PIC-MASTER TRACE Capture 
0059 #define SERVO PID TRUE ; PID computation based on error 
OO5A #define DECIO TRUE ; true for decimal, false for hex 
005B #define SERIAL IO TRUE 

include “dcemotor.h17” ; Initialization, Global Defs, 


KKK KK KK KK KKK KR KKK KK KK KKH KK KKK KK KKK KKK KKKKKK KKK KKK KK KKK KKKKKK KKK KKK KKK 


Header file for dcmotor.asm: 
Revised: 8/5/92 


KKK KK KKK KK KKK IKK IKK KK KKK KK KKK KKK KK KEK KKK KK KKK KK KKK KK KKK KKKKK KKK KK KKEKKKKK KKK 


hardware constants 


~ ~ . . . - ~ ay aa! 
a e a e s a ® ) 


005C #define SET BAUD RATE (bps) ((10*MASTER_CLOCK/ (64*bps) )+5)/10 - 1 

003D 0900 CLKOUT ser MASTER CLOCK >> 2 ; Clock Out = CLKIN/4 

0006 TCON1 INIT set 0x06 

003F TCON2_ INIT set 0x3F 

OOFF PR1_INIT set OxFE ; set pwm frequency to CLKOUT/256 
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OOOF 


OO7F 
00CO 


0080 
0090 
0020 
0019 


VOUF3 
0000 


0040 
0001 
0080 
OOFE 


0018 
001C 


0018 
001C 


0020 
0023 
0026 
0026 
0028 
002A 
002C 
002C 
002D 
O02F 
0031 
0031 
0034 
0034 
0037 
0039 
003D 
0040 
0040 
0043 
0046 
0049 
004C 
004C 
004E 
0051 
0051 
0053 
0055 
0058 
005B 


0004 
0004 


0004 
0004 


0003 
0003 
0000 
0002 
0002 
0002 
0000 
0001 
0002 
0002 
0000 
0003 
0000 
0003 
0002 
0004 
0003 
0000 
0003 
0003 
0003 
0003 
0000 
0002 
0003 
0000 
0002 
0002 
0003 
0003 
0000 


PR2_ INIT 


;pwidcH_ INIT 
;pwidcL_ INIT 


PW1DCH_ INIT 
PW1IDCL_ INIT 


RTCSTA_INIT 

RCSTA_INIT 

TXSTA_ INIT 
SPBRG_ INIT 


DDRB_ INIT 
DDRD_ INIT 


: max and 


set ((1O0*MASTER CLOCK/ (4* (PR1_INIT+1)* SAMPLE RATE) )+5)/ 
set CC(PRE INIT) <<. 8) ). 23> 9 
set CCCOWRE INITHI) -<<..8))> > 1) & Ostet) 
set Ox7F 
set OxCO 
set 0x80 
set 0x90 
set 0x20 
set _SET BAUD RATE (_BAUDRATE_ ) 
set OxF3 
set 0x00 


min pwm values 


set 0x40 

set 0x01 ; Ox0000 + 0x0140 (min 10 bit 
set 0x80 

set OxFE ; OxFFCO - 0x0140 ( max 10 bit 


PRK KKK RK RK KKK KKK KKK KKK KK KKK KK KK KK KKK KK RK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KK KK KK 


; global 


CBLOCK 


CBLOCK 


CBLOCK 


variables 


0x18 

DPX, DPX1,DPX2,DPX3 

AARG, AARG1, BARG, BARG1 
ENDC 


0x18 

TMP, TMP1,TMP2, TMP3 

MOVTMP , MOVTMP1,MOVTMP2, MOVTMP 3 
ENDC 


0x20 
VL,VL1,VL2 
Al, Atl, AL? 


KP, KP1 
KV, KV1 
KI,KI1 


IM 
FV,FV1 
FA,FA1 


VALBUF, VALBUF1, VALBUF'2 


DVALBUF , DVALBUF1, DVALBUF2 
ISRBSR, ISRWREG 

CMDCHAR, CMDTEMP, CMDPTRH, CMDPTRL 
PARTEMP, PARLEN, PARPTR 


CPOSITION, CPOSITION1, CPOSITION2 
CVELOCITY, CVELOCITY1, CVELOCITY2 
CMPOSITION, CMPOSITION1, CMPOSITION2 
CMVELOCITY, CMVELOCITY1, CMVELOCITY2 


STRVALH, STRVALL 
HEXVAL, HEXTMP, HEXSTAT 


OPOSITION, OPOSITIONI1 
OPOSITION2, OPOSITION3 
POSITION, POSITION1, POSITION2 
VELOCITY, VELOCITY1, VELOCITY2 


arithmetic accumula 
multiply arguments 


temporary variables 
move temporary 


velocity limit 
acceleration limit 


proportional gain 
velocity gain 
integral gain 


integrator mode 
velocity feedforward 
acceleration 


iovalue buffer 


iovalue buffer 

isr save storage 
command interface 
parameter variables 


shutter commanded 
shutter commanded 
shutter measured 
shutter measured 


string io variables 
hex 10 variables 


original commanded 
commanded position 
commanded velocity 


ne rte i PNA tse AERA 
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OO5B 0004. NMOVVAL, NMOVVAL1, NMOVVAL2 , NMOVVAL3 ; move value 

OO5F 0004 MOVVAL, MOVVAL1, MOVVAL2, MOVVAL3 ; move value 

0063 0004 HMOVVAL, HMOVVAL1, HMOVVAL2, HMOVVAL3 ; half move value 
0067 0002 MOVTIME, MOVTIME1 ; move time in sample 
0069 0000 

0069 0001 MOVSIGN ; 0x00 for positive, 
0x80 for 

OO6A 0002 P1, T11 ; time to maximum 
006C 0002 T2,T21 ; time for half the 
QOO6E 0002 TAU, TAU1 ; total move time 
0070 0001 NMODE ; next move modetype 
0071 0001 MODE ; move modetype 

0072 0000 

0072 0003 MPOSITION, MPOSITION1,MPOSITION2 ; measured position 
0075 0002 MVELOCITY,MVELOCITY1 

0077 0002 MVELOCITY2,MVELOCITY3 ; measured velocity 
0079 0003 POSERROR, POSERROR1, POSERROR2 ; position error 
007C 0003 VELERROR, VELERROR1, VELERROR2 ; velocity error 
OO7F 0000 

OO7F 0001 SIGN ; multiply sign 

0080 0000 

0080 0004 VeVig yes Yo ; Y(k) before pwm 
0084 0004 UG,UOL, UTS, UIs ; saturated error at 
0088 0000 

0088 0004 YPWM, YPWM1, YPWM2, YPWM3 ; pwm input 

O008C 0004 YPWMIN, YPWMIN1, YPWMAX, YPWMAX1 ; pwm input limits 
0090 0000 

0090 0001 SERVOF LAG ; servoflag = 0 => no 
0091 OQ001 MODETYPE ; mode 

0092 0001 EXTSTAT ; external status 
0093 0001 MOVSTAT ; move status register 
0094 0001 MOVF LAG ; move flag 

0095 0001 SATF LAG ; saturation flag 
0096 0002 INTEGRAL, INTEGRAL1 ; integrator 

0098 0000 

0098 0004 DECVAL, DECSTAT, DECTMP , DECSIGN ; decimal io variables 
009C 0000 

009C 0004 A,A1,A2,A3 ; commanded accelera 
OOAO 0004 Vie VIG V2yVo ; commanded velocity = 
OOA4 0004 MOVPBUF, MOVPBUF1,MOVPBUF2,MOVPBUF3 ; commanded position 
OOA8 0004 MOVVBUF, MOVVBUF1,MOVVBUF2,MOVVBUF3 ; commanded velocity 
OOAC 0000 

OOAC 0002 UPCOUNT, UPCOUNT1 ; running up counter 
OOAE 0002 DOWNCOUNT, DOWNCOUNT1 ; running down counter 
OOBO 0000 

OOBO 0004 MOVDEL, MOVDEL1, MOVDEL2,MOVDEL3 ; move discretization 
OOB4 0002 PH2FLAT, PH2FLAT1 ; phase 2 flat itera 
OOB6 0003 INDEXPOS, INDEXPOS1, INDEXPOS2 ; position at last 
OOB9 0000 

00OB9 0001 SHIFTNUM ; # of bit shifts from 
OOBA 0000 

OOBA 0001 if _PICMASTER DEBUG 

OOBB 0000 PRA KKKKKKKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KKK KKK KKK KKK KK 
OOBB 0000 For PICMASTER Debug/servo tuning Purposes Only 

OOBB 0000 

OOBB 0001 CAPFLAG ; trace capture flag 
OOBC 0002 CAPCOUNT, CAPCOUNT1 ; PICMASTER trace 
OOBE 0002 CAPTMP, CAPTMP1 ; trace capture 

00CO 0000 

00Cc0 ererere) PRRKKKKKKKKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KK 


rrr nee Nh 
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00CO 0001 endif 
00C1 0000 
00C1 0002 ZERO, ONE ; constants 
00C3 0002 tblptrlTemp, tblpt rhTemp ; temp TABLE Pointers for 
00C5 0002 TblLatLo, TblLatHi ; Table Latch for ISR save 
00C7 0001 alustaTemp ; temp alusta 
00cs8 0000 
ENDC 
ok kK kk ek kK kk Rk a ke kk ke ke ek kk eek kk ke kk ke kkk kkk kk kok kk kk kk kkk 
; NAME: AUTONO 
; DESCRIPTION: Sets no auto increment or decrement 
; TIMING (cycles): 4 
AUTONO MACRO 
BSF _fs0 
BSF _fsl 
BSE _fs2 
BSF _fs3 
ENDM 
pK aK I I II II RR kk kk kk KR RK KKK KR RK KK KK KK KK KK 
pK I I I IK RK I IK KK KK KK KK KK KK KR KK KK KK KKK EKA K KKK KKK KEK KKK 
: NAME: AUTOINC 
; DESCRIPTION: Set auto increment 
; TIMING (cycles): 4 
AUTOINC MACRO 
BSF _fs0 
BCF stat 
BSF Pzy. 
BCF ts3 
ENDM 
eR KKK KK KKK KK KKK KK KKK KKK RK KK RK KK KKK KK KK RK KKK KK KK KKK KKK KK KKK RK KKK KK KKK KK RK 
pK II II IK I KI I KE KK KK KK KK KK kK KKK KEKKEKKKK KKK 
; NAME: AUTODEC 
; DESCRIPTION: Sets auto decrement 
; TIMING (cycles): 4 
AUTODEC MACRO 
BCE _fs0 
BCF ye 
BCF _fs2 
BCE _fs3 
ENDM 
gk Kk IK IK III I I II Ik I III IE I KI I ke Fe I ee I II aK a 
pI i aI III I I II TOI I I ITI I I RK TOI IER IKK kK ee 
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; NAME: LOADAB 

; DESCRIPTION: Loads extended math library AARG and BARG 
; ARGUMENTS: A => AARG 

; B => BARG 


TIMING (cycles): 4 
LOADAB MACRO A, B 


MOVFP  A+B0,AARG+BO 
MOVFP  A+B1,AARG+B1 
MOVFP  B+B0,BARG+BO0 
MOVFP  B+B1,BARG+B1 


load lo byte of A to AARG 
load hi byte of A to AARG 
load lo byte of B to BARG 
load hi byte of B to BARG 


“s “s ~s “8 


ENDM 


BRK KKK KKK KKK KEK KEK KKK IK KK KKK KK KKK KK KKK HK KKK KK KK HK KKK KKK KKK KK KKK KKK KKK KK KK 


KKK RK KKK KR KK HK KKK IK KK KK I KK KKK KK KKK KK KEK AK KEK KKK ERK KKK KKK KKK KKK KK KK KK 


A ascii constants 


Q00D CR set OxOD 

0018 CAN set 0x18 

0008 BS set 0x08 

0020 SP set 0x20 

OO0OA LF set Ox0A 

002D MN set \—/ 
ge KK RK KKK KK KKK KR KKK KK KK IK HK KEK KK KKK KEK KK KE KEK KK KK KKK KK 
: cmds constants and macros 

0001 CHARREADY set Ox01 

0008 NUMPAR set 0x08 


Response characters 


~e ses ~a 


0021 CMD_OK set Say 
003F CMD BAD set aa: 


Exit values 


“~s “e “es “5 


0000 HEX_SP set 0x00 
0001 HEX_MN set 0x01 
0002 HEX CR set 0x02 
0003 HEX CAN set 0x03 
0000 DEC SP set 0x00 
0001 DEC_MN set Ox0l 
0002 DEC _CR set Ox02 
0003 DEC CAN set OxXO3 


Command characters 


“ss “28 “8 4 


000D DO_NULL set CK 

004D DO_MOVE set ‘mM’ oo 
004F DO_MODE set ‘oO! ee) 
0053 DO_SETPARAMETER set 1s* rae) 
0052 DO_READPARAMETER set ARE ; R 
0043 DO_SHUTTER set bs 7 ¢ 
0050 DO_READCOMPOSITION set “Pe re 2d 
0056 DO_READCOMVELOCITY set ‘ve poN 
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0070 DO_READACTPOSITION set ‘pr , p 
0076 DO_READACTVELOCITY set ‘vi ; Vv 
0058 DO_EXTERNALSTATUS set PS ; X 
0059 DO_MOVESTATUS set Myer Poy 
0049 DO_READINDPOSITION set peed Pde 
0048 DO_SETPOSITION set “HH! fui 
OO5A DO_RESET set Zt ie 
0073 DO_STOP set ‘s/ ; s 
0063 DO_CAPTURE set Wed 7 Cc 
gH tk i a aa IK IK IK IK KK KKK KKK IK KK KKK KK KKK KEK KKK KK KKK KK KKK KK KKK RK Rk 
; NAME: CMD _DEF 
; DESCRIPTION: Creates all the definitions for a command table data struc- 
H ture. The first word is at the command character used, and 
: the second word is a pointer to the function that handles 
: this command function. 
; ENTRY CONDITIONS: Must be contiguous with the other entries for the 
: function to work. 
; ARGUMENTS: FUNC command execution function 
; ROOT NAME ROOT 
CMD DEF MACRO FUNC, ROOT 
DATA ROOT 
DATA FUNC 
ENDM 
0002 CMD_ENTRY_ LENGTH set 2 
ek KK KK KKK KKK OK RK RK eK RK kK RK KK KR KKK KKK KKK KKK KK KK KKK KKK KK KKK KK KKK 
pe Kk ee ee oe ee ee ee ke keke ok kee ie ie ek kk I oe ee kek kk ek kk ek kk kk KK KKK KR RK KK KKK KK KKK 
; NAME: CMD_ START 
; 
; DESCRIPTION: Labels the start of the command table. 
CMD START MACRO LABEL 
LABEL 
ENDM ; 
pI I I I I IK I KEK EK KK KKK KK KK KK KKK EK KK KKK KKK KK KKK 
KKK KKK KK KK KKK EK KKK EK EK KEK KKK KK KK KKK KK KK EK KEK RRR KK KEK KK KEK KK KK KK KK KKK KKK 
; NAME: CMD_END 
; DESCRIPTION: Marks the end of the command table with an entry of 0x00 
CMD _ END MACRO 
DATA 0x00 
ENDM ; 
p RRR KK KKK KR KK KK IK KK IK KK KKK KK KKK KK KK KKH KKK KK EK KKK KKK KK KEKE KKK KK KKK KK KKK 
ge KKK KKK KK KK IKK KK IK I KK KK KK KK KK IK KK KKK KKK KKK KKK KK KKK KK KKK KK KK 
; PID Constantnts 
; define PIV parameters, computation based on errors only. Does not involve 
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Adjust Shiftcount by maximizing Kd (for a 16 bit signed num) 


; No Load @ 2Khz : ' Kp=3600, Ki=112, Kd= 28800, Shiftcount = 3 
; With Indicator Load @ 2Khz, Kp=2300 Ki= 41, Kd= 32200, Shiftcount = 4 
; “ “ @ 4Khz Kp=1024, Ki=8, Kd=31405 , ShiftCount = 5 

? “ “ @ 0.5 Khz Kp=5400, Ki=310, Kd=23400 , ShiftCount = 2 
> No Load @ 1Khz Kp=3600, Ki=192, Kd=16800, ShiftNum = 3 

; No Load @ 1Khz Kp=1800, Ki=52, Kd=15600, ShiftNum = 4 


pK RK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KEK KKK KK EK KKK KEKE KKK KKK KKKKKKKKKKKKKKK KKK KKKKEK 


005D #define KP 1800 +; 16 bit Kp 
005E #define KI O24 ? 16-bit Ki 
005F #define KV 15600 ; 16 bit Kv 
3200 _VEL_LIMIT set ((_ RATED SPEED* ENCODER_RATE) / ; 1/4 Rated sp 
2000 _ACCL LIMIT set 0x2000 ; use smaller 
if SERVO PID == TRUE 
0004 _SHIFTNUM equ 4 
endif 


PRK KKK KKK KKK KIRK KKK KKK KKK KKK KKK KKK KKH KKK KKK KKK KKK KKK KKK KKK KAKKKEKKKKK KKK 


ORG 0x0 ; reset vector 
0000 C021 goto Startup ; startup 

ORG 0x20 . 
0020 CO7D goto InterruptPoll ; interrupt 


Kaa KK KKK KK KK KK KK KKK KKK KEK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK 


NAME: Startup 


-a 678 Ue 


DESCRIPTION: This routine is called on the hardware reset or when the 
program wishes to restore initial conditions. Initiali- 
zation of run-time constants takes place here. 


RETURNS: restart to safe and initial state 


STACK UTILIZATION: none 
TIMING (in cycles): X 


~s *e “se “se “e “ese “8 Ve 


Startup 

0021 8406 bsf _glintd ; disable all 
’ AUTONO 
7; no auto 

0022 8404 BSF _fs0 
0023 8504 BSF meet 
0024 8604 BSF _fs2 
0025 8704 BSF _fs3 
0026 BO18 moviw 0x18 ; clear all 
0027 4A01 movpf wreg,fsr0 

memloop 
0028 2900 elrft indf0 
0029 1FO1 incfsz fsr0 
002A C028 goto memloop 
002B 15C2 incf ONE 
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002C B803 movib bank3 ; bank3 ini 
002D BO3F movlw  TCON2_INIT 
OO2E 770A movfp wreg, tcon2 
002F BOTF movlw PW1DCH_INIT ; set duty 
0030 720A movfp wreg, pwldch 
0031 730A movfp wreg, pw2dch 
0032 BOCO movlw  PWIDCL_INIT 
0033 700A movfp wreg, pwldcl 
0034 710A movfp wreg, pw2dcl 
0035 BO06 movlw TCON1_ INIT ; set organization of timers 
0036 760A movfp wreg, tconl 
0037 B802 movlb bank2 ; bank2 initialization 
0038 BOFF movlw PR1 INIT 
0039 740A movfp wreg,prl ; initialize timerl period 
003A BOOF movlw PR2 INIT 
003B 750A movfp wreg,pr2 ; initialize timer2 period 
003C B800 movib bankO ; bankO initialization 
003D BO80 mov lw RTCSTA INIT 
003E 650A movfp wreg,rtcsta ; sets RTC for external input 
003F BOF8 movlw OxF8 ; RA2 connected to BREAK Input of LMD18200 
0040 0110 movwf porta ; On Reset, thus pulled high breaking the 
motor 
if SERIAL Io 
0041 BO390 movlw RCSTA INIT 
0042 730A movfp wreg,rcsta ; set receive status 
0043 BO20 movlw TXSTA_ INIT ; set transmit status 
0044 750A movfp wreg,txsta 
0045 BO19 movilw SPBRG_ INIT ; set baud rate 
0046 770A movfp wreg, spbrg 
endif 
0047 BOF3 movlw DDRB_ INIT 
0048 710A movfp wreg, ddrb ; set port B for whatever 
0049 B801 movlb bankl ; bankl initialization 
if (_SERVO_ PID == TRUE) 
MOVK16  __KP,KP 
004A BOO8 MOVLW (1800) & Oxff 
004B 0126 MOVWE KP+B0 
004C BOO7 MOVLW ((1800) >> 8) 
004D 0127 MOVWF KP+B1 
MOVK16 _KI,KI 
004E BO034 MOVLW (52) & Oxff 
OO4F 012A MOVWE" KI+BO 
0050 BOOO MOVLW ((52) >> 8) 
0051 012B MOVWE KI+B1 
MOVK16 _KV,KV 





tet perp ssf tse hte A os SS 
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0052 BOFO MOVLW (15600) & Oxff 
0053 0128 MOVWE KV+BO0 
0054 BO3C MOVLW ((15600) >> 8) 
0055 0129 MOVWE KV+B1l 

endif 


MOVK16 —ACCL LIMIT,AL 


0056 BO00O MOVLW  (_ACCL LIMIT) & Oxff 
0057 0123 MOVWF  AL+BO 
0058 B020 MOVLW ((_ACCL LIMIT) >> 8) 
0059 0124 MOVWF  AL+B1 


MOVK16 VEL LIMIT, VL 


005A B000 MOVLW (VEL LIMIT) & Oxff 
0O05B 0120 MOVWE VL+B0 
005C B032 MOVLW (( VEL LIMIT) >> 8) 
0O5D 0121 MOVWE VL+B1 
OOSE B004 movlw |= SHIFTNUM 
OOSF 01B9 movwf SHIFTNUM 
0060 5289 movpf pwidch, YPWM+B1 
0061 BO80 moviw PWMAXL ; initialize pwm limits 
0062 4A8E movpf wreg, YPWMAX+B0 
0063 BOFE moviw PWMAXH 
0064 4A8F movpf wreg, YPWMAX+B1 
0065 BO40 moviw PWMINL 
0066 4A8C movpf wreg, YPWMIN+B0 
0067 BOOL movilw PWMINH 
0068 4A8D movpf wreg, YPWMIN+B1 
0069 2916 Cire pix ; clear flags, set indiviual interrupts 
OO6A 2907 cirt intsta 
006B 8517 bosf _tm2ie 
006C 8307 bsf _peie 
006D 8C06 bcf _glintd ; enable interrupts 
OO6E B802 movib bank2 
zeroctrs 
OO6F 290B elrt rtccl ; clear up counter 
0070 290C clrf rtccn 
0071 2912 fon ls ag & tmr3l ; clear down counter 
0072 2913 elret tmr3h 
0073 BOFF movilw OXxFE 
0074 170A delay decfsz wreg 
0075 C074 goto delay 
0076 6A0B movfp rtccl,wreg 
0077 080C lorwf rtcch,W 
0078 0812 lorwf tmr31,W 
0079 0813 iorwf tmr3h,W 
OO7A 330A tstfsz wreg 
007B CO6F goto zeroctrs ; motor still moving 
007C C124 goto PollingLoop 


gk eK IK I RK KK RK KKK KKK IK RK KKK RK KKK KKK KK KK KK KKK RK EK 
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NAME: InterruptPoll 

InterruptPoll 
0O07D 0138 movwf ISRWREG ; save W Reg 
OO7E 6A04 movfp alusta,wreg 
OO7F 01C7 movwf alustaTemp ; save alusta 
0080 4F37 movpf bsr,ISRBSR ; save BSR,wreg 
0081 4DC3 movpf tbhlptrli,tblptrlTemp : save Table Pointers 
0082 4EC4 movpf tbhlptrh, tblpt rhTemp 
0083 AOCS tira 0,TblLatLo 
0084 A2C6 tlrd lL Tp lhatas ; save Table Latch 
0085 B801 movlb bankl 
0086 EOE5 call doMPosMVel ; calculate measured position and 

; velocity 
0087 E111 call doExtstat ; evaluate external status 
0088 2293 rincst MOVSTAT, W > if MOVFLAG=0 and MOVSTAT,bit7=1 
0089 BS501 andlw 0x01 ; then do premove. This is only 
OO8A 0494 subwf MOVE LAG, W ; executed once at the beginning of 
008B 9FOA btfsc wreg,MSB ; each move 
008C E23D call doPreMove 
008D 9E93 btfsc MOVSTAT, bit6é ; is motion continuing? 
OO08E E30F call doMove ; if so, do move 
OO8F EO9E call doError ; calculate position and velocity 
; error 

0090 3390 tstfisz SERVOFLAG ; test servoflag, if 0 then no servo 
0091 E4AC call doServo ; do servo 

Li _PICMASTER_ DEBUG 
0092 33BB tstfsz CAPFLAG 
0093 E79A call doCaptureRegs ; for PIC-MASTER Trace Capture, demo 

endif 
0094 B801 movib bankl 
0095 2916 Cler pir ; clear all interrupt request flags 
0096 A4Cc5 tlwt 0,TblLatLo 
0097 A6C6 tlwt 1,TblLatHi ; restored table latch 
0098 6DC3 movfp tblptrlTemp,tblptrl 
0099 6EC4 movfp tbhlptrhTemp,tblptrh ; restored table pointers 
COOSA 6F37 movfp ISRBSR,bsr y restore BSR,wreg,alusta & Table 
009B 64C7 movfp alustaTemp,alusta 
009C 6A38 movfp ISRWREG, wreg 
009D 0005 retfie 





. 
, 
. 
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Ka KKK KKK KKK KKK KK KKK KKK KK KKK KK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KEKKEKK KK KKK KK KKK 


PRK KKK KK KKK KK IK KK EK KKK IK KK KK KK KKK KEK KI HK KKK KK KKK KK KEK KKK KKK KK KKK KK KKK 


KK Kk KKK KK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKEKEKKKKEK 


; NAME: doError 

; DESCRIPTION: Calculates the position and velocity error. 
doError 

MOV24 POSITION, POSERROR : calculate position error 





SR ES a OPT ONO I TE a IT ET I EE ET IL OE a TE a a I PE Oe Ee ERT, 
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0O09E 6A55 MOVE P POSITION+B0,wreg 


; get byte of POSITION into w 
OO9F 4A79 MOVPF wreg, POSERROR+B0 7; move to POSERROR (BO) 
OOAO 6A56 MOVFP POSITION+B1,wreg ; get byte of POSITION into w 
OOA1l 4A7A MOVPF wreg, POSERROR+B1 ; move to POSERROR (B1) 
OOA2 6A57 MOVFP POSITION+B2,wreg ; get byte of POSITION into w 
OOA3 4A7B MOVPE wreg, POSERROR+B2 7; move to POSERROR (B2) 


SUB24 MPOSITION, POSERROR 


OOA4 6A72 MOVF'P MPOSITION+B0, wreg ; get lowest byte of MPOSITION into 
OOA5 0579 SUBWF POSERROR+B0 ; sub lowest byte of POSERROR, 
OOA6 6A73 MOVFP MPOSITION+B1, wreg ; get 2nd byte of MPOSITION into 
OOAT O37A SUBWFB POSERROR+B1 ; sub 2nd byte of POSERROR, save 
OOA8 6A74 MOVFP MPOSITION+B2, wreg ; get 3rd byte of MPOSITION into 
00A9 037B SUBWFB POSERROR+B2 ; sub 3rd byte of POSERROR, save 
OOAA 9F7B btfsec POSERROR+B2,MSB > saturate error to lowest 16 bits 
OOAB COB7 goto pneg 

Ppos 
OOAC 6A7A movfp POSERROR+B1,wreg 
QOOAD B580 andlw 0x80 
QOOAE 097B jorwf POSERROR+B2 
OOAF 290A clrf wreg 
00BO 327B epfsgt POSERROR+B2 
0OB1 cocl1 goto psatok 
0OB2 297B elre POSERROR+B2 ; clear high byte for debug purposes 
00B3 BO7VE moviw Ox7F 
00B4 4A7A movpf wreg, POSERROR+B1 
0OB5 2B79 setf POSERROR 
0OOB6 COC goto psatok 

pneg 
OOB7 6A7A movfp POSERROR+B1,wreg 
00OB8 B37F iorlw Ox7F 
00B9 OB7B andwf POSERROR+B2 
OOBA 2BO0A setf wreg 
0OBB 307B cpfslt POSERROR+B2 
Q0OBC cocl goto psatok 
OOBD 2B7B setf POSERROR+B2 ; set high byte to OxFF for debug 
OOBE 297A ol i ak & POSERROR+B1 
OOBF 877A bsf POSERROR+B1,MSB 
00C0 2979 elrt POSERROR 

psatok 


MOV24 VELOCITY, VELERROR calculate velocity error 


7s 


0OC1 6A58 MOVFP VELOCITY+B0,wreg ; get byte of VELOCITY into w 
00C2 4A7C MOVPE wreg, VELERROR+BO ; move to VELERROR (BO) 
00C3 6A539 MOVE'P VELOCITY+B1,wreg ; get byte of VELOCITY into w 
00C4 4A7D MOVPE wreg, VELERROR+B1 ; move to VELERROR(B1) 
00CS 6A5SA MOVEP VELOCITY+B2,wreg ; get byte of VELOCITY into w 
00C6 4A7E MOVPF wreg, VELERROR+B2 ; move to VELERROR (BZ) 


SUB24 MVELOCITY, VELERROR 


00C7 6A75 MOVFP MVELOCITY+B0,wreg ; get lowest byte of MVELOCITY into w 
00C8 O57C SUBWF VELERROR+B0 ; sub lowest byte of VELERROR, save 
00C9 6A76 MOVFP MVELOCITY+Bl1,wreg ; get 2nd byte of MVELOCITY into w 
OOCA 037D . SUBWFB VELERROR+B1 ; sub 2nd byte of VELERROR, save in 
0OCB 6A77 MOVFP MVELOCITY+B2,wreg ; get 3rd byte of MVELOCITY into w 
0O0CC O37E SUBWFB VELERROR+B2 ; sub 3rd byte of VELERROR, save in 
QOCD 9SF7E btfsc VELERROR+B2,MSB ; saturate error to lowest 16 bits 
OOCE CODA goto vneg 
vpos 
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OOCE 
0O0DO 
00D1 
00D2 
00D3 
00D4 
00D5 
00D6 
00D7 
00D8 
0O0D9 


OODA 
00DB 
00DC 
00DD 
OODE 
OODF 
OO0EO 
OOE1 
0O0E2 
00E3 


00E4 


QOES 
OOE6 


00R7 
00E8 
O09 
OOEA 
OOEB 


OOEC 


OOED 
QOOEE 
OOEF 
OOFO 


OOF] 
0O0F2 
00F3 
OOF4 


6A7D 
B580 
O97E 
290A 
327E 
COE4 
297E 
BO7F 
4A7D 
2B7C 
COE4 


6A7D 
B37F 
OB7E 
2B0A 
307E 
COR4 
2B7E 
297D 
877D 
297C 


0002 


T8AC 
79AD 


4COA 
4BAC 
310¢€ 
COE? 
4AAD 


2975 


6AAC 
0176 
6AAD 
0177 


6A18 
0576 
6A19 
0377 


movfp VELERROR+B1,wreg 
andlw 0x80 
iorwf VELERROR+B2 


Clrt wreg 

cpfsgt VELERROR+B2 
goto vsatok 

clrf VELERROR+B2 


movlw Ox7F 
movpf wreg, VELERROR+B1 


setf VELERROR 
goto vsatok 

vneg 
movfp VELERROR+B1,wreg 
iorlw Ox7F 
andwf VELERROR+B2 
setf wreg 
cpfslt VELERROR+B2 
goto vsatok 
setf VELERROR+B2 
CLer VELERROR+B1 
bsf VELERROR+B1,MS5B 
rom ay a VELERROR 

vsatok 
return 


eR KK RK KKK KEK KKK KKK KK IK KR KKK KEK KKK KK KKK KKK KK KKK KK KR KK KK KK KK RK KK KK KK 


NAME: doMPosMVel 


“e “s ee se We 


doMPosMVel 


; Do UpCounter first 


MOVFP16 UPCOUNT, TMP+B0O ; save old upcount 


MOVE'P UPCOUNT+B0, TMP+B0+B0 
MOVE P UPCOUNT+B1, TMP+B0+B1 


readUp 
movpf rtcch, wreg 
movpft rtccl, UPCOUNT+B0 
cpfseq rtcch 
goto readUp 
movpf wreg, UPCOUNT+B1 


elrt MVELOCITY+B0 
MOV16 UPCOUNT, MVELOCITY+B1 


MOVFP  UPCOUNT+B0,wreg 
MOVWE MVELOCITY+B1+B0 
MOVFP  UPCOUNT+B1,wreg 
MOVWF  MVELOCITY+B1+B1 


SUB16 TMP+B0,MVELOCITY+B1 


MOVE'P TMP+B0+B0,wreg 
SUBWF MVELOCITY+B1+B0 
MOVE P TMP+B0+Bl1,wreg 
SUBWFB MVELOCITY+B1+B1 


7s se 


“sa “ee ve 


“as 


~s 


=e “se “ses “Ee 


wa *e “ee Ne 


move UPCOUNT (BO) 
move UPCOUNT(B1) 


Skip next if HI 


Kk kkk KK KK kk KK KK kK KKK KK IKK KK KKK KKK KKK KKK KKK KK KKK KKKKKE KKK KK KKK 


DESCRIPTION: Calculates current position from UpCount and DownCount 


to TMP+BO (BO) 
to TMP+BO0 (B1) 


hasn’t changed 


HI changed, re-read LO 
OK to store HI now 


clear bits below binary point 


compute upcount 


increment 


get byte of UPCOUNT into w 
move to MVELOCITY+B1 (BO) 
get byte of UPCOUNT into w 
move to MVELOCITY+BI1 (B1) 


get lowest byte 
sub lowest byte 
get 2nd byte of 
sub 2nd byte of 


of TMP+B0O into 
of 

TMP+BO into w 

MVELOCITY+B1, 
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OOFS 78AE 
OOF6 79AF 


OOF? B802 
OOF8 530A 
OOF9 S2AE 
OOFA 3113 
OOFB COF7 
OOFC 4AAF 


OOFD 7AAE 
OOFE 7BAF 


OOFF 6A18 
0100 051A 
0101 6A19 
0102 031B 


0103 6A1A 
0104 0576 
0105 6A1B 
0106 0377 


0107 2978 
0108 9F77 
0109 2B78 


O10A 6A76 
010B OF72 
010C 6A77 
010D 1173 
O10E 6A78 
O10F 1174 


0110 0002 


0111 9407 
0112 C11B 


3; Now do DownCounter 


MOVFP16 DOWNCOUNT, TMP+B0 


MOVF'P DOWNCOUNT+B0, TMP+B0+B0 
MOVFP DOWNCOUNT+B1, TMP+B0+B1 
readDown 
movlb bank2 ; timers in Bank 2 
movpf tmr3h,wreg 
movpf tmr31, DOWNCOUNT+B0 
cpfseq tmr3h 
goto readDown 
movpf wreg, DOWNCOUNT+B1 
MOVEFP16 DOWNCOUNT+B0, TMP+B2 
MOVEP DOWNCOUNT+B0+B0 , TMP+B2+B0 
MOVFP 


SUB16 TMP+BO, TMP+B2 

MOVE'P TMP+B0+B0,wreg 
SUBWF TMP+B2+B0 
MOVFP TMP+B0+Bl,wreg 
SUBWFB TMP+B2+B1 

SUB16 TMP+B2,MVELOCITY+B1 
MOVFP TMP+B2+B0,wreg 
SUBWF MVELOCITY+B1+B0 
MOVFP TMP+B2+Bl,wreg 
SUBWFB MVELOCITY+B1+B1 
Clee MVELOCITY+B3 
btfsc MVELOCITY+B2,MSB 
setf MVELOCITY+B3 

ADD24 MVELOCITY+B1,MPOSITION 
MOVE'P MVELOCITY+B1+B0,wreg 
ADDWF MPOSITION+B0 
MOVE'P MVELOCITY+B1+B1, wreg 
ADDWFC MPOSITION+B1 
MOVE P MVELOCITY+B1+B2,wreg 


ADDWFC MPOSITION+B2 


return 


; NAME: doExtstat 
; DESCRIPTION: 
doExt stat 
btfiss .Antir 
goto otherbits 


MOV2 4 


DOWNCOUNT+B0+B1, TMP+B2+B1 


=e te 


~e “8 ~e 


7s “ee re 


7e we 


=e =e “ae 


~s es 


=s te ~e 


we tse wa ve 


save old downco 


unt 


move DOWNCOUNT (B0} to 
move DOWNCOUNT(B1) to 


Skip next if HI 
HI changed, re- 
OK to store HI 


compute downcou 


hasn’t changed 
read LO 
now 


nt increment 


move DOWNCOUNT+B0(B0) to 
move DOWNCOUNT+B0(B1) to 


get lowest byte 
sub lowest byte 
get 2nd byte of 
sub 2nd byte of 


compute new mea 


get lowest byte 
sub lowest byte 
get 2nd byte of 
sub 2nd byte of 


sign extend meas 
24 bit addition 


compute new meas 


get lowest byte 
add lowest byte 
get 2nd byte of 
add 2nd byte of 
get 3rd byte of 
add 3rd byte of 


delta position = 


MPOSITION, INDEXPOS 


of TMP+BO into 
of TMP+B2, save 
TMP+BO into w 

TMP+B2, save in 


sured velocity 


of TMP+B2 into 
of 

TMP+B2 into w 

MVELOCITY+B1, 


ured velocity 
to measured 


ured position 


of MVELOCITY+B1 
of MPOSITION, 
MVELOCITY+B1 
MPOSITION, save 
MVELOCITY+B1 
MPOSITION, save 


measured 


ee ee eS ee eee eT TTT TTS TETAS 


Get +limit,-limit,GPI from PORTB and set in EXTSTAT 
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0113 6A72 MOVE P MPOSITION+B0, wreg ; get byte of MPOSITION into w 
0114 4AB6 MOVPF wreg, INDEXPOS+B0 ; move to INDEXPOS (BO) 
0115 6A73 MOVFP MPOSITION+B1, wreg ; get byte of MPOSITION into w 
0116 4AB7 MOVPF wreg, INDEXPOS+B1 7 move to INDEXPOS (B1) 
0117 6A74 MOVE'P MPOSITION+B2, wreg ; get byte of MPOSITION into w 
0118 4AB8 MOVPE wreg, INDEXPOS+B2 * move to INDEXPOS (B2) 
0119 8C07 bef —intir 
O11A 8792 bsf EXTSTAT, MSB 
otherbits 
011B B800 movlb bank0O ; get +limit,-limit and GPI 
011C 6A12 movfp porth, wreg 
011D 190A ECE wreg ; arrange in correct bit posi 
O11E B561 andlw 0x61 
O11F 4A18 movpf wreg, TMP 
0120 1D18 swapf TMP 
0121 0818 lorwf TMP, W 
0122 0992 lorwf EXTSTAT ; set in EXTSTAT 
0123 0002 return 
: KKK KK KKK KK KKK KK KKK KK KKK KK KEK KKK KK KK KEK KKK KKK KKK KE KK KEK KKK KKK KK KEKE KKK KKKKKKEK 
pK KK KKK KK KKK IK RK KKK KKK KK KKK KK KKK IKK KKK KKK KKK KKK KK KKK KEK KK KKK KKK KKKKK KK KKK 
; NAME: PollingLoop 
; DESCRIPTION: The actual polling loop called after the board’s 
A initialization 
; ENTRY CONDITIONS: System globals and hardware initialized and the 
; interrupt processes started. 
PollingLoop 
if SERIAL IO 
0124 E557 call IdleFunction 
0125 E681 call GetChk 
0126 31C2 cpfseq ONE ; GetChk, is receive buffer full? 
0127 C124 goto PollingLoop 
0128 E676 call GetChar ; if so, get character 
0129 4A39 movpf wreg,CMDCHAR 7 put in CMDCHAR 
012A C559 goto DoCommand 
else 
clrwdt 
goto PollingLoop ; wait for Interrupt 
endif 


ga ee eK I I KR RK KK KK KR KK KKK KK RK KK eR RR KR kK 


include “mult.asm” > Double Precision 
Multiplication Routine 


pK KK KK KK KKK KK KKK KK KK KKK KKK KKK KKK KK KK KKK KEKE KKK KKK KKK KKK 


Double Precision Multiplication Routine 
NAME: Dmult 
DESCRIPTION: Mult: AARG (16 bits) * BARG (16 bits) -> DPX (32 bits) 
(a) Load the lst operand in locations AARG+B0O & AARG+B1 (16 bits) 
(b) Load the 2nd operand in locations BARG+B0 & BARG+Bl1 (16 bits) 


(c) call Dmult 
(ad) The 32 bit result is in locations (DPX+B0,DPX+B1,DPX+B2,DPX+B3) 


=e 


=e we Fe OMe 


In the signed case, a savings of 9 clks can be realized by choosing 





AE TPE TS RTI EDL IL EN IN SO OO IES TSE LEE DEEL ENT TE ET EET EEE ES I EE RE EE ES RD EN LE HE DE LE NS a 
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0001 


BARG as the positive factor in the product when possible, 


TIMING (worst case): unsigned: 173 clks 
signed: if BARG positive: 170 clks 
if BARG negative: 179 clks 


se “5s 78 *e “se ~se 


p RR KKK KEKE KKK ERK KK KKK EK KKK KK KKK KK KKK EK KK EK KEKE KK KEK KEK KKK KEK KKKKKEKKKKKKKKKKKK 


SIGNED equ TRUE ; Set This To ‘TRUE’ for signed multiply 
; and ‘FALSE’ for unsigned. 


KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KEK KKK KEK KEKE KK KEKE KKKKKKKKEKKKEKKKKEKKKE 


Multiplication Macro 
KKK KK KKK KK KKK KK KKK IK KKK KK KKK KK KKK EK KKK KKKKKEKK KKK KKKKKKK KKK KKK KK KK KKK KK KKK 


TIMING: unsigned: 114+7*104+8*11 = 169 clks 
(worst case) signed: 11+7*10+7*11+5 163 clks 


=e “es “s =e aT “ses “we 


MULTMAC MACRO 
variable i 


i= 0 
Lt SIGNED 
while i< 15 
else 
while i < 16 
endif 
if i< 8 
btfsc BARG+B0, i ; test low byte 
else 
btfsc BARG+B1,.i-8 ; test high byte 
endif 
goto add#v (i) 
if i <8 
tlct DPX+B3,W ; rotate sign into carry bit 
Pret DPX+B3 ; for i < 8, no meaningful 
Trct DPX+B2 ; are in DPX+B0 
Eres DPX+Bl1 
else 
rlet DPX+B3,W ; rotate sign into carry bit 
ELCL DPX+B3 
Freer DPX+B2 
Eres DPX+B1 
ErCrE DPX+B0 
endif 
i = i+l 
endw 
eLre DPX+B0 ; if we get here, BARG = 0 
return 
addo 
movfp AARG+B0, wreg 
addwf DPX+B2 ;add lisb 
movfp AARG+B1l,wreg 
addwfc DPX+B3 7;add msb 
Pict AARG+B1,W ; rotate sign into carry bit 
ECL DPX+B3 ; for i < 8, no meaningful 
rrct DPX+B2 ; are in DPX+B0 
ELGE DPX+Bl1 
i=l 


akg SIGNED 


while i < 15 


Rare iariecaetiereenenacccaer came acerca eres nn en ee eee raaieneennmennininentnamaenemnmesmaneamimenemensnemeamannimdmmenemneteesamatmmmmmeneaeaauanemenmnammn nee teaen-entetmeneceeentaemeateenmemmeemnc scence ante aca 
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else 
while i < 16 
endif 
iy ge Oe le 
btfss BARG+B0, i ; test low byte 
else 
btfss BARG+B1,1i-8 ; test high byte 
endif 
goto noadd#v (i) 
add#v (i) 
movfp AARGtBO, wreg 
addwf DPX+B2 ;add lsb 
movfp AARG+B1,wreg 
addwtc DPX+B3 ;add msb 


noadd#v (i) 


if a-< 8 
rick AARG+B1,W , rotate sign into carry bit 
CeCE DPX+B3 ; for i < 8, no meaningful 
FrcE DPX+B2 ; are in DPX+BO 
Trot DPX+B1 

else 
rleft AARG+B1,W ; rotate sign into carry bit 
rret DPX+B3 
rret DPX+B2 
Erct DPX+B1 
reCT DPX+BO 

endif 

i = itl 

endw 





ae SIGNED 


YicE AARG+B1,W ; Since BARG is always made 
rrcef DPX+B3 ; the last bit is known to be 
rrcef DPX+B2 
rrcf DPX+B1 
rrcf DPX+BO0 
endif 
ENDM 


; Double Precision Multiply ( 
; ( AARG*BARG -> : 32 bit 


Dmult 
if SIGNED 


012B 971F btfss BARG+B1,MSB ; test sign of BARG 
C120 2137 goto argsok ; Af positive, ok 
NEG16 AARG+BO0O ; if negative, then negate 
OLZD“ 138i COMF AARG+B0+B0 
012E 131D COME" AARG+B0+B1 
O12F 290A CLRF wreg 
0130 151¢ INCF AARG+B0+B0 
0131 111D ADDWFC AARG+B0+B1 
NEG16 BARG+B0 ; AARG and BARG 
0132 131E COME" BARG+B0+B0 
0133 131F COMF BARG+B0+B1 


A NT SOR TSA 7 RS SG ee RN TS ST 
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0134 290A CLRF wreg 
0135 1515 INCF BARG+B0+B0 
0136 111F ADDWFC BARG+BO+B1 
endif 
argsok 
0137 291B clrf DPX+B3 ; clear initial partial product 
0138 291A Cire DPX+B2 
MULTMAC . ; use macro for multiplication 
0000 variable i 
0000 i= 0 


LE SIGNED 
while i< 15 


else 
while i < 16 
endif 
if i< 8 
btfsc BARG+B0, i ; test low byte 
else 
btfsc BARG+B1,i-8 ; test high byte 
endif 
goto addi#v (i) 
a 8 
Fict DPX+B3,W ; rotate sign into carry bit 
Erect DPX+B3 ; for i < 8, no meaningful 
bits 
reCL DPX+B2 ; are in DPX+BO 
rrcef DPX+B1 
else 
rict DPX+B3,W ; rotate sign into carry bit 
ror DPX+B3 
rret DPX+B2 
rrcf DPX+B1 
rrcf DPX+B0 
endif 
i = itl 
endw 
if i< 8 
0139 981E btfisc BARG+B0, i ; test low byte 
else 
btfsc BARG+B1,1-8 ; test high byte 
endif 
013A C19C goto addo 
Lf 20< 8 
013B 1A1B eet DPX+B3, W . ; rotate sign into carry bit 
013C 191B rrcef DPX+B3 ; for i < 8, no meaningful 
013D 191A cag Oo DPX+B2 ; are in DPX+BO 
O13E 1919 ECE DPX+B1 
else 
rlet DPX+B3,W ; rotate sign into carry bit 
rref DPX+B3 
rrcef DPX+B2 
rrcf DPX+B1 
ercr DPX+B0 
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0001 


013F 


0140 
0141 
0142 


0143 
0144 


0002 


0145 


0146 
0147 
0148 


0149 
014A 


0003 


014B 


991E 


C1A6 


1AIB 
L9LB 
191A 
1919 


9ALE 


C1BO 


1A1B 
191B 
191A 
LOL9 


9B1E 


014C C1IBA 


endif 
i = itl 
if i< 8 
btfsc BARG+B0, i 
else 
btfsc BARG+B1,i-8 
endif 


goto addl 


if i< 8 
rict DPX+B3,W 
rrcf DPX+B3 
rrcft DPX+B2 
rrcef DPX+B1 
else 
rlcf DPX+B3,W 
EYC£E DPX+B3 
rrcef DPX+B2 
rref DPX+B1 
rrcf DPX+BO0 
endif 
1 = itl 
if i < 8 
btfsc BARG+B0, i 
else 
btfsc BARG+B1,i-8 
endif 


goto add2 


if i< 8 
ricf DPX+B3,W 
rrcef DPX+B3 
rrcf DPX+B2 
rrcf DPX+B1 
else 
ricf DPX+B3, W 
rrcf DPX+B3 
rrcf = DPX+B2 
rrcf DPX+B1 
rrceft DPX+B0 
endif 
i = i+l 
if i< 8 
btfsc BARG+B0, i 
else 
btfsc BARG+B1,i-8 
endif 


goto add3 
if 2.< 8 


test low byte 


test high byte 


rotate sign into carry bit 
for i < 8, no meaningful 
are in DPX+BO 


rotate sign into carry bit 


test low byte 


test high byte 


rotate sign into carry bit 
for i < 8, no meaningful 
are in DPX+BO 


rotate sign into carry bit 


test low byte 


test high byte 


ner oe ey ARN hte SE sh Es a A 
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014D 1A1B rict DPX+B3,W ; rotate sign into carry bit 
014E 191B erct DPX+B3 ; for i < 8, no meaningful 
O14F 191A Fret DPX+B2 ; are in DPX+BO 
0150 1919 LEce DPX+B1 
else 
ELGr DPX+B3,W ; rotate sign into carry bit 
ret DPX+B3 
reer DPX+B2 
recor DPX+B1 
rret DPX+BO 
endif 
0004 i = itl 
a oie ne Sam 
0151 9CI1E btfsc BARG+B0, i ; test low byte 
else 
btfsc BARG+B1,1i-8 ; test high byte 
endif 
0152 C1c4 goto add4 
Lf a. -< 38 
0153 1A1B ricer DPX+B3,W ; rotate sign into carry bit 
0154 191B ¥rert DPX+B3 ; for i < 8, no meaningful 
0155 191A ror DPX+B2 ; are in DPX+BO0 
0156-1919 Eret DPX+B1 
else 
lee DPX+B3,W ~ ; rotate ‘sign “into: carry bit 
Eres DPX+B3 
Fret DPX+B2 
ErCL DPX+B1 
Ero DPX+B0 
endif 
0005 i = itl 
. Lf. 2 -<" 8 
0157 9D1E btfsc BARG+BO, i ; test low byte 
else 
btfsc PARG+B1,1i-8 ; test high byte 
endif 
0158 C1CE goto add5 
Ae ae 38 
0159 1A1B . tier DPX+B3,W ; rotate sign into carry bit 
015A 191B rret DPX+B3 ; for i < 8, no meaningful 
015B 191A rrcf DPX+B2 ; are in DPX+B0 
GLC. 1O19 rror DPX+B1 
else 
£LGE DPX+B3,W ; rotate sign into carry bit 
rrcef DPX+B3 
rret DPX+B2 
rref DPX+B1 


RE SNS SSS ES PS LE ES ST a EE SO SEE TE 
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0006 


015D 


O15 
O15F 
0160 


0161 
0162 


0007 


0163 


0164 


0165 
0166 
0167 
0168 


0008 


9E1E 


CLD8 


1A1B 
191B 
191A 
LILY 


9F1E 


C1E2 


1A1B 
LOL. 
191A 
L9Lg 


0169 981F 


rrcef 


endif 


ee, 


if i< 8 
btfsc 


else 
btfsc 


endif 


goto 
i cope Oe A 3 
ricf 
rrceft 
rrcf 
rrcf 
else 
rilef 


Lrerk 


rref 


rrcef 


rret 


endif 


i = itl 


cy ies Oe SOE 3) 
btfsc 


else 
btfsc 


endif 
goto 

2 20 
rlcf 
rrcef 
rrer 
rrcef 


else 
ricf 


rrcf 


rrcf 


rrcef 


rrcf 


endif 


i = itl 


if i< 8 


btfsc 


else 


btfsc 


endif 


DPX+BO 


BARG+BO, i 


BARG+B1,i-8 


add6 
DPX+B3,W 
DPX+B3 
DPX+B2 
DPX+B1 
DPX+B3,W 
DPX+B3 
DPX+B2 


DPX+B1 


DPX+B0 


BARG+BO0, i 


BARG+B1,1i-8 


add7 
DPX+B3,W 
DPX+B3 
DPX+B2 
DPX+B1 
DPX+B3,W 
DPX+B3 
DPX+B2 


DPX+B1 


DPX+BO 


BARG+B0O, i 


BARG+B1,i-8 


test low byte 


test high byte 


rotate sign into carry bit 
for i < 8, no meaningful 
are in DPX+BO 


rotate sign into carry bit 


test low byte 


test high byte 


rotate sign into carry bit 
for i < 8, no meaningful 
are in DPX+B0 


rotate sign into carry bit 


test low byte 


test high byte 


re area lh 
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016A 


016B 
016C 
016D 
016E 
O16F 


0009 


0170 


0171 


0172 
Olds 
0174 
OLS 
0176 


OOOA 


0177 


0178 


0179 1A1B 
O17A 191B 
017B 191A 


CLEC 


1A1B 
191B 
191A 
1919 
1918 


OoLE 


Cley 


1A1B 
‘S18 
191A 
1919 
LOLS 


9A1F 


G202 


goto 
at a0 6.58 
ctlicf 


rrcef 


rrcef 


rreft 


else 


rier 

rrcef 

£ret 

Fret 

rref 
endif 

ee Sl 


if i< 8 
btfsc 


else 


btfse 
endif 

goto 
if 1 <= 8 

Plot 


rrct 


rrceft 


rrcef 


else 


rlcf 

rrcf 

rref 

rrcef 

rrct 
endif 

i = itl 


if i< 8 
btfsc 


else 
btfsc 
endif 
goto 
if i< 8 
ricf 
rrcf 
rrceft 
rrcf 
else 
ricf 


rrcf 
rrcf 


add8 
DPX+B3,W 
DPX+B3 
DPX+B2 


DPX+B1 


DPX+B3,W 
DPX+B3 
DPX+B2 
DPX+Bl1 
DPX+BO0 


BARG+B0, i 


BARG+B1,i-8 
add9 
DPX+B3,W 
DPX+B3 
DPX+B2 


DPX+B1 


DPX+B3,W 
DPX+B3 
DPX+B2 
DPX+B1 
DPX+BO0 


BARG+B0, i 


' BARG+B1,i-8 


add10 


DPX+B3,W 


DPX+B3 


DPX+B2 


DPX+B1 


DPX+B3,W 
DPX+B3 
DPX+B2 


rotate sign into carry bit 
for i < 8, no meaningful 


are in DPX+BO0 


rotate sign into carry bit 


test low byte 


test high byte 


rotate sign into carry bit 


for i < 8, no meaningful 


are in DPX+B0 


rotate sign into carry bit 


test low byte 


test high byte 


rotate sign into carry bit 


for i < 8, no meaningful 


are in DPX+BO 


rotate sign into carry bit 
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O17C 1919 Erer DPX+Bl 
O17D 1918 rret DPX+BO 
endif 
000B i = itl 
nih ope i Go) 
btfsc BARG+BO, 1 ; test low byte 
else 
O17E 9BIF btfsc BARG+B1,i-8 ; test high byte 
endif 
O17F C20D goto addll 
bo) eke Oe te | 
rls DPX+B3,W ; rotate sign into carry bit 
ELST DPX+B3 ; for i < 8, no meaningful 
Pret DPX+B2 ; are in DPX+B0 
PeCE DPX+B1 
else 
0180 1A1B calles ol DPX+B3,W ; rotate sign into carry bit 
0181 191B reer DPX+B3 
0182 191A LECE DPX+B2 
0183 1919 ELCE DPX+B1 
0184 1918 Free DPX+B0 
endif 
000C i = itl 
A ih oes ee ee | 
btfsc BARG+B0,i ; test low byte 
else 
0185 9C1F btfsce BARG+B1,1i-8 ; test high byte. 
endif 
0186 C218 goto addi2 
GEA. 28 
rier DPX+B3,W ; rotate sign into carry bit 
Errer DPX+B3 ; for i < 8, no meaningful 
trot DPX+B2 ; are in DPX+B0 
LreL DPX+B1 
else 
0187 1A1B rlef DPX+B3,W ; rotate sign into carry bit 
0188 191B Erect DPX+B3 
0189 191A rrer DPX+B2 
018A 1919 ECL DPX+B1 
018B 1918 rrer DPX+B0 
endif 
OOO0D i = itl 
Lf a= 38 
btfsc BARG+B0, i ; test low byte 
else 
018C 9DIF bErSse BARG+B1,1i-8 ; test high byte 
endif 
018D C223 goto add13 
985 7d. 2-8 
CECE DPX+B3,W ; rotate sign into carry bit 
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018E 
018F 
0190 
0191 
0192 


000E 


0193 


0194 


0195 
0196 
0197 
0198 
0199 


OOOF 


019A 
019B 


O19C 
019D 
O19E 
O19F 
O1A0 
O1A1 
O1A2 
O1A3 


0001 


1A1B 
191B 
191A 
LOLS 
1918 


9E1F 


C22E 


1A1B 
191B 
191A 
Logis 
1918 


2918 
0002 


6A1C 
OF 1A 
6A1D 
1133 
1A1D 
Lois 
191A 
LOLS 


addo 


Le 


rrcet 

rref 

Fret 
else 


rler 

rrcef 

rrcet 

rret 

Ercr 
endif 

i = itl 


if i< 8 
btfsc 


else 


btfsc 
endif 

goto 
Gee eS 

PLer 


FrCt 

Ercer 

Cret 
else 


PLL 

bag elo 3 

Erce 

ErcE 

rrcf 
endif 

i = itl 


CLYEE 
return 


movfp 
addwf 
movfp 
addwfc 
rick 
rrcf 
rrct 
eret 


SIGNED 


DPX+B3 . 
DPX+B2 


DPX+B1 


DPX+B3,W 
DPX+B3 
DPX+B2 
DPX+B1 
DPX+B0 


BARG+B0, i 


BARG+B1,i-8 
addl14 
DPX+B3,W 
DPX+B3 
DPX+B2 


DPX+B1 


DPX+B3,W 
DPX+B3 
DPX+B2 
DPX+B1 
DPX+BO 


DPX+B0O 


AARG+B0, wreg 
DPX+B2 
AARG+B1,wreg 
DPX+B3 ;add msb 
AARG+B1,W 

DPX+B3 

DPX+B2 

DPX+B1 


while i < 15 


else 
while i < 16 


endif 


e 
, 


. 
la 


e 
, 


° 
, 


for i < 8, no meaningful 


are in DPX+B0 


rotate sign into carry bit 


test low byte 


test high byte 


rotate sign into carry bit 


for i < 8, no meaningful 


are in DPX+B0 


rotate sign into carry bit 


if we get here, BARG = 0 


;add l1sb 


° 
tf 


. 
f 


. 
, 


rotate sign into carry bit 
for i < 8, no meaningful 
are in DPX+B0 
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cis ape fame Sia 

btfss BARG+BO, 1 ; test low byte 
else 

btfss BARG+B1,i-8 ; test high byte 
endif 

goto noadd#v (i) 

add#v (1) 

movfp AARG+BO0,wreg 

addwf DPX+B2 ;add lsb 

movfp AARG+B1,wreg 


addwfc DPX+B3 ;add msb 


noadditv (i) 





de As 3S <8 
iad Keke AARG+B1,W ; rotate sign into carry bit 
rer DPX+B3 ; for i < 8, no meaningful bits 
Prot DPX+B2 ; are in DPX+B0 
EYreE DPX+B1 
else 
rict AARG+B1,W ; rotate sign into carry bit 
rrcf DPX+B3 
Ercr DPX+B2 
Error DPX+B1 
fret DPX+B0 
endif 
i = itl 
endw 
Le ee 
O1A4 911E btfss BARG+BO, i ; test low byte 
else 
btfss BARG+B1,i-8 ; test high byte 
endif 
O1A5 C1AA goto noaddl 
addl 
O1A6 6A1C movfp AARG+B0, wreg 
O1A7 OFIA addwf DPX+B2 ;add lsb 
O1A8 6A1D movfp AARG+B1,wreg 
O1A9 111B addwfc DPX+B3 ;add msb 
noaddl 
es a, 
O1AA 1A1D rlef AARG+B1,W ; rotate sign into carry bit 
01AB 191B rrcf DPX+B3 ; for i < 8, no meaningful bits 
O1AC 191A rrcf DPX+B2 ; are in DPX+BO 
O1AD 1919 Sof oo DPX+B1 
else 
rLee AARG+B1,W ; rotate sign into carry bit 
PVC DPX+B3 
LCrc£ DPX+B2 
EECT DPX+B1 
Erect DPX+B0 


a ILI IT TI ITT I TT NE TI I TE I SIT NT LET TS EDT TEES IT TS AE ETN LEN TL RENT IE 
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0002 


O1AE 


O1AF 


01B0 
O1B1 
01B2 
01B3 


01B4 
01B5 
01B6 
01B7 


0003 


01B8 


O1B9 


O1BA 
O1BB 
01BC 
01BD 


O1BE 
O1LBE 
01C0 


921E 


C1B4 


6A1C 
OF1A 
6A1D 
x 


1A1D 
191B 
191A 
1919 


931E 


C1BE 


6A1C 
OF1A 
6A1D 
111B 


1A1D 
191B 
191A 


add2 


noadd2 


add3 


noadd3 


endif 


i = itl 
if i< 8 
btfss 
else 
btfss 
endif 
goto 
movfp 
addwf 
movfp 
addwfc 
if i< 8 
xricf 
rrcf 
rrcf 


rref 


else 


rlct 
£rCL 
rref 
rree 


rrcf 


endif 


i = itl 


tf 3-8 
btfss 

else 
btfss 


endif 
goto 
movfp 
addwf. 
movfp 
addwfc 

if i< 8 
ricf 


rrcf 
rrcft 


BARG+B0, i ; test low byte 
BARG+B1,i-8 ; test high byte 
noadd2 
AARG+BO, wreg 
DPX+B2 ;add ilsb 
AARG+B1,wreg 
DPX+B3 ;add msb 
AARG+B1,W ; rotate sign into carry bit 
DPX+B3 . ; for i < 8, no meaningful 
DPX+B2 ; are in DPX+B0 
DPX+B1 
AARG+B1,W ; rotate sign into carry bit 
DPX+B3 
DPX+B2 
DPX+B1 
DPX+B0 
BARG+BO, i ; test low byte 
BARG+B1,i-8 ; test high byte 
noadd3 
AARG+B0, wreg 
DPX+B2 ;add lsb 
AARG+B1,wreg 
DPX+B3 ;add msb 
AARG+B1,W ; rotate sign into carry bit 
DPX+B3 ; for i < 8, no meaningful 
DPX+B2 ; are in DPX+B0 


renee tener nets hh tt se 


DS00532B-page 44 


© 1993 Microchip Technology Inc. 
4-240 


Servo Control of a DC-Brush Motor 








OL. G19 FICE DPX+B1 
else 
ELCE AARG+B1,W ; rotate sign into carry bit 
igi meun DPX+B3 
rrcf DPX+B2 
rrcf DPX+B1 
aga oH DPX+B0 
endif 
0004 i = itl 
DE A. < 38 
01C2 9415 btfss BARG+B0, 1 ; test low byte 
else 
btfss BARG+B1,i-8 ; test high byte 
endif 
OLS: CiGs goto noadd4 
add4 
01C4 6A1C movfp AARG+BO0, wreg 
01C5 OFIA addwf DPX+B2 ;add lsb 
01C6 6A1D movfp AARG+tB1,wreg 
01C7 111B addwfc DPX+B3 ;add msb 
noadd4 
Lf a <8 
01C8 1A1D rice AARG+B1,W ; rotate sign into carry bit 
O01C9 191B reer DPX+B3 ; for i < 8, no meaningful 
O1CA 191A ETCE DPX+B2 ; are in DPX+BO 
01CB 1919 rect DPX+B1 
else 
elLer AARG+B1,W ; rotate sign into carry bit 
rret DPX+B3 
rrcef DPX+B2 
Erce DPX+B1 
EXCE DPX+B0 
endif 
0005 i = itl 
TE oh, <8 
Q1CcC 951E btfss BARG+B0, i ; test low byte 
else 
btfss BARG+B1,1i-8 ; test high byte 
endif 


a SI GE DEE I a I TN ET a Ec TT IN SEE 
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OLCD: -C1iD2 goto noadd5 
add5 
O1CE 6A1C movfp AARG+BO,wreg 
O1CF OFIA addwf DPX+B2 ;add lsb 
01D0 6A1D movfp AARG+B1,wreg 
01D1 111B addwfc  DPX+B3 ;add msb 
noadd5 
bi aes ae Se 
01D2 1A1D Blot AARG+B1,W ; rotate sign into carry bit 
QO1D3 191B rrcE£ DPX+B3 ; for i < 8, no meaningful 
01D4 191A rref DPX+B2 ; are in DPX+B0 
01D5 1919 EECE DPX+B1 
else 
plot AARG+B1,W ; rotate sign into carry bit 
rrcf DPX+B3 
rref DPX+B2 
rrcf DPX+B1 
rrcft DPX+BO0 
endif 
0006 i = itl 
Pde 8 
01D6 961E btfss BARG+B0, i ; test low byte 
else 
btfss BARG+B1,1i-8 ; test high byte 
endif 
01D7 C1DC goto noadd6 
add6 
01D8 G6AI1C movfp AARG+B0, wreg 
O1D9 OFIA addwf DPX+B2 ;add lsb 
O1DA 6A1D movfp AARG+B1, wreg 
01DB 111B addwfc DPX+B3 ;add msb 
noadd6 
if i< 8 
01DC 1A1D Fleet AARG+B1,W ; rotate sign into carry bit 
O1DD 191B erer DPX+B3 ; for i < 8, no meaningful 
O1DE 191A rrcf DPX+B2 ; are in DPX+B0 
O1DF 1919 rrcf DPX+B1 
else 
riet AARG+B1,W ; rotate sign into carry bit 
rref DPX+B3 
rrcf DPX+B2 
rrcef DPX+B1 
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rreft DPX+BO0 
endif 
0007 i = itl 
ah ay eS 
O1EO 971E btfss BARG+BO, i ; test low byte 
else 
btfss BARG+B1,1i-8 ; test high byte 
endif 
O1E1 C1E6 goto noadd7 
add7 
O1E2 6A1C movfp AARG+B0,wreg 
O1E3 OFIA addwf DPX+B2 ;add Il1sb 
O1E4 6A1D movfp AARGtB1,wreg 
O1E5 111B addwfc DPX+B3 ;add msb 
noadd7 
if 2s S 
O1E6 1A1D riot AARG+B1,W ; rotate sign into carry bit 
O1E7 191B rrcet DPX+B3 ; for i < 8, no meaningful 
O1E8 191A erer DPX+B2 ; are in DPX+B0 
O1E9 1919 “rer DPX+B1 
else 
ries AARG+B1,W ; rotate sign into carry bit 
LTCE DPX+B3 
ECE DPX+B2 
rece DPX+B1 
reer DPX+BO 
endif 
0008 i= itl 
if ai <3 
btfss BARG+B0,i ; test low byte 
else 
O1EA 901F btfss BARG+B1,i-8 ; test high byte 
endif 
O1EB C1FO goto noadd8g 
add8 
O1EC 6A1LC movfp AARG+BO, wreg 
O1ED OFI1A addwf DPX+B2 ;add Ilsb 
O1EE 6A1D movfp AARGtB1,wreg 
O1EF 111B addwfc DPX+B3 ;add msb 
noadd8s 
Lf A <8 


tn at i tn 
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VICE AARG+tB1,W 3; rotate sign into carry. bit 
rrcf DPX+B3_. ; for i < 8, no meaningful 
Trror DPX+B2 ; are in DPX+B0 
rrcf DPX+B1 
else 
O1FO 1A1D ricf AARG+B1,W ; rotate sign into carry bit 
O1F1 191B rrcef DPX+B3 
O1F2 191A Frce DPX+B2 
O1F3 1919 Erect DPX+B1 
O1F4 1918 rreoft DPX+B0 
endif 
0009 i = itl 
Lt 3 <8 
btfss BARG+B0, i ; test low byte 
else 
O1F5 911F btfss BARG+B1,i-8 ; test high byte 
endif 
OLF6.“CLEB goto noadd9 
add9 
O1F7 6A1C movfp AARG+B0, wreg 
O1F8 OFI1A addwf DPX+B2 ;add lsb 
O1F9 6A1D movfp AARG+B1,wreg 
O1FA 111B addwfc DPX+B3 ;add msb 
noadd9 
Bs ae ey, a 
rlcf AARG+B1,W ; rotate sign into carry bit 
TECr DPX+B3 ; for i < 8, no meaningful 
rret DPX+B2 ; are in DPX+B0 
rrert DPX+B1 
else 
O1FB 1A1D rlcef AARG+B1,W ; rotate sign into carry bit 
O1FC 191B rrct DPX+B3 
O1FD 191A rroet DPX+B2 
O1FE 1919 . rret DPX+B1 
O1FF 1918 rref DPX+B0 
endif 
QOOA i = itl 
1 i <8 
btfss BARG+B0,i ; test low byte 
else 


—_—— cannes ssssSsSsSnsiisSSs 
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0200 921F btfss BARG+B1,i-8 ; test high byte 
endif 
0201 C206 goto noadd10 
add10 
0202 6A1C movfp AARG+B0, wreg 
0203 OFIA addwf DPX+B2 ;add Ilsb 
0204 6A1D movfp AARG+B1,wreg 
0205 111B addwfc DPX+B3 ;add msb 
noadd10 
if 4: 48 
Pier AARC+B1,W ; votate sign into carry bit 
rreft DPX+B3 ; for i < 8, no meaningful 
rrer DPX+B2 ; are in DPX+BO0 
rrcer DPX+B1 
else 
0206 1A1D rlcf AARG+B1,W ; rotate sign into carry bit 
0207 191B ELCE DPX+B3 
0208 191A rrcer DPX+B2 
0209 1919 rref DPX+B1 
020A 1918 rrct DPX+B0 
endif 
OOO0B i = itl 
if a< 8 
btfss BARG+B0O, i ; test low byte 
else 
0O20B 931F btfss BARG+B1,1-8 ; test high byte 
endif 
O20G.-C241 goto noadd11 
addl1l 
O20D 6A1C movfp AARG+BO0, wreg 
O20E OFIA addwf DPX+B2 ;add Ilsb 
O20F 6A1D movfp AARG+B1,wreg 
0210 111B addwfc DPX+B3 ;add msb 
noaddll 
tf 32°43 
ricf AARG+B1,W ; rotate sign into carry bit 
rrof DPX+B3 , ; for i < 8, no meaningful 
Pref DPX+B2 ; are in DPX+B0O 
Erect DPX+B1 
else 
0211 1A1D rlcf AARG+B1,W ; rotate sign into carry bit 
0212 191B rrer DPX+B3 


a a NS OA EI OE ET CES 
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0213 191A rrct DPX+B2 
0214 1919. raacha DPX+B1 
0215 1918 rEecEe DPX+BO 
endif 
O0O0O0C i = it+l 
af Dat 38 
btfss BARG+B0, i ; test low byte 
else 
0216 941F btfss BARG+B1,i-8 ; test high byte 
endif 
O21 7 -C21C goto noaddi2 
add12 
0218 6A1C movfp AARG+BO, wreg 
0219 OFIA addwf DPX+B2 ;add lsb 
O21A 6A1D movfp AARG+B1,wreg 
021B 111B addwfc DPX+B3 ;add msb 
noadd12 
Led <8 
elce AARG+B1,W ; rotate sign into carry bit 
ror DPX+B3 ; for i < 8, no meaningful 
rreft DPX+B2 — ; are in DPX+BO 
rer DPX+B1 
else 
021C 1A1D r1lct AARG+B1,W ; rotate sign into carry bit 
O21D 191B EFCeL DPX+B3 
O21E 191A ETrCe DPX+B2 
O21F 1919 Eree DPX+B1 
0220 1918 Pret DPX+BO0 
endif 
OOOD i = itl 
if, kh < 8 
btfss BARG+B0, i ; test low byte 
else 
0221 951F btfss BARG+B1,i-8 ; test high byte 
endif 
0222 “C227 goto noadd13 
add13 
0223 6AI1C movfp AARG+BO, wreg 
0224 OFIA addwf DPX+B2 ;add Il1sb 
0225 6A1D movfp AARG+B1,wreg 
0226 111B addwfc DPX+B3 ;add msb 
noadd13 
Lf 2° <8 
rlcf AARG+tB1,W ; rotate sign into carry bit 


a SE EE EC a a ee 
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PCE DPX+B3 ; for i < 8, no meaningful 
rrcf DPX+B2 ; are in DPX+BO 
rrcf DPX+B1 
else 
0227 1A1D PLer AARG+B1,W ; rotate sign into carry bit 
0228 191B rret DPX+B3 
0229 191A rref DPX+B2 
022A 1919 Erer DPX+Bl1 
QO22B 1918 rrer DPX+B0 
endif 
OOOE i = itl 
nie ogee Oe aes 
btfss BARG+B0, i ; test low byte 
else 
O22C Y61LF btfss BARG+B1,i-8 ; test high byte 
endif 
022D ‘C232 goto noadd14 
add14 
022E 6A1C movfp AARG+B0, wreg 
O22F OFIA addwf DPX+B2 jadd lsb 
0230 6A1D movfp AARG+B1, wreg 
0231 111B addwfc DPX+B3 ;add msb 
noadd14 
i ie 8 
naples one AARG+B1,W ; rotate sign into carry bit 
Freer DPX+B3 ; for i < 8, no meaningful 
ErCE DPX+B2 ; are in DPX+B0 
sauaong DPX+B1 
else 
0232 1A1D rlcf AARG+B1,W ; rotate sign into carry bit 
0233 191B EXCE DPX+B3 
0234 191A rect DPX+B2 
0235 1919 rect DPX+B1l 
0236 1918 LECT DPX+B0 
endif 
OOOF i = itl 
6 SIGNED 
0237 1A1D eler AARG+B1,W ; Since BARG is always made 
0238 191B ret DPX+B3 ; the last bit is known to be 
0239 191A ree DPX+B2 
023A 1919 trot DPX+B1 
023B 1918 reef DPX+B0 


SSS SS TSS ES SS LS YS POR AED 
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endif 


023C 0002 return 


PRA KR KKK KK KKK KKK KKK KK KK KKK KKK KK KKK RK KKK KKK KK KK KK KK KKK KKK KKK KKK KKK KKK KK KK KK 


include “traject.asm” 
Trajectory Generation 
pK RK KKK KKK KKK RK KK KKK KKK KK KKK KKK KK KK KK KK KA KKK KK KK KKK KKK KKK KKK KKK KKK KK KK KK 


; # 
; Trajectory Generation Routines 


pK KK KKK KK KR KR KK KKK KK KK KK KK KKK KKK RK KKK KKK KK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK 


PRR KKK KKK KKK KKK RK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KK KKK KKK KK KKK 


; NAME: doPreMove 

; DESCRIPTION: 

doPreMove: 

CLR16 INTEGRAL 
023D 2996 CLRF INTEGRAL+BO 
023E 2997 CLRE INTEGRAL+B1 

MOV24 NMOVVAL, MOVVAL move buffer to MOVVAL 
O23F 6A5B MOVFP NMOVVAL+B0, wreg get byte of NMOVVAL into w 
0240 4A5F MOVPF wreg, MOVVAL+B0 move to MOVVAL (BO) 
0241 6A5C MOVFP NMOVVAL+B1,wreg get byte of NMOVVAL into w 
0242 4A60 MOVPF wreg, MOVVAL+B1 move to MOVVAL(B1) 
0243 6A5D MOVE'P NMOVVAL+B2,wreg get byte of NMOVVAL into w 
0244 4A61 MOVPF wreg, MOVVAL+B2 move to MOVVAL(B2) 
0245 8F93 bcf MOVSTAT, bit7 clear buffer flag 
0246 8693 bsf MOVSTAT, bit6 set motion status flag 
0247 8593 bsf MOVSTAT, bit5 set move in progress flag 
0248 6AC2 movfp ONE, wreg 
0249 4A94 movpf wreg, MOVF LAG initialize MOVEFLAG to 1 
024A 2951 elrft OPOSITION+B0 initialize buffers 

MOV24 POSITION, OPOSITION+B1 
024B 6A55 MOVEP POSITION+BO, wreg get byte of POSITION into w 
024C 4A52 MOVPF wreg, OPOSITION+B1+B0 move to OPOSITION+B1 (BO) 
024D 6A56 MOVEFP POSITION+B1,wreg get byte of POSITION into w 
024E 4A53 MOVPF wreg, OPOSITION+B1+B1 move to OPOSITION+B1 (B1) 
O24F 6A57 MOVEP POSITION+B2, wreg get byte of POSITION into w 
0250 4A54 MOVPF wreg, OPOSITION+B1+B2 move to OPOSITION+B1 (B2) 

MOV32 OPOSITION, MOVPBUF 
0251 6A51 MOVEP OPOSITION+B0,wreg get byte of OPOSITION into w 
0252 4AA4 MOVPF wreg, MOVPBUF+B0 move to MOVPBUF (BO) 
0253 6A52 MOVEP OPOSITION+B1, wreg get byte of OPOSITION into w 
EER SE OP Be AS a TT CE TD a ee aS ee a EE EE a PP EE 
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0254 4AA5 MOVPF  wreg,MOVPBUF+B1 ; move to MOVPBUF (B1) 
0255 6A53 MOVFP OPOSITION+B2,wreg ; get byte of OPOSITION into w 
0256 4AA6 MOVPF wreg, MOVPBUF+B2 7 move to MOVPBUF (B2) 
0257 6A54 MOVFP OPOSITION+B3,wreg ; get byte of OPOSITION into w 
0258 4AA7 MOVPF wreg, MOVPBUF+B3 7 move to MOVPBUF (B3) 
0259 2995 clrf SATFLAG 
CLR16 MOVT IME ; clear move times 
O25A 2967 CLRE MOVTIME+B0 
025B 2968 CLRF MOVTIME+B1 
CLR16 Tl : 0 used as flag for no maximum 
025C 296A CLRE T1+BO0 
025D 296B CLRE T1+Bl 
CLR16 T2 
O25E 296C CLRFE T2+B0 
O25F 296D CLRFE T2+Bl 


CLR16 TAU 





0260 296E CLRF TAU+B0 
0261 296F CLRE TAU+Bl1 
CLR32 MOVDEL > clear move discretization error 
0262 29B0 CLRFE MOVDEL+B0 
0263 29B1 CLRE MOVDEL+B1 
0264 29B2 CLRE MOVDEL+B2 
0265 29B3 CLRF MOVDEL+B3 
CLR16 PH2FLAT ; clear phase 2 flat counter 
0266 29B4 CLRF PH2FLAT+BO 
0267 29B5 CLRF PH2FLAT+B1l 
0268 3391 tstfsz MODETYPE 
0269 C2C5 goto vmode 
pmode 


MOVFP24 MOVVAL, TMP 


026A 785F MOVE P MOVVAL+B0, TMP+BO0 ; move MOVVAL(BO) to TMP (BO) 
026B 7960 MOVE'P MOVVAL+B1, TMP+B1 ; move MOVVAL(B1) to TMP (B1) 
026C 7A61 MOVE P MOVVAL+B2, TMP+B2 ; move MOVVAL(B2) to TMP (B2) 
026D 971A otfss TMP+B2,MSB 

026E C276 goto mvpos 


NEG24 TMP 


O26F 1318 COMF TMP+B0 
0270 1319 COMF TMP+B1 
0271 131A COMF TMP+B2 
0272 290A CLRF wreg 

0273 1518 INCF TMP+BO 
0274 1119 ADDWFC TMP+B1 
0275 111A ADDWFC TMP+B2 


LET LR TSR TEC LD AA aT AE AT ART A ST ETE RE TL TTS OCT LE ELT LER TSE NERA ATT 
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mvpos 
0276 291C ele MOVTMP+B0 ; calculate abs(MOVVAL) - 3 
0277 291D GLre MOVTMP+B1 ; do immediate move if nega- 
tive 
0278 291F. clrf MOVTMP+B2 
0279 801C bsf MOVTMP+B0, bit0 
O27A 811C bsf MOVTMP+BO, bitl 
SUB24 MOVTMP , TMP 
027B 6A1C MOVFP MOVTMP+BO,wreg ; get lowest byte of MOVIMP 
O27C 0518 SUBWE TMP+BO ; sub lowest byte of TMP, save 
O27D 6A1D MOVF'P MOVTMP+B1,wreg ; get 2nd byte of MOVTMP into 
O2Z7E 0319 SUBWFB TMP+B1 ; sub 2nd byte of TMP, save in 
O27F 6Al1E MOVF'P MOVTMP+B2,wreg ; get 3rd byte of MOVTMP into 
0280 031A . SUBWEB TMP+B2 ; sub 3rd byte of TMP, save in 
0281 971A btfss TMP+B2,MSB ; check for zero move 
0282 C28E goto nonzero 
0283 2B90 setf SERVOF'LAG ; set servoflag to restore 
0284 2994 rod be aim MOVE LAG 
0285 8D93 bef MOVSTAT, bit5 
0286 8E93 bef MOVSTAT, bit6 
ADD24 MOVVAL, POSITION 
0287 6A5F MOVEP MOVVAL+B0,wreg ,; get lowest byte of MOVVAL 
0288 OF5D5 ADDWF POSITION+B0 ; add lowest byte of POSITION, 
0289 6A60 MOVFP MOVVAL+B1,wreg ; get 2nd byte of MOVVAL into 
O28A 1156 ADDWFC POSITION+B1 ; add 2nd byte of POSITION, 
028B 6A61 MOVFP MOVVAL+B2,wreg ; get 3rd byte of MOVVAL into 
0286 115? ADDWFC POSITION+B2 ; add 3rd byte of POSITION, 
O28D 0002 return 
nonzero 
CLR32 MOVVBUF 
O28E 29A8 CLRF MOVVBUF'+B0 
O28F 29A9 CLRE MOVVBUF'+B1 
0290 29AA CLRF MOVVBUF+B2 
0291 29AB CLRE MOVVBUE'+B3 
0292 6A61 movfp MOVVAL+B2, wreg move sign 
0293 B580 andlw 0x80 
0294 4A69 movpf wreg, MOVSIGN 
0295 29A3 elie V+B3 create appropriate velocity 
MOV24 VL,V acceleration limits from 
0296 6A20 MOVEP VL+B0,wreg get byte of VL into w 
0297 4AA0 MOVPF wreg, V+BO move to V(BO) 
0298 6A21 MOVFP VL+B1,wreg get byte of VL into w 
0299 4AAl MOVPF wreg, V+B1 move to V(B1) 
029A 6A22 MOVF'P VL+B2,wreg get byte of VL into w 
0O29B 4AA2 MOVPF wreg, V+B2 move to V(B2) 
O29C 299F clrf A+B3 
MOV24 AL,A 
029D 6A23 MOVFP AL+B0,wreg get byte of AL into w 
O29E 4A9C MOVPE wreg, A+BO move to A(BO) 
O29F 6A24 MOVEP AL+B1,wreg get byte of AL into w 
02A0 4A9D MOVPF wreg,At+Bl move to A(B1) 
O2A1 6A25 MOVFP AL+B2,wreg get byte of AL into w 


rr rt Usaha 
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02A2 4A9E MOVPF  wreg,A+B2 . ; move to A(B2) 
02A3 290A CLEL wreg 
02A4 3269 cpfsgt MOVSIGN 
O2A5 C2B8 goto minc 
NEG32 V 
O2A6 13A0 COME’ V+BO 
O2A7 13Al1 COME V+Bl 
O2A8 13A2 COME V+B2 
02A9 13A3 COMF V+B3 
O2AA 290A CLRF wreg 
O2AB 15A0 INCE V+BO 
O2AC 11Al1 ADDWFC V+Bl 
O2AD 11A2 ADDWFC V+B2 
O2AE 11A3 ADDWEC V+B3 
NEG32 A 
O2AF 139C COME A+B0 
02B0 139D COME A+B1 
02B1 1395 COME A+B2 
02B2 139F COMF A+B3 
02B3 290A CLRF wreg 
02B4 159C INCF A+BO 
02B5 119D ADDWEC A+B1 
O2B6 119E ADDWFC A+B2 
O2B7 119F ADDWFC A+B3 
minc 
02B8 2963 elre HMOVVAL+BO0 ; evaluate MOVVAL/2 





Mov24 MOVVAL, HMOVVAL+B1 


O2B9 6A5F MOVFP MOVVAL+BO, wreg ; get byte of MOVVAL into w 
O2BA 4A64 MOVPF wreg, HMOVVAL+B1+B0 7 move to HMOVVAL+B1 (BO) 
O2BB 6A60 MOVE'P MOVVAL+B1,wreg ; get byte of MOVVAL into w 
O2BC 4A65 MOVPF wreg, HMOVVAL+B1+B1 ; move to HMOVVAL+BI1 (B1) 
O2BD 6A61 MOVFP MOVVAL+tB2,wreg ; get byte of MOVVAL into w 
O2BE 4A66 MOVPF wreg, HMOVVAL+B1+B2 ; move to HMOVVAL+BI1 (B2) 
RRC32 HMOVVAL ; half move in QO8 
O2BF 1A66 RLCF HMOVVAL+B3, W ; Move sign into carry bit 
O2CO 1966 RRCF HMOVVAL+B3 
02C1 1965 RRCF HMOVVAL+B2 
02Cc2 1964 RRCF HMOVVAL+B1 
02C3 1963 RRCF HMOVVAL+BO0 
02C4 C2FE goto modeready 
vmode 
02C5: SESL btfsc MODETYPE, MSB ; is it torque move? 
O2C6 C306 goto tmode 
O2C7 2966 odes aan HMOVVAL+B3 ; compute final minus initial 


MOV24 MOVVAL, HMOVVAL 


02C8 6AS5F MOVFP MOVVAL+BO,wreg ; get byte of MOVVAL into w 
02C9 4A63 MOVPE wreg, HMOVVAL+BO y; move to HMOVVAL (BO) 
O2CA 6A60 MOVE'P MOVVAL+B1,wreg ; get byte of MOVVAL into w 
O2CB 4A64 MOVPF wreg, HMOVVAL+B1 ; move to HMOVVAL(B1) 
O02CC 6A61 MOVFP MOVVAL+B2,wreg + get byte of MOVVAL into w 
O2CD 4A65 MOVPF wreg, HMOVVAL+B2 ; move to HMOVVAL(B2) 
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O2CE 9F61 btfsc MOVVAL+B2,MSB 
O2CF 2B66 setf HMOVVAL+B3 
SUB32 MOVVBUEF', HMOVVAL 
O2D0 6AA8 MOVEP MOVVBUF+BO0, wreg 7 get lowest byte of MOVVBUF into w 
02D1 0563 SUBWE HMOVVAL+BO0 ; sub lowest byte of HMOVVAL, save in 
O2D2 6AA9 MOVFP MOVVBUF+B1,wreg ; get 2nd byte of MOVVBUF into w 
02D3 0364 SUBWFB HMOVVAL+B1 ; sub 2nd byte of HMOVVAL, save in 
O2D4 6AAA MOVEP MOVVBUF'+B2,wreg ; get 3rd byte of MOVVBUF into w 
02D5 0365 SUBWFB HMOVVAL+B2 ; sub 3rd byte of HMOVVAL, save in 
O2D6 6AAB MOVEFP MOVVBUF'+B3, wreg ; get 4th byte of MOVVBUF into w 
O2D7 0366 SUBWFB HMOVVAL+B3 ; sub 4th byte of HMOVVAL, save in 
O2D8 6A66 movfp HMOVVAL+B3, wreg 
02D9 B580 andlw 0x80 
O2DA 4A69 movpf wreg,MOVSIGN . 
O2DB 29A3 Clrt V+B3 create appropriate velocity and 
MOV24 Vie Vv acceleration limits from move sign 
O2DC 6A20 MOVEP VL+B0, wreg get byte of VL into w 
O2DD 4AA0 MOVPF wreg, V+B0 move to V(BO) 
O2DE 6A21 MOVEP VL+B1,wreg get byte of VL into w 
O2DF 4AA1 MOVPF wreg, V+B1 move to V(B1) 
O2E0 6A22 MOVFP VL+B2,wreg get byte of VL into w 
O2E1 4AA2 MOVPF wreg, V+B2 move to V(B2) 
O2E2 299F clrf A+B3 
MOV24 AL,A 
02E3 6A23 MOVF'P AL+BO,wreg get byte of AL into w 
O2E4 4A9C MOVPF wreg, A+BO move to A(BO) 
O2E5 6A24 MOVF'P AL+B1,wreg get byte of AL into w 
O2E6 4A9D MOVPF wreg, A+B1 move to A(B1) 
O2E7 6A25 MOVEFP AL+B2,wreg get byte of AL into w 
O2E8 4A9E MOVPF’ wreg, A+B2 move to A(B2) 
O2E9 290A ree i on a wreg 
O2EA 3269 cpfsgt MOVSIGN 
O2EB C2FE goto modeready 
NEG32 V 
O2EC 13A0 COME V+BO0 
O2ED 13Al1 COME V+B1 
O2EE 13A2 COME V+B2 
QO2EF 13A3 COMF’ V+B3 
O2FO 290A CLRF wreg 
O2F1 15A0 INCF V+BO 
O2F2 11Al1 ADDWFC V+B1 
O2F3 11A2 ADDWEC V+B2 
O2F4 11A3 ADDWFC V+B3 
NEG32 A 
O2ZE'S: 139¢ COMF A+BO0 
O2F6 139D COMF’ A+B1 
O2F7 1395 COME A+B2 
O2F8 139F COMF A+B3 
O2F9 290A CLRF wreg 
O2FA 159C INCE A+B0 
O2FB 119D ADDWFC A+B1 
O2FC 1195 ADDWFC A+B2 
O2FD 119F ADDWFC A+B3 
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mode ready 
O2FE 2962 cleft MOVVAL+B3 
O2FF 9F61 btfse MOVVAL+B2,MSB 
0300 2B62 setf MOVVAL+B3 
0301 2B90 setf SERVOF LAG ; set servoflag to restore servo 
; if stopped 
amd _PICMASTER DEBUG 
pA KKK KKK KKK KK KK KKK KK KKK KK KK KKK KKK KK KKK KK KKK KK KKK KK KKK KKK KK KKK 
: For PICMASTER Debug/servo tuning puporses only Purposes Only 
testCapCount 
0302 6ABC movfp CAPCOUNT+B0,wreg 
0303 O8BD lorwf CAPCOUNT+B1,W 
0304 4ABB movpf wreg, CAPFLAG 
pH ie a eet He aK Ke I ee I A I I I I Ik I II I I ie eee ik ek 
endif 
0305 0002 return 
tmode torque/voltage mode 


~e “Ss 


MOV16 MOVVAL+B1, YPWM set new commanded value 





0306 6A60 MOVE'P MOVVAL+B1+B0,wreg ; get byte of MOVVAL+B1 into w 
0307 0188 MOVWE YPWM+BO0 7; move to YPWM(BO) 
0308 6A61 MOVFP MOVVAL+B1+Bl,wreg , get byte of MOVVAL+B1 into w 
0309 0189 MOVWE YPWM+B1 ; Move to YPWM(B1) 
030A 2990 elret SERVOF LAG ; disable servo 
030B E50B call doTorque , set pwm duty cycle 
030C 2994 Cire MOVE LAG 
030D 8D93 bcf MOVSTAT, bit5 

Lt _PICMASTER DEBUG 
O30E C302 goto testCapCount 

else 

return 
endif 


pK KK KKK KK KK KK KK KKK I KKK KK KK KK IKK KK IKK KE KKK KEK KKK KK KKK KK KKK KK KKK KKK KKK KKK 


KKK KK KKK KK KKK KK KKK KKK KKK KKK HK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKEK KK KKK 


NAME: doMove 


DESCRIPTION: In position mode, trapezoidal moves are performed. Phasel 
and phase2 respectively, are the periods for the first and 
second halves of the move. The move time is defined as zero 
at the beginning of the move,T2 is the time at half the 

move, Tl is the time when c 
begins, (the region of constant velocity reduces to a point 
in the case where maximum speed is not realized, and the 
trapezoidal move degenerates into a trianglular move, 
together with Tl=T2), and TAU is the total time of the move. 
The accelerations are +-AL or 0. 


“a @s Ss 78 Fe US UF 


=e. =e ze =e “68 =e 
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; triangle speed trapezoidal speed 
; / \ 
; /\ / \ 
j fg. / \ 
; i \ / \ 
; / : / \ 
; / > / \ 
; 0 T1l=T2 TAU 0 Pak t2 TAU 


; Let x denote the undershoot and y the overshoot commanded 

; at adjacent sample times as half the move is crossed. 

; In the case of a triangular move, the discretization error 
is given by 


; error = min (2x,2y) 


2 For a trapezoidal move, the discretization error is 


; error = min (2x,y-x) <= .5* (maximum commanded speed) 
; This discretization error is resolved in the final sample 
; time of the move by executing a step to the final position 
; at zero speed. The method employed here the best possible 
; performance with regard to discretization error without 
; dynamically modifying velocity and acceleration limits. 
: In velocity mode, ramp moves are performed. 
; / final velocity 
; / 
; / 
; / 
; ji 
; initial velocity / 
; 0 TAU 
doMove 
INC16 MOVT IME ; increment move time 
O30F 290A CLRF wreg 
0310 1567 INCF (MOVTIME:) +BO 
0311 1168 ADDWEC (MOVTIME) +B1 
0312 E468 call doPosVel ; evaluate iterative equations 
0313s 3391 tCScCEsz MODETYPE 
0314 C429 goto vmove 
pmove 
0315 6AC2 movfp ONE, wreg ; test if in phasel 
US16- 31.94 cpfseq MOVF LAG 
0317 C3DB goto phase2 
phasel 
MOVFP 32 MOVDEL, MOVTMP ; Save previous discretization error 
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0318 7CBO MOVE'P MOVDEL+B0,MOVTMP+B0 ; move MOVDEL(BO) to MOVTMP (BO) 

0319 7DB1 MOVFP MOVDEL+B1,MOVTMP+B1 ; move MOVDEL(B1) to MOVTMP (B1) 

031A 7EB2 MOVE'P MOVDEL+B2,MOVTMP+B2 ; move MOVDEL(B2) to MOVTMP (B2) 

031B 7FB3 MOVE'P MOVDEL+B3,MOVTMP+B3 ; move MOVDEL(B3) to MOVTMP (B3) 
MOV32 OPOSITION, MOVDEL ; test if half move 

031C 6A51 MOVFP OPOSITION+B0,wreg 7 get byte of OPOSITION into w 

031D 4ABO MOVPF wreg, MOVDEL+B0 7; move to MOVDEL (BO) 

O31E 6A52 MOVE'P OPOSITION+B1, wreg ; get byte of OPOSITION into w 

O31F 4AB1 MOVPF wreg,MOVDEL+B1 7; move to MOVDEL(B1) 

0320 6A53 MOVFP OPOSTTTON+B2,wreg : get byte of OPOSITION into w 

0321 4AB2 MOVPF wreg, MOVDEL+B2 >; move to MOVDEL (B2) 

0322 6A54 MOVE'P OPOSITION+B3, wreg > get byte of OPOSITION into w 

0323 4AB3 MOVPF wreg,MOVDEL+B3 ; move to MOVDEL (B3) 


ADD32 HMOVVAL, MOVDEL 


0324 6A63 MOVFP HMOVVAL+B0,wreg ; get lowest byte of HMOVVAL into w 
0325 OFBO ADDWE MOVDEL+B0 ; add lowest byte of MOVDEL, save in 
0326 6A64 MOVEP HMOVVAL+B1, wreg ; get 2nd byte of HMOVVAL into w 
0327 11B1 ADDWFC MOVDEL+B1 ; add 2nd byte of MOVDEL, save in 
0328 6A65 MOVFP HMOVVAL+B2, wreg ; get 3rd byte of HMOVVAL into w 
0329 11B2 ADDWFC MOVDEL+B2 ; add 3rd byte of MOVDEL, save in 
032A 6A66 MOVFP HMOVVAL+B3, wreg > get 4th byte of HMOVVAL into w 
032B 11B3 ADDWFC MOVDEL+B3 ; add 4th byte of MOVDEL, save in 


SUB32 MOVPBUF, MOVDEL 





032C 6AA4 MOVFP MOVPBUF+B0, wreg > get lowest byte of MOVPBUF into 
032D 05B0 SUBWF MOVDEL+B0 ; sub lowest byte of MOVDEL, save 
032E 6AAS MOVEP MOVPBUF+B1,wreg ; get 2nd byte of MOVPBUF into w 
032F 03B1 SUBWFB MOVDEL+B1 > sub 2nd byte of MOVDEL, save in 
0330 6AA6 MOVFP MOVPBUF+B2, wreg ; get 3rd byte of MOVPBUF into w 
0331 03B2 SUBWFB MOVDEL+B2 > sub 3rd byte of MOVDEL, save in 
0332 6AA7 MOVE'P MOVPBUF'+B3, wreg ; get 4th byte of MOVPBUF into w 
0333 03B3 SUBWFB MOVDEL+B3 _ ; sub 4th byte of MOVDEL, save in 
0334 9769 btfss MOVSIGN, MSB 

0335 C33F goto mposl 


NEG32 MOVDEL 


0336 13B0 COME MOVDEL+B0 

0337 13B1 COMF MOVDEL+B1 

0338 13B2 COMF MOVDEL+B2 

0339 13B3 COME MOVDEL+B3 

033A 290A CLRF wreg 

033B 15B0 INCF MOVDEL+B0 

033C 11B1 ADDWFC MOVDEL+B1 

033D 11B2 ADDWFC MOVDEL+B2 

033E 11B3 ADDWFC MOVDEL+B3 
mposl 

O033F 97B3 btfss MOVDEL+B3,MSB 

0340 C3A5 goto speedup ; continue to speed up if in 
TFSZ16 Tl ; if Tl=0, maximum velocity not 

0341 6A6A MOVFP T1+B0,wreg 

0342 O086B IORWF T1+B1,W 

0343 330A TSTFSZ wreg 


; reached, 
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; has been set in speedup 


0344 C378 goto t2netl 

NEG32 A ; negate A for speeddown 
0345 139C COMF A+B0 
0346 139D COME At+B1 
0347 139E COME’ A+B2 
0348 139F COME" A+B3 
0349 290A CLRF wreg 
034A 159C INCF A+B0 
034B 119D ADDWFC A+Bl 
034C 119E ADDWFC A+B2 
0O34D 119F . ADDWFC A+B3 

ADD32 MOVDEL, MOVTMP ; test x-y < 0 
O34E 6AB0 MOVEP MOVDEL+B0, wreg ; get lowest byte of MOVDEL into 
O34F OFIC ADDWF MOVTMP+BO ; add lowest byte of MOVTMP, save 
0350 6AB1 MOVF'P MOVDEL+B1,wreg ; get 2nd byte of MOVDEL into w 
0351 “111D ADDWEC MOVTMP+B1 ; add 2nd byte of MOVTMP, save in 
0352 6AB2 MOVFP § MOVDEL+B2,wreg ; get 3rd byte of MOVDEL into w 
0353° LIE ADDWFC MOVTIMP+B2 ; add 3rd byte of MOVTMP, save in 
0354 6AB3 MOVF'P MOVDEL+B3, wreg ; get 4th byte of MOVDEL into w 
0355 111F ADDWFC MOVTMP+B3 ; add 4th byte of MOVIMP, save in 
0356 971F btfss MOVTMP+B3,MSB ; if new discretization error larger, 
0357 C36E goto triok ; backup to define T2, otherwise ok 
0358 2BéC setf T2+B0 ; set T2=-1 for backup 
0359 2Bé6D setf T2+B1 

NEG32 A ; negate A to undo 
035A 139C COME’ A+B0 
035B 139D COMF A+B1 
035C 139E COME" A+B2 
035D 139F COME’ A+B3 
O35E 290A CLRF wreg 
O35F 159C INCF A+B0 
0360 119D ADDWFC A+B1 
0361 1195 ADDWFC A+B2 
0362 119F ADDWFC A+B3 
0363 E48A call undoPosVel 

NEG32 A ; negate A again for speeddown 
0364 139C COME" A+B0 
0365 139D COME At+B1 
0366 139E COME A+B2 
0367 139F COME" A+B3 
0368 290A CLRF wreg 
0369 159C INCF A+B0 
O36A 119D ADDWFC A+B1 
036B 119E ADDWFC AtB2 
O36C 119F ADDWFC A+B3 
036D E468 call doPosVel ; and reevaluate iterative equations 

triok 

ADD16 MOVTIME, T2 ; add time to T2 
O36E 6A67 MOVEP MOVTIME+B0, wreg ; get lowest byte of MOVTIME into w 
036F OFE6C ADDWF  12+BO ; add lowest byte of 12, save in 
0370 6A68 MOVFP MOVTIME+B1,wreg ; get 2nd byte of MOVTIME into w 
0371 116D ADDWFC T2+B1 ; add 2nd byte of T2, save in T2(B1) 


SE eae indie ta end Se ee OS lls ae OM eee OE ee ee oa Ie ten AE OE Ow ee EEL ae See Oe Re A ea er ee Re 
DS00532B-page 60 © 1993 Microchip Technology Inc. 
4-256 


Servo Control of a DC-Brush Motor 





0372 
0373 
0374 
0375 


0376 
O377 


0378 
0379 


O37A 
037B 
037C 
037D 


6A6C 
O16A 
6A6D 
016B 


1594 
C3CE 


2BO6C 
2B6D 


6A67 
OF 6C 
6A68 
116D 


T2 (Bl) 


037E 
O37F 
0380 
0381 


0382 
0383 
0384 
0385 
0386 


0387 
0388 
0389 
038A 
038B 
038C 
038D 
038E 


038F 
0390 
0391 
0392 
0393 
0394 
0395 
0396 


781C 
1 92D 
TALE 
7TBIF 


8804 
1B1C 
1B1D 
1B1E 
1B1F 


6A18 
OF1C 
6A19 
LTTD 
6A1lA 
111E 
6A1B 
dae 


6ABO 
OF1C 
6AB1 
111D 
6AB2 
111E 


111F 


MOV16 


t2netl 


ADD16 


MOVFP 32 


RLC32 


ADD32 


ADD32 


TZU 


MOVFP 
MOVWE 
MOVFP 
MOVWE 


incf 
goto 


setf 
setf 


MOVT IME, T2 


MOVFP 
ADDWF' 

MOVE'P 
ADDWE'C 


MOVTMP , TMP 


MOVEF'P 
MOVE'P 
MOVEF'P 
MOVE'P 


MOVTMP 


BCF 
RLCF 
RLCF 
RLCF 
RLCF 


TMP , MOVIMP 


MOVFP 
ADDWE 
MOVEF'P 
ADDWFC 
MOVFP 
ADDWEFC 
MOVFP 
ADDWEC 


MOVDEL, MOVTMP 


MOVEP 
ADDWF 
MOVFP 
ADDWEFC 
MOVE'P 
ADDWE'C 
MOVE'P 
ADDWEFC 


T2+B0,wreg 
T1+BO 
T2+Bl,wreg 
T1+Bl 


MOVF LAG 
mvok 


T2+BO 
T2+Bl 


MOVTIME+B0, wreg 
T2+BO 

MOVTIME+B1, wreg 
T2+Bl 


MOVTMP+BO0O, TMP+BO 
MOVTMP+B1, TMP+B1 
MOVTMP+B2, TMP+B2 
MOVTMP+B3, TMP+B3 


_carry 
MOVTMP+BO 
MOVTMP+B1 
MOVTMP+B2 
MOVTMP+B3 


TMP+BO,wreg 
MOVTMP+B0 
TMP+Bl1,wreg 
MOVTMP+B1 
TMP+B2,wreg 
MOVTMP+B2 
TMP+B3,wreg 
MOVTMP+B3 


MOVDEL+BO0, wreg 
MOVTMP+B0 
MOVDEL+B1, wreg 
MOVTMP+B1 
MOVDEL+B2, wreg 
MOVTMP+B2 
MOVDEL+B3, wreg 
MOVTMP+B3 


get byte of T2 into w 


move 


to’ T1{BO) 


get byte of T2 into w 


move 


to» TIBI) 


increment move flag for 
execute last phasel move 


set 


add 


get 
add 
get 
add 


test 


move 
move 
move 
move 


get 
add 
get 
add 
get 
add 
get 
add 


get 
add 
get 
add 
get 
add 
get 
add 


T2=-1 for backup 


time to T2 


lowest byte 
lowest byte 
2nd byte of 
2nd byte of 


if 3x-y < 0 


MOVTMP (BOQ) 
MOVTMP (B1) 
MOVTMP (B2) 
MOVTMP (B3) 


lowest byte 
lowest byte 
2nd byte of 
2nd byte of 
3rd byte of 
3rd byte of 
4th byte of 
4th byte of 


lowest byte 
lowest byte 
2nd byte of 
2nd byte of 
3rd byte of 
3rd byte of 
4th byte of 
4th byte of 


of MOVTIME 
of T2, save 
MOVTIME into 
T2, save in 


to TMP 
to TMP 
to TMP 
to TMP 


BO) 
Bl) 
B2) 
B3) 


a ae ae 


of TMP into 
of MOVTMP, 
TMP into w 
MOVIMP, save 
TMP into w 
MOVTIMP, save 
TMP into w 
MOVIMP, save 


of MOVDEL 

of MOVIMP, 
MOVDEL into 
MOVTMP, save 
MOVDEL into 
MOVIMP, save 
MOVDEL into 
MOVIMP, save 
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0397 971F btfss MOVTMP+B3,MSB ; if new discretization error 
0398 C39B goto trapok ; take one more flat step 
0399 2BB4 setf PH2FLAT+BO 
039A 2BB5 setf PH2FLAT+B1 

trapok 


ADD16 12,PH2FLAT 


039B 6A6C MOVE'P T2+B0,wreg ; get lowest byte of T2 into w 
039C OFB4 ADDWF PH2FLAT+BO ; add lowest byte of PH2FLAT, 
039D 6A6D MOVFP T2+Bl,wreg ; get 2nd byte of T2 into w 
O39E 11B5 ADDWFC PH2FLAT+B1 ; add 2nd byte of PH2FLAT, 


SUB16 T1,PH2FLAT 


O39F 6A6A MOVEFP T1+B0,wreg ; get lowest byte of Tl into w 
O3A0 O5B4 SUBWE PH2FLAT+BO ; sub lowest byte of PH2FLAT, 
03A1 6A6B MOVEFP T1+Bl,wreg ; get 2nd byte of Tl into w 
O3A2 03B5 SUBWFB PH2FLAT+B1 ; sub 2nd byte of PH2FLAT, 
03A3 1594 Inet MOVE LAG ; increment move flag for 
03A4 C3CE goto mvok ; execute last phasel move 

speedup 

MOVFP32 V,MOVTMP ; test if maximum velocity 
03A5 7CAQ MOVF'P V+B0, MOVTMP+BO ; move V(BO) to MOVTMP (BO) 
O3A6 7DA1 MOVE'P V+B1,MOVIMP+B1 7; move V(Bl1) to MOVTMP(B1) 
03A7 7EA2 MOVE'P V+B2,MOVIMP+B2 7 move V(B2) to MOVTMP (B2) 
03A8 7FA3 MOVEP V+B3,MOVTMP+B3 7; move V(B3) to MOVTMP (B3) 


SUB32 MOVVBUF , MOVTMP 


03A9 6AA8 MOVE'P MOVVBUF'+BO0, wreg ; get lowest byte of MOVVBUF 
O3AA 051C SUBWF MOVTMP+BO0 ; sub lowest byte of MOVIMP, 
O3AB 6AA9 MOVFP MOVVBUF'+B1,wreg ; get 2nd byte of MOVVBUF into 
O3AC 031D SUBWFB MOVTMP+B1 ; sub 2nd byte of MOVTMP, save 
O3AD 6AAA MOVFP MOVVBUF+B2,wreg ; get 3rd byte of MOVVBUF into 
O3AE O31E SUBWFB MOVTMP+B2 ; sub 3rd byte of MOVTMP, save 
O3AF 6AAB MOVE'P MOVVBUF'+B3, wreg ; get 4th byte of MOVVBUF into 
03B0 031F SUBWFB MOVTMP+B3 ; sub 4th byte of MOVTMP, save 
in 

O3B1 9769 btfss MOVSIGN, MSB 

03Bz2 -C3BC goto mpos 


NEG32 MOVTMP 


03B3 “131C COME MOVTMP+BO 

03B4 131D ts COME’ MOVTMP+B1 

03B5 131E COMF MOVTMP+B2 

03B6 131F COMF MOVTMP+B3 

03B7 290A CLRE wreg 

O03B8 151C INCF MOVTMP+BO 

03B9 111D ADDWFC MOVTMP+B1 

O3BA 1115 ; ADDWEC MOVTMP+B2 

O3BB 111F ADDWFC MOVTIMP+B3 
mpos 

O3BC 971F btfss MOVTMP+B3,MSB 

O3BD C3CE goto mvok - 37 if not, execute move 
TFSZ16 T1 ; if so, check to see if Tl 

O3BE 6A6A MOVFP T1+B0O,wreg 

O3BF 086B IORWE T1+B1,W 
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03CO0 330A TSTFSZ wreg 
already been set 
O3Ci“C3Ce goto mvok 
03C2 E48A call undoPosVel if not, backup and redo 
CLR32 A equations, resulting in an 
O3C3--299C CLRF A+B0 
03C4 299D CLRF A+B1 
03C5 299E CLRF A+B2 
03C6 299F CLRF A+B3 
03C7 E468 call doPosVel maximum speed <= VL 
03C8 2B6A setf T1+BO evaluate Tl 
03C9 2B6B setf T1+Bl 
ADD16 MOVTIME, T1 
O3CA 6A67 MOVFP MOVTIME+BO, wreg get lowest byte of MOVTIME 
O3CB OF6A ADDWF T1+BO add lowest byte of Tl, save 
O03CC 6A68 MOVFP  MOVTIME+B1,wreg get 2nd byte of MOVTIME into 
O3CD LL6B ADDWFC T1+Bl1 add 2nd byte of Ti, save in 
mvok 
MOV24 MOVPBUF'+B1, POSITION move Q8 calculated position 
O3CE 6AA5 MOVE'P MOVPBUF+B1+B0,wreg get byte of MOVPBUF+B1 into 
O3CF 4A55 MOVPF wreg, POSITION+BO move to POSITION (BO) 
O3D0 6AA6 MOVFP MOVPBUF'+B1+B1,wreg get byte of MOVPBUF+B1 into 
O3D1 4A56 MOVPF wreg, POSITION+B1 move to POSITION (B1) 
O3D2 6AA7 MOVE'P MOVPBUF'+B1+B2,wreg get byte of MOVPBUF+B1 into 
03D3 4A57 MOVPF wreg, POSITION+B2 move to POSITION (B2) 
MOv24 MOVVBUF+BO0, VELOCITY move Q0 calculated velocity 
O3D4 6AA8 MOVFP MOVVBUF+B0+B0, wreg get byte of MOVVBUF+BO into 
O3D5 4A58 MOVPF wreg, VELOCITY+BO move to VELOCITY (BO) 
03D6 6AA9 MOVEP MOVVBUF+B0+B1,wreg get byte of MOVVBUF+BO into 
03D7 4A59 MOVPF wreg, VELOCITY+B1 move to VELOCITY (B1) 
03D8 6AAA MOVF'P MOVVBUF+B0+B2,wreg get byte of MOVVBUF+BO into 
O3D9 4A5A MOVPF wreg, VELOCITY+B2 move to VELOCITY (B2) 
O3DA 0002 return 
phase2 
TFSZ16 PH2FLAT is flat section finished? 
03DB 6AB4 MOVFP PH2FLAT+BO0, wreg 
03DC O8B5 IORWF PH2FLAT+B1,W 
03DD 330A TSTFSZ wreg 
O3DE C3FF goto flat 
TFSZ32 MOVVBUF is velocity zero? 
O3DF 6AA8 MOVFP MOVVBUF+B0, wreg 
O3E0 O8A9 IORWF MOVVBUEF'+B1,W 
O3E1 O8AA IORWE’ MOVVBUE'+B2 , W 
O03E2 O8AB TORWF MOVVBUF+B3,W 
03E3 330A TSTFSZ wreg 
03E4 C41C goto mready ; if not, execute move 
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O3E5 2994 clrf MOVF LAG ; if so, clear MOVFLAG 
O3E6 8E93 bce MOVSTAT, bit6 ; clear motion status flag 
O3E7 8D93 ber MOVSTAT,bit5 ; clear move in progress flag 
CLR32 A ; set zero velocity and acceleration, 
O3E8 299C CLRF A+BO 
03E9 299D CLRF A+B1 
O3EA 299E CLRFE At+B2 
O3EB 299F CLRF A+B3 


MOV16 MOVTIME, TAU 


O3EC 6A67 MOVE'P MOVTIME+B0,wreg ; get byte of MOVTIME into w 
O3ED 016E MOVWE TAU+BO ; move to TAU(BO) 
O3EE 6A68 MOVFP MOVTIME+B1,wreg ; get byte of MOVTIME into w 
O3EF O16F MOVWE TAU+B1 ; move to TAU(B1) 

MOV32 OPOSITION, MOVPBUF ; execute last move to P(0)+MOVVAL 
O3F0 6A51 MOVEF'P OPOSITION+B0,wreg ; get byte of OPOSITION into w 
O3F1 4AA4 MOVPF wreg, MOVPBUF+BO0O ; move to MOVPBUF (BO) 
O3F2 6A52 MOVFP OPOSITION+B1, wreg ; get byte of OPOSITION into w 
O3F3 4AA5 MOVPF wreg, MOVPBUF+B1 ; move to MOVPBUF (B1) 
O3F4 6A53 MOVE'P OPOSITION+B2,wreg ; get byte of OPOSITION into w 
O3F5 4AA6 MOVPF wreg, MOVPBUF+B2 ; move to MOVPBUF (B2) 
O3F6 6A54 MOVFP  OPOSITION+B3, wreg ; get byte of OPOSITION into w 
O3F7 4AA7 MOVPF wreg, MOVPBUF+B3 ; move to MOVPBUF (B3) 


ADD24 MOVVAL, MOVPBUF+B1 


O3F8 6A5F MOVFP MOVVALtBO, wreg ; get lowest byte of MOVVAL into w 
O3F9 OFAS ADDWF MOVPBUF'+B1+B0 ; add lowest byte of MOVPBUF+B1, save 
O3FA 6A60 MOVFP MOVVAL+tB1,wreg ; get 2nd byte of MOVVAL into w 
O3FB 11A6 ADDWFC MOVPBUF+B1+B1 ; add 2nd byte of MOVPBUF+B1, save in 
O3FC 6A61 MOVEP MOVVAL+B2, wreg ; get 3rd byte of MOVVAL into w 
O3FD 11A7 ADDWFC MOVPBUF'+B1+B2 ; add 3rd byte of MOVPBUF+B1, save in 
O3FE C41Cc goto mready 

flat 
O3FF 2B1C setf MOVTIMP+BO 
0400 2B1D setf MOVTMP+B1 

ADD16 MOVTMP, PH2F LAT ; decrement by one use DEC16 
0401 6AI1C MOVE'P MOVTMP+BO, wreg ; get lowest byte of MOVTMP into w 
0402 OFB4 ADDWE PH2FLAT+BO ; add lowest byte of PH2FLAT, save in 
0403 6A1D MOVEP MOVTMP+B1,wreg ; get 2nd byte of MOVTIMP into w 
0404 11B5 ADDWFC PH2FLAT+B1 ; add 2nd byte of PH2FLAT, save in 


TFSZ16 PH2FLAT 


0405 6AB4 MOVFP PH2FLAT+B0,wreg 

0406 O8B5 TORWE PH2FLAT+B1,W 

0407 330A TSTFSZ wreg 

0408 C41c goto mready 

0409 299F ou hea a A+B3 . ; begin speed down section 


MOV24 AL,A 


040A 6A23 MOVE'P AL+B0,wreg ; get byte of AL into w 
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040B 4A9C MOVPF wreg, A+B0 + move to A(BO) 
O40C 6A24 MOVFP AL+B1,wreg ; get byte of AL into w 
040D 4A9D MOVPE wreg, AtB1 ; move to A(B1) 
O40E 6A25 MOVFP AL+B2,wreg ; get byte of AL into w 
O40F 4A9E MOVPF wreg, A+B2 ; move to A(B2) 
0410 290A Clee wreg 
0411 3169 cpfseq MOVSIGN 
0412 C41C goto mready 
NEG32 A 
0413 139C COMF’ A+BO 
0414 139D COME’ At+Bl1 
0415 1395 COME’ A+B2 
0416 139F COME A+B3 
0417 290A CLRF wreg 
0418 159C INCF A+BO 
0419 119D ADDWFC A+B1 
O41A 1195 ADDWEFC A+B2 
041B 119F ADDWEC A+B3 
mready 
MOV24 MOVPBUF'+B1, POSITION 
O41C 6AA5 MOVE'P MOVPBUF+B1+B0, wreg get byte of MOVPBUF+B1 into w 
O41D 4A55 MOVPF wreg, POSITION+BO move to POSITION (BO) 
O41E 6AA6 MOVFP MOVPBUF'+B1+Bl1,wreg get byte of MOVPBUF+B1 into w 
O41F 4A56 MOVPF wreg, POSITION+B1 move to POSITION (B1) 
0420 6AAT7 MOVFP § MOVPBUF+B1+B2,wreg get byte of MOVPBUF+B1 into w 
0421 4A57 MOVPF wreg, POSITION+B2 move to POSITION (B2) 
MOV24 MOVVBUF+BO, VELOCITY 
0422 6AA8 MOVE'P MOVVBUF+B0+B0, wreg get byte of MOVVBUF+BO into w 
0423 4A58 MOVPF wreg, VELOCITY+BO move to VELOCITY (BO) 
0424 6AAY9 MOVFP MOVVBUF+B0+B1,wreg get byte of MOVVBUF+BO into w 
0425 4A59 MOVPF wreg, VELOCITY+B1 move to VELOCITY (B1) 
0426 OAAA MOVFP MOVVBUF+B0+B2,wreg get byte of MOVVBUF+BO into w 
0427 4A5A MOVPF wreg, VELOCITY+B2 move to VELOCITY (B2) 
0428 0002 return 
vmove 
MOVFP32 MOVVAL,MOVIMP test if final velocity reached 
0429 7C5F MOVEP MOVVAL+BO , MOVIMP+BO move MOVVAL(B0O) to MOVTMP (BO) 
042A 7D60 | MOVE'P MOVVAL+B1,MOVTMP+B1 move MOVVAL(B1) to MOVTMP (B1) 
042B 7E61 MOVFP MOVVAL+B2, MOVTMP+B2 move MOVVAL(B2) to MOVTMP (B2) 
O042C 7F62 MOVEP MOVVAL+B3 , MOVTMP+B3 move MOVVAL(B3) to MOVTMP (B3) 
SUB32 MOVVBUF , MOVTMP 
042D 6AA8 MOVE'P MOVVBUF+B0,wreg get lowest byte of MOVVBUF into w 
042E O51C SUBWF MOVTMP+BO sub lowest byte of MOVTIMP, save in 
O42F 6AA9 MOVEP MOVVBUF'+B1,wreg get 2nd byte of MOVVBUF into w 
0430 031D SUBWFB MOVTMP+B1 sub 2nd byte of MOVTMP, save in 
0431 6AAA MOVEFP MOVVBUF+B2,wreg get 3rd byte of MOVVBUF into w 
0432 O31E SUBWFB MOVTMP+B2 sub 3rd byte of MOVTMP, save in 
0433 6AAB MOVFP MOVVBUF+B3, wreg get 4th byte of MOVVBUF into w 
0434 O031F SUBWFB MOVTMP+B3 sub 4th byte of MOVIMP, save in 
0435 9769 btfss MOVSIGN, MSB 
0436 C440 goto vmpos 
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NEG32 MOVTMP 


0437 131C COMF .MOVTMP+BO 
0438 131D COME -MOVTMP+B1 
0439 131E COMF MOVTMP+B2 
043A 131F COME’ MOVTMP+B3 
043B 290A CLRF wreg 
043C 151C INCF MOVTMP+BO 
043D 111D ADDWEC MOVTMP+B1 
043E 1115 ADDWEC MOVTMP+B2 
O43F 111F ADDWFC MOVTMP+B3 
vmpos 
0440 971F btfss MOVTMP+B3,MSB 
0441 C45B goto vmoveok if not, continue 
CLR32 A if so, set A=0 and continue with | 
0442 299C CLRF A+BO 
0443 299D CLRF A+B1 
0444 299E CLRF A+B2 
0445 299F CLRF A+B3 
MOV32 MOVVAL, MOVVBUF move unless the final velocity 
0446 6A5F MOVE'P MOVVAL+B0,wreg get byte of MOVVAL into w 
0447 4AA8 MOVPE wreg, MOVVBUF+BO move to MOVVBUF (BO) 
0448 6A60 MOVFP MOVVAL+B1, wreg get byte of MOVVAL into w 
0449 4AA9 MOVPF wreg, MOVVBUF+B1 move to MOVVBUF (B1) 
044A 6A61 MOVE'P MOVVAL+B2, wreg get byte of MOVVAL into w 
044B 4AAA MOVPF wreg, MOVVBUF+B2 move to MOVVBUF (B2) 
044C 6A62 MOVF'P MOVVAL+B3, wreg get byte of MOVVAL into w 
044D 4AAB MOVPF wreg, MOVVBUF+B3 move to MOVVBUF (B3) 
¢; 18 Zero, 
O44E 2994 clrf MOVE'LAG clear MOVFLAG ; 
O44F 8D93 bcf MOVSTAT, bit5 clear move in progress flag 
MOV16 MOVT IME, TAU 
0450 6A67 MOVF'P MOVTIME+B0, wreg get byte of MOVTIME into w 
0451 O16E MOVWE' TAU+B0 move to TAU(BO) 
0452 6A68 MOVE'P MOVTIME+B1,wreg get byte of MOVTIME into w 
0453 O16F MOVWE’ TAU+B1 move to TAU(B1) 
TFSZ32 MOVVAL 
0454 6A5F MOVFP § MOVVAL+BO,wreg 
0455 0860 IORWE MOVVAL+B1,W 
0456 0861 IORWE  MOVVAL+B2,W 
0457 0862 TORWE MOVVAL+B3, W 
0458 330A TSTFSZ wreg 
0459 C45B goto vmoveok 
045A 8E93 bcf MOVSTAT, bit6 if final velocity is zero, clear 
motion status flag 
vmoveok 
MOV24 MOVPBUF+B1, POSITION 
045B 6AA5 MOVE'P MOVPBUEF+B1+B0, wreg get byte of MOVPBUF+B1 into w 
045C 4A55 MOVPF wreg, POSITION+BO move to POSITION (BO) 
045D 6AA6 MOVF'P MOVPBUF+B1+B1,wreg get byte of MOVPBUF+B1l into w 
O45E 4A56 MOVPF wreg, POSITION+B1 move to POSITION (B1) 
O45F 6AA7 MOVFP MOVPBUF+B1+B2, wreg get byte of MOVPBUF+B1 into w 
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0460 4A57 MOVPF wreg, POSITION+B2 ; move to POSITION(B2) 


MOV24 MOVVBUF+B0, VELOCITY 


0461 6AA8 MOVFP MOVVBUF+B0+B0,wreg ; get byte of MOVVBUF+BO into w 
0462 4A58 MOVPF wreg, VELOCITY+B0 ; move to VELOCITY (BO) 

0463 6AA9 MOVFP MOVVBUF+B0+B1,wreg ; get byte of MOVVBUF+BO into w 
0464 4A59 MOVPF wreg, VELOCITY+B1 7; move to VELOCITY (B1) 

0465 6AAA MOVE'P MOVVBUF'+B0+B2,wreg ; get byte of MOVVBUF+BO into w 
0466 4A5A MOVPF wreg, VELOCITY+B2 ; move to VELOCITY (B2) 

0467 0002 return 


p RK KK KKK KKK KR KK IK KKK KK KKK KK KKK KKK KEI KEKE KKK KKK KEK KKK KK KKK KKK KK KK 


KKK KKK KK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KK KKK KEK KKK KKK 


NAME: doPosVel 


DESCRIPTION: Evaluates the iterative equations for trapezoidal 
generation 


V(k)=V (k-1) +A, P (k) =P (k-1) +V(k-1)+A/2, 


where abs(A)={AL,0} depending on the region of the 
being executed. 


“es “ss 3 “ese “ea ae Ss “se Me Me MS 


doPosVel 


ADD32 MOVVBUF', MOVPBUF P(k-1)+V(k-1) 


~e 





0468 6AA8 MOVEP MOVVBUF'+B0,wreg ; get lowest byte of MOVVBUF into w 

0469 OFA4 ADDWE MOVPBUF+B0 ; add lowest byte of MOVPBUF, save in 

046A 6AA9 MOVFP MOVVBUF+B1, wreg ; get 2nd byte of MOVVBUF into w 

046B 11A5 ADDWFC MOVPBUF+B1 ; add 2nd byte of MOVPBUF, save in 

046C G6AAA MOVE'P MOVVBUF+B2,wreg ; get 3rd byte of MOVVBUF into w 

046D 11A6 ADDWFC MOVPBUF+B2 ; add 3rd byte of MOVPBUF, save in 

046E 6AAB MOVE P MOVVBUF+B3, wreg , get 4th byte of MOVVBUF into w 

O46F 11A7 ADDWFC MOVPBUF+B3 ; add 4th byte of MOVPBUF, save in 
ADD32 A, MOVVBUF ; V(kK)=V(k-1) +A 

0470 6A9C MOVEP A+B0,wreg ; get lowest byte of A into w 

0471 OFA8 ADDWF MOVVBUF+B0 ; add lowest byte of MOVVBUF, save in 

0472 6A9D MOVFP A+Bl,wreg ; get 2nd byte of A into w 

0473 11A9 ADDWFC MOVVBUF+B1 ; add 2nd byte of MOVVBUF, save in 

0474 6A9E MOVF'P A+B2,wreg ; get 3rd byte of A into w 

0475 1L1AA ADDWEC MOVVBUF+B2 ; add 3rd byte of MOVVBUF, save in 

0476 6A9F MOVFP A+B3,wreg ; get 4th byte of A into w 

0477 11AB ADDWFC MOVVBUF+B3 ; add 4th byte of MOVVBUF, save in 


MOVFP32 A,MOVTMP compute A/2 


“se 


0478 709C MOVE'P A+B0,MOVTMP+B0 7; move A(BO) to MOVTMP (BO) 
0479 7D9D MOVE'P A+B1,MOVTMP+B1 ; move A(B1l) to MOVTMP (Bl) 
047A TESE MOVE'P A+B2,MOVTMP+B2 7; move A(B2}) to MOVTMP (B2) 
047B TF 9F MOVE'P A+B3,MOVTMP+B3 ; move A(B3) to MOVTMP (B3) 


RRC 32 MOVTMP 


047C 1AI1F RLCF MOVTMP+B3,W move sign into carry bit 


~s 
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047D 191F RRCF MOVTMP+B3 


O47E 191E RRCF © MOVTMP+B2 
O47F 191D RRCF MOVTMP+B1 
0480 191C RRCF MOVTMP+BO 

ADD32 MOVTMP , MOVPBUF >; P(k)=P (k-1)+V(k-1)+A/2, 
0481 6A1C MOVFP MOVIMP+BO,wreg ; get lowest byte of MOVIMP into w 
0482 OFA4 ADDWE MOVPBUF+BO ; add lowest byte of MOVPBUF, save in 
0483 6A1D MOVE'P MOVTMP+Bl,wreg ; get 2nd byte of MOVTMP into w 
0484 11A5 . ADDWFC MOVPBUF+B1 . ; add 2nd byte of MOVPBUF, save in 
0485 6A1E MOVE'P MOVTIMP+B2,wreg ; get 3rd byte of MOVTIMP into w 
0486 11A6 ADDWFC MOVPBUF+B2 ; add 3rd byte of MOVPBUF, save in 
0487 6A1LF MOVE'P MOVIMP+B3,wreg ; get 4th byte of MOVTMP into w 
0488 11A7 ADDWEC MOVPBUF+B3 ; add 4th byte of MOVPBUF, save in ) 
0489 0002 return 


PRR KKKKK KK EK KKK RK KK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 


PRR KKK KKK KKK KK KK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK A 
; NAME: undoPosVel 
, 


; DESCRIPTION: Backward iteration of the equations for trapezoidal 


; generation 

; V (k-1) =V (k) ~A, P (k-1) =P (k) -V(k-1)-A/2, 

: where abs (A)={AL,0} depending on the region of the 

; being executed. This routine is used to reverse a 

; to be made beyond a decision point. 

undoPosVel 

SUB32 A, MOVVBUF 7) =69V(k-1)=V(k) -A 
_ 048A 6A9C MOVFP A+B0,wreg ; get lowest byte of A into w 
048B O05A8 SUBWF MOVVBUF'+B0 ; sub lowest byte of MOVVBUF, save in 
048C 6A9D MOVEP A+B1,wreg ; get 2nd byte of A into w 
048D 03A9 SUBWEB MOVVBUF+B1 _; sub 2nd byte of MOVVBUF, save in 
O48E 6A9E MOVEP A+B2,wreg ; get 3rd byte of A into w 
O48F O3AA SUBWFB MOVVBUF+B2 ; sub 3rd byte of MOVVBUF, save in 
0490 6A9F MOVFP A+B3,wreg ; get 4th byte of A into w 
0491 O3AB SUBWFB MOVVBUF+B3 ; sub 4th byte of MOVVBUF, save in 

SUB32 MOVVBUF , MOVPBUF ; P(k)-V(k-1). 
0492 6AA8 MOVE'P MOVVBUF+BO,wreg ; get lowest byte of MOVVBUF into w 
0493 O5A4 SUBWE MOVPBUF+B0 ; sub lowest byte of MOVPBUF, save in 
0494 6AA9 MOVF'P MOVVBUF+B1,wreg ; get 2nd byte of MOVVBUF into w 
0495 03A5 . SUBWEFB MOVPBUF+B1 ; sub 2nd byte of MOVPBUF, save in 
0496 6AAA MOVFP MOVVBUF+B2,wreg; get 3rd byte of MOVVBUF into w 
0497 03A6 SUBWFB MOVPBUF+B2 ; sub 3rd byte of MOVPBUF, save in 
0498 6AAB MOVE'P MOVVBUF+B3,wreg ; get 4th byte of MOVVBUF into w 
0499 O3A7 ; SUBWFB MOVPBUF+B3 ; sub 4th byte of MOVPBUF, save in 

MOVFP32 A,MOVTMP ; compute A/2 
049A 7C9C MOVFP A+B0,MOVTMP+BO ; move A(BO) to MOVTMP (BO) 
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049B 7D9D MOVFP A+B1,MOVIMP+B1 ; move A(B1l) to MOVTMP(B1) 
049C T7E9SE MOVE'P A+B2,MOVTMP+B2 ; move A(B2) to MOVTMP(B2) 
049D 7F9F MOVFP A+B3,MOVTMP+B3 ; move A(B3) to MOVTMP(B3) 


RRC 32 MOVTMP 


049E 1A1F RLCF MOVTMP+B3,W ; move sign into carry bit 
049F 191F RRCF MOVTMP+B3 
O4A0 191E RRCF MOVTMP+B2 
04A1 191D RRCE MOVTMP+B1 
04A2 191C RRCF MOVTMP+B0 

SUB32 | MOVTMP, MOVPBUF ; P(k-1)=P(k)-V(k-1)-A/2, 
04A3 6A1C MOVE P MOVTMP+B0,wreg ; get lowest byte of MOVTMP into w 
04A4 O5A4 SUBWE MOVPBUF+B0 ; sub lowest byte of MOVPBUF, save in 
04A5 6A1D MOVEP MOVTMP+Bl,wreg ; get 2nd byte of MOVTMP into w 
04A6 O3A5 SUBWFB MOVPBUF+B1 7; sub 2nd byte of MOVPBUF, save in 
04A7 6A1E MOVFP MOVTMP+B2,wreg ; get 3rd byte of MOVTMP into w 
04A8 03A6 SUBWEFB MOVPBUF+B2 ; sub 3rd byte of MOVPBUF, save in 
04A9 6A1F MOVFP MOVTMP+B3,wreg ; get 4th byte of MOVTMP into w 
Q4AA 03A7 SUBWFB MOVPBUF+B3 ; sub 4th byte of MOVPBUF, save in 
O04AB 0002 return 


KK KK Ka KK KKK KKK KK KK RIK KI KKK KK KKK KK KKK KK KKK KK KKK KK KEKK KKK KK 


if _SERVO_PID 


include “pid.asm” ; PID Algorithm 
KK KK RR KK RK KK IK KK KKK KKK KK KKK KK KKK KK KKK KK KKK KKK KKK KR KKK KK K 





; PID Servo Implementation 


Implement Y=KP*U0+KI* INTEGRAL+KV* (U0-U1) 


7s “Ss 38 


g RRR KKK KKK KKK KKK KKK KK KKK KK KKK KK KK KK KK KR KE KK eK KK RK KR RK KR KK 


KKK KK KK KKK KK KK KKK KKK IK KK KKK KKK KKK KR KEK KK KKK KK KKK KKK KKK KEKKKKKKKKKKK 


NAME: doServo 


DESCRIPTION: Performs the servo loop calculations. 


~s “se “ss ~e ws 


doServo: 

MOV16 POSERROR, U0 ; save new position error in 
O4AC 6A79 MOVE'P POSERROR+B0,wreg ; get byte of POSERROR into w 
O4AD 0184 MOVWE U0+B0 ;move to U0 (BO) 
O4AE 6A7A MOVFP  POSERROR+B1,wreg ; get byte of POSERROR into w 
O4AF 0185 MOVWE U0+B1 ; move to U0(B1) 

LOADAB U0,KP ; compute KP*U0 
04B0 7084 MOVFP U0+B0, AARG+B0 > load lo byte of UO to AARG 
04B1 7D85 MOVFP U0+B1, AARG+B1 ; load hi byte of UO to AARG 
04B2 7E26 MOVEFP KP+B0, BARG+B0 ; load lo byte of KP to BARG 
04B3 7F27 MOVEP KP+B1, BARG+B1 ; load hi byte of KP to BARG 
04B4 E12B call Dmult 
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MOVPF32 DPX,Y ; Y=KP*U0 
04B5 5880 MOVPF DPX+BO0, Y+BO ; move DPX(BO) to Y(BOQ) 
O4B6 5981 , MOVPF DPX+B1, Y+B1 ; move DPX(B1l) to Y(B1) 
04B7 5A82 . MOVPE DPX+B2, Y+B2 ; move DPX(B2) to Y(B2) 
04B8 5B83 MOVPE DPX+B3, Y+B3 ; move DPX(B3) to Y(B3) 
O04B9 290A Cire wreg ; if previous output saturated, do 
O4BA 3295 cpfsgt SATFLAG ; not accumulate integrator 
O4BB E552 call doIntegral 
LOADAB INTEGRAL, KI ; compute KI* INTEGRAL 
O4BC 7096 MOVEP INTEGRAL+B0, AARG+B0 ; load lo byte of INTEGRAL to AARG 
O4BD 7D97 MOVFP INTEGRAL+B1, AARG+B1 ; load hi byte of INTEGRAL to AARG 
O4BE 7E2A MOVEP KI+B0, BARG+B0 ; load lo byte of KI to BARG 
O4BF 7F2B MOVE'P KI+B1, BARG+B1 ; load hi byte of KI to BARG 
O4CO E12B Call Dmult 
ADD32 DPX, Y ;  Y=KP*U0+KI* INTEGRAL 
O4C1 6A18 MOVFP DPX+BO0,wreg ; get lowest byte of DPX into w 
04C2 OFS80 ADDWF Y+BO ; add lowest byte of Y, save in Y(BO) 
04C3 6A19 MOVFP DPX+B1,wreg ; get 2nd byte of DPX into w 
04c4 1181 ADDWFC Y+Bl1 ; add 2nd byte of Y, save in Y(B1) 
04C5 6A1A MOVFP DPX+B2,wreg ; get 3rd byte of DPX into w 
04C6 1182 ADDWFC Y+B2 ; add 3rd byte of Y, save in Y(B2) 
04C7 6A1B MOVF'P DPX+B3, wreg ; get 4th byte of DPX into w 
04C8 1183 ADDWFC Y+B3 ; add 4th byte of Y, save in Y(B3) 
MOVF'P16 U0, AARG ; compute KV* (U0-U1) 
04C9 7084 MOVFP U0+B0, AARG+BO ; move U0(BO) to AARG(BO) 
O4CA 7D85 MOVFP U0+B1, AARG+B1 ; move U0O(B1) to AARG(B1) 


SUB16 U1, AARG 


O4CB 6A86 MOVFP U1+B0,wreg ; get lowest byte of Ul into w 
04CC 051C SUBWF AARG+BO ; sub lowest byte of AARG, save in 
O4CD 6A87 MOVFP U1+B1,wreg ; get 2nd byte of Ul into w 

O4CE 031D SUBWFB AARG+B1 ; sub 2nd byte of AARG, save in 


MOVFP16 KV,BARG 


O4CF 7E28 MOVE'P KV+B0, BARG+BO ; move KV(BO) to BARG(BO) 
O4D0 7F29 MOVE'P KV+B1,BARG+B1 ; move KV(Bl) to BARG(B1) 
¢ 

O4D1 E12B call Dmult 

ADD32 DPX, Y ; Y=KP*U0+KI* INTEGRAL+KV* (U0-U1) 
O4D2 6A18 MOVE'P DPX+B0,wreg ; get lowest byte of DPX into w 
04D3 OF80 ADDWE Y+BO0 ; add lowest byte of Y, save in Y(BO) 
04D4 6A19 MOVFP DPX+B1,wreg ; get 2nd byte of DPX into w 
Q04D5 1181 ADDWFC Y+B1 ; add 2nd byte of Y, save in Y(B1) 
O4D6 6A1A MOVE'P DPX+B2,wreg ; get 3rd byte of DPX into w 
O04D7 1182 ADDWFC Y+B2 ; add 3rd byte of Y, save in Y(B2) 
04D8 6A1B MOVFP DPX+B3,wreg ; get 4th byte of DPX into w 
O4D9 1183 ADDWFC Y+B3 ; add 4th byte of Y, save in Y(B3). 


Se AE 2 SE ST FF ET AEE 
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MOV16 U0, U1 ; push errors into U(k-1) 
O4DA 6A84 MOVFP U0+B0,wreg ; get byte of U0 into w 
O4DB 0186 MOVWF U1+B0 ; move to U1(BO) 
O4DC 6A85 MOVF'P U0+B1,wreg ; get byte of UO into w 
O4DD 0187 MOVWE U1+B1 ; move to U1(B1) 
O4DE 290A ou a5 wreg 
O4DF 32B9 cpfsgt SHIFTNUM 
O4EO C4E9 goto grabok 
O4E1 78B9 movfp SHIFTNUM, TMP 
grabloop 
RLC32 4 
O4E2 8804 BCF GaEry 
O4E3 1B80 RLCF Y+B0 
O4E4 1B81 RLCF Y+Bl1 
O4E5 1B82 RLCF Y+B2 
O04E6 1B83 RLCF Y+B3 
O4E7 1718 decfsz TMP 
O4E8 C4E2 goto grabloop 
grabok 
O4E9 2995 elrt SATFLAG 
O4EA 9F83 btfsc Y+B3,MSB ; saturate to middle 16 bits, 
O4EB C4F9 goto negs ; keeping top 10 bits for pwldcH 
poss ; and pwlidcL 
O4EC 6A82 movfp Y+B2,wreg ; check if Y >= 2%**23 
O4ED B580 andlw 0x80 
O4EE 0983 iorwf Y+B3 
O4EF 290A CLlreL wreg 
O4FO 3283 Gprsgt. Yes 
O4F1 C505 goto zero6bits » 2h noty zero: 6 bits 
O4F2 1595 incf SATF LAG ; if so, set Y=0x007FFEFFF 
O4F3 2983 CLre Y+B3 ; Clear for debug purposes 
O4F4 BOTE movlw Ox7F 
O4F5 4A82 movpf wreg, Y+B2 
O4F6 2B81 setf Y+B1 
O4F7 2B80 setf Y+BO 
O4F8 C505 goto zero6ébits 
negs 
O4F9 6A82 movfp Y+B2,wreg ; check if Y <= -2**23 
O4FA B37F iorlw Ox7E 
O4FRB O0B83 andwf Y+B3 
O4FC 2BOA setf wreg 
O4FD 3083 Cpisit, “Bs 
O4FE C505 goto zero6bits ; if not, zero 6 bits 
O4FF 2B95 setf SATE LAG ; if so, set Y = OxFF800000 
0500 2B83 setf Y+B3 
0501 2982 clrf Y+B2 
0502 8782 bsf Y+B2,MSB 
0503 2981 Clrt Y+B1 
0504 2980 CLT Y+BO 
zeroébits 
MOV24 Y+B1, YPWM+BO0 ; move Y to YPWM and zero 6 bits 
0505 6A81 MOVFP Y+B1+B0,wreg ; get byte of Y+Bl into w 
0506 4A88 MOVPF wreg, YPWM+B0+BO ; move to YPWM+BO (BO) 
0507 6A82 MOVFP Y+B1+Bl,wreg ; get byte of Y+Bl into w 
0508 4A89 MOVPF wreg, YPWM+BO0O+Bl1 ; move to YPWM+BO0(B1) 
0509 6A83 MOVFP Y+B1+B2,wreg ; get byte of Y+Bl into w 
O50A 4A8A MOVPF wreg, YPWM+BO+B2 ; move to YPWM+BO (B2) 


Se 8 
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050B 
050C 


050D 
050E 


0O50F 
0510 


0511 
0512 
0513 
0514 


0515 


0516 
0517 


0518 
O519 
O51A 
O51B 


O51C 
051D 
O51E 
O51F 


0520 
0521 
0522 
0323 


0524 
0525 
0526 


0527 
0528 
Us2e 
052A 


052B 
052C 
052D 


052E 
052F 


BOCO 
OB88 


9F89 
CSLG 


9692 
Cale 


2988 
2989 
298A 
298B 


9592 
Care 


2988 
2989 
298A 
298B 


BO7E 
4A19 
BOCO 
4A18 


6A18 
OF88 
6A19 
1189 


2919 
BO40 
4018 


6A18 
OF 88 
6A19 
1189 


291A 
298A 
298B 


788E 
798F 


doTorque 


tplimit 


CLR32 


tmlimit 


CLR32 


movilw 
andwf 


btfsc 
goto 


btfss 
goto 
YPWM 


CLRE 
CLRFE 
CLRF 
CLRF 


goto 


btfss 
goto 
YPWM 


CLRF 
CLRF 
CLRF 
CLRF 


mplimitok 


ADD16 


testmax 


MOVFP16 


movilw 
movpf 
movlw 
movpf 
ADD16 


MOVEF'P 
ADDWE’ 
MOVE'P 
ADDWE'C 


CLEE 

movilw 

movpf 
TMP, YPWM 


MOVE'P 
ADDWF 
MOVE'P 
ADDWE'C 


clrf 

clrf 

Cler 
YPWMAX, TMP 


MOVFP 


MOVEP 


OxC0 
YPWM+BO 


YPWM+B1,MSB 
tmlimit 


EXTSTAT, bit6 
mplimitok 


YPWM+BO 
YPWM+B1 
YPWM+B2 
YPWM+B3 


mplimitok 


EXTSTAT,bit5 
mplimitok 


YPWM+BO 
YPWM+B1 
YPWM+B2 
YPWM+B3 


PW1DCH_INIT 
wreg, TMP+B1 
PW1DCL_INIT 
wreg, TMP+B0 
TMP, YPWM 


TMP+BO,wreg 
YPWM+BO 
TMP+B1,wreg 
YPWM+B1 


TMP+B1 
0x40 
wreg, TMP+BO 


TMP+B0O,wreg 
YPWM+B0 
TMP+B1,wreg 
YPWM+B1 


TMP+B2 
YPWM+B2 
YPWM+B3 


YPWMAX+B0,TMP+BO; move YPWMAX (BO) 
YPWMAX+B1,TMP+B1; 


° 
, 


entry point for torque mode 


adjustment 
for 50% 


from bipolar to unipolar 
duty cycle 


get lowest byte of TMP into w 

add lowest byte of YPWM, save in YPWM (BO) 
get 2nd byte of TMP into w 

add 2nd byte of YPWM, save in YPWM(B1) 


correct: by 1.-LSB 
add one to bit5 of pwidcL 


get lowest byte of TMP into w 

add lowest byte of YPWM, save in YPWM(BO) 
get 2nd byte of TMP into w 

add 2nd byte of YPWM, save in YPWM(B1) 


check pwm maximum limit 
LMD18200 must have a minimum pulse 
so duty cycle must not be 0 or 100% 


to TMP (BO) 


move YPWMAX(Bl1) to TMP (B1) 


renee rete nna ee rr es sr A Nseries estes? 
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SUB24  YPWM, TMP 


0530 6A88 MOVFP YPWM+BO, wreg ; get lowest byte of YPWM into w 
0531 0518 SUBWF TMP+BO sub lowest byte of TMP, save in TMP(BO) 


0532 6A89 MOVE'P YPWM+B1,wreg ; get 2nd byte of YPWM into w 

0533 0319 SUBWFB TMP+Bl1 ; sub 2nd byte of TMP, save in TMP(B1) 
0534 6A8A MOVE'P YPWM+B2,wreg ; get 3rd byte of YPWM into w 

0535 O31A SUBWFB TMP+B2 ; sub 3rd byte of TMP, save in TMP(B2) 
0536 971A btfss TMP+B2,MSB 

0537 C53D goto testmin 


MOV16 YPWMAX, YPWM saturate to max 


“es 


0538 6A8E MOVEFP YPWMAX+B0,wreg ?; get byte of YPWMAX into w 
0539 0188 MOVWE YPWM+B0 7 move to YPWM (BO) 
O53A 6A8F MOVFP YPWMAX+Bl,wreg ; get byte of YPWMAX into w 
053B 0189 MOVWE YPWM+B1 ; move to YPWM(B1) 
053C C54E goto limitok 

testmin 
053D 291A Cire TMP+B2 scheck pwm minimum limit 
053E 298A Cort Bp op YPWM+B2 
053F 298B clre YPWM+B3 


MOVFP16 YPWMIN, TMP 


0540 788C MOVE'P YPWMIN+B0, TMP+BO 
0541 798D MOVFP YPWMIN+B1, TMP+B1 


move YPWMIN(BO) to TMP(BO) 
move YPWMIN(B1) to TMP(B1) 


=e “«e 


SUB24 YPWM, TMP 





0542 6A88 MOVE'P YPWM+BO0,wreg ; get lowest byte of YPWM into w 
0543 0518 SUBWE TMP+B0 ; sub lowest byte of TMP, save in TMP(BO) 
0544 6A89 MOVFP YPWM+B1,wreg ; get 2nd byte of YPWM into w 
0545 0319 SUBWFB TMP+B1 ; sub 2nd byte of TMP, save in TMP(B1) 
0546 6A8A MOVE P YPWM+B2,wreg ; get 3rd byte of YPWM into w 
0547 O31A SUBWFB TMP+B2 ; sub 3rd byte of TMP, save in TMP (B2) 
0548 SOFIA btfsc TMP+B2,MSB 
0549 C5S4E goto limitok 
MOV16 YPWMIN, YPWM ; saturate to min 
054A 6A8C MOVE'P YPWMIN+B0,wreg ; get byte of YPWMIN into w 
054B 0188 MOVWE YPWM+BO ; move to YPWM (BO) 
054C 6A8D MOVE P YPWMIN+Bl,wreg ; get byte of YPWMIN into w 
054D 0189 MOVWE YPWM+B1 ; move to YPWM(B1) 
limitok 
O54E B803 ; movlb bank3 ; set new duty cycle 
O54F 7088 movfp YPWM+B0, pwldcl 
0550 7289 movfp YPWM+B1, pwidch 
0551 0002 return 


g KKK KKK KK KKK KEK KK KKK KK KKK KK KK KK KKK KK RK KKK KKK KE KEKE KK KKK KK KKK KE KK 


KKK KKK KKK KKK IKK KKK KK KK KKK KKK KK KKK KK KKK KEKE KK KK KKK KK KKK KKK KK KK KEK 


NAME: doIntegral 


DESCRIPTION: Evaluates the integral for the servo calculations. 


~e “es ~s “se we 


doIntegral 
ADDi6 U0, INTEGRAL ; do integral 


0552 6A84 MOVE'P U0+B0,wreg ; get lowest byte of UO into w 





4 
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0553 OF96 ADDWF INTEGRAL+B0 ; add lowest byte of INTEGRAL, save in 
0554 6A85 MOVE'P U0+B1, wreg ; get 2nd byte of UO into w 
0555-1197 ADDWFC INTEGRAL+B1 ; add 2nd byte of INTEGRAL, save in 
0556 0002 return 


PRK KKK KKK KEKE KKK KK KEKE KE KEK EK KKK KEKE KK KK KKK KE KKK ERK KKK KK KKKKKKKK 


endif 


if _SERIAL_IO 


include “serial.asm” : Serial I/O Routines 
PR RRR KKK KR KEK KK KKK EK KKK KK KKK KK KKK KK KKK KK KKKKKEKKKKKKKK KK KKK KK KKK KK KKK 


Serial I/O & Utility Functions 


=e es "se Ya 


KKK KKK KKK KE KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKK KK KKKKEKKK KKK KKEKKKK 


Kak KKK KK KKK KKK KKK Kh KKK KKK KK kK KKK KK KKK kK KKK Kha Kak KKK KKK KKK KKK 


NAME: IdleFunction 


“ses 76 


DESCRIPTION: This routine will perform work while doing waits in 
serial I/O functions. 


~e we ~e 


IdleFunction 
0557 0004 CLRWDT 
0558 0002 return 


g RRR KK EK RE KK KR KKK KK KK KK RK KK KKK KK RK KR ee ek ak ek kk ek 


KEK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKEK KK EEK KKKKKKEKKKKEKEK 


NAME: DoCommand 


DESCRIPTION: Search command table for command and execute it. 


wa se M8 Ne Me 


DoCommand 
0559 BO59 moviw (CMD TABLE & Oxff) ; CMD TABLE LSB 
O55A 4A0D movpf wreg,tblptrl 
055B B00? movilw page CMD TABLE ; CMD TABLE MSB 
055C 4A0E movpf wreg,tblptrh 
055D AB3A tablrd 1,1,CMDTEMP 
tryNextCmd 
O55E A93A tablrd 0,1,CMDTEMP ; read entry from table 
O55F A23B tird 1,CMDPTRH 
0560 A93C tablrd 0,1,CMDPTRL 
0561 6A3A movfp CMDTEMP, wreg 
0562 30C1 cpfslt ZERO 
0563 C56E goto noCommand ; error if end of table 
0564 3139 cpfseq CMDCHAR 
0565 C5SSE goto tryNextCmd 
0566 E679 call PutChar ; echo command 
0567 633B movfp CMDPTRH, pclath ; indirect jump to command routine 
0568 623C movfp CMDPTRL, pcl 
0562 0000 NOP 


NS SPR SC IETS SS TS ES NES SN ET A TA CE AN TO A ST ETO 
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cmdFinish 
O5S6A E679 call PutChar ; send response character from 
; command routine followed by CR 

056B BOOD movlw CR 
056C E679 call PutChar 
056D C124 goto PollingLoop 

noCommand 
OS6E BO3F movlw CMD _ BAD ; send error character 
OS6F C5S6A goto emadFinish 


g kk ke kk a ke ee ek ee ee ek ke eke eke ok ak oe ke ke ote ete ke te ek kkk bb kA KEKARKEK KK AK E A 


KKK KK KKK KKK KK KK kk kk kk kK eK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK 


NAME: do_ null 


DESCRIPTION: The do nothing command used to determine if the chip is 
working. Initiated by a carriage return. 


=e 7s 7s 6M U8 


do null 
0570 BO21 moviw CMD OK 
0571 C56A goto emdFinish 


pH Aa a I I I I IK I II KI I IK ek Rk RK KK KK KR KK KR KK KK KK Kk 


KKEKKKKK KKK KK KKK KKK KK KKK KEK KK KK KK Kk KK KK KKK KKK KKK KKK KKK KK KKK ak Ke 


=e we 





NAME: do _ move 
; DESCRIPTION: Commands the axis to move to a new position or velocity. 
: Position data is relative, and in encoder counts. Velocity 
: data is absolute, and in encoder counts/sample time multi- 
: plied by 256. All moves are performed by the controller such 
; that velocity and acceleration limits set into parameter 
: memory will not be violated. All move commands are kept in a 
: one deep FIFO buffer. The command in the buffer is executed 
; as soon as the currently executed command is complete. 
; ARGUMENTS: M (800000, 7PFrFF J 
do move 
phd DECIO 
0572 E6CC call GetDecVal 
else 
call GetVal 
endif 
0573 9F93 btfsc MOVSTAT, bit? ; test if buffer available 
0574 CS7E geto bufoverflow 


MOV2 4 VALBUF , NMOVVAL if so, accept value into NMOVVAL 


7a 





0575 6A31 MOVFP VALBUF+B0,wreg ; get byte of VALBUF into w 

0576 4A5B MOVPE wreg, NMOVVAL+B0 ; move to NMOVVAL (BO) 

0577 6A32 MOVFP VALBUF+B1,wreg ; get byte of VALBUF into w 

0578 4A5C MOVPE wreg, NMOVVAL+B1 ; move to NMOVVAL(B1) 

0579 6A33 MOVFP VALBUF+B2,wreg > get byte of VALBUF into w 

O57A 4A5SD MOVPE wreg, NMOVVAL+B2 ; move to NMOVVAL (B2) 

057B 8793 bsf MOVSTAT, bit? ; set buffer full flag 

O57C BO21 movlw CMD OK 
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O57D C56A goto cmdFinish 

bufoverflow 
OS7E BO3F moviw CMD BAD ; else, return error 
OS7F C56A goto emdFinish 


pK RK KK RK KK KK KKK KKK KKK KK KKK KKK KK KKK KKK KKK RK KKK KK KKK KK KK Rk kK KK 


KKK KKK KKK KKK IKK KKK KK KEK KK KKK KEK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KKEKKKKKKKKK KEK 
NAME: do_mode 


DESCRIPTION: An argument of “P” will cause all subsequent move commands 
to be incremental position moves. A “V” argument will cause 
all subsequent moves to be absolute velocity moves. 


“a 78 "3s ~s e8 ese “ee MS WB 


ARGUMENTS: O [P,V] 
do_mode 
0580 E557 call IdleFunction ; get single character loop 
0581 E681 call GetChk 
0582 31C2 cpfseq ONE 
0583 C580 goto do_mode 
0584 E676 call GetChar 
0585 4A4D movpf wreg, STRVALL 
0586 2991 CLrEE MODETYPE ; MODETYPE=0 for position moves 
testP 
0587 BO50 movilw ‘pe ; position moves for type P 
0588 314D cpfseq STRVALL 
0589 C58B goto testvV 
OS58A C598 goto modeok 
testv 
058B B056 movlw a ; velocity moves for type V 
O058C 314D cpfseq STRVALL 
058D C590 goto testT 
O58E 1591 incf MODETYPE ; MODETYPE=1 for velocity moves 
O58F C598 goto modeok 
testT 
0590 BO054 moviw bias ta ; TORQUE Moves for type ‘T’ 
0591 314D cpfseq STRVALL 
0592 C596 goto modeerror 
0593 2B91 setf MODETYPE ; MODETYPE=-1 for torque moves 
0594 2990 Ccirt SERVOF LAG ; disable servo 
0595 C5968 goto modeok 
modeerror 
0596 BO3F moviw CMD BAD 7; mode error 
0597 C5S6A goto cmdFinish 
modeok 
0598 6A4D movftp STRVALL, wreg ; echo type character 
0599 E679 call PutChar 
059A BO21 moviw CMD OK 
059B C56A goto emdFinish 


PRK KKK RK KK KK KKK KKK KKK RK RK KKK KK KKK IK KKK KEK KKK KEK KKK KKK KK KKK KEK KEE KK KEK KK KK 


KKK KKK KKK KKK KKK KKK KK KKK KKK KKH KKK KEK KKK KEK KK KKK EK KKK KEK KK KKK KEKE KK KKK KKEKKEKKK KKK 


NAME: do_setparameter 


DESCRIPTION: Sets controller parameters to the value given. 


“e 78 ~s “8s se “ses Ye Sa 8 Mae Oe “MB 


Parameter 4 Range 

VL=velocity limit Q [0, 7PEFFF] 
AL=acceleration limit 1 [0, 7FFFFF] 
KP=proportional gain 2 [8000, 7FFF] 
KP=velocity gain 3 (8000, 7FFF] 


(RS NS SD A A SS STS PE ST A EME MT TE 
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: KP=integral gain 4 {8000, 7FFF] 

: IM=integrator mode 5 [0,3] 

; FV=velocity FF 6 (8000, 7FFF] : Not Imple 
: FA=acceleration FF 7 [8000, 7FFF] : Not Imple 
; ARGUMENTS: S [0,FF] (800000, 7FFFFF] 


do_setparameter 





059C E669 call GetPar ; get parameter number 
059D BO0O08 movlw NUMPAR ; check if in range [0,NUMPAR]} 
059E 3031 cpfslt VALBUF+B0 
OS59F C5C1 goto Serror 
O5A0 BO7C moviw (PAR TABLE & Oxff) ; PAR_TABLE LSB 
O5SA1 4A0D movpf wreg,tblptrl 
O5A2 BOO? moviw page PAR TABLE ; PAR_TABLE MSB 
O5A3 4A0E movpf wreg,tblptrh 
05A4 AB3D tablrd 1,1,PARTEMP 
setNextPar 

O5A5 A23D tird 1,PARTEMP ; read entry from table 
O5A6 A93E tablrd 0,1,PARLEN 
OSA? A93F tablrd 0,1,PARPTR 
O5A8 BO008 moviw NUMPAR ; error if end of table 
O5A9 303D cpfslt PARTEMP 
OSAA CSCl goto Serror 
O5AB 6A3D movfp PARTEMP, wreg 
OSAC 3131 cpfseq VALBUF+B0 
OSAD CSA5 goto setNextPar 
OSAE 6A3F movfp PARPTR,wreg ; pointer to parameter in fsrl 
OSAF 690A movfp wreg,fsrl 

if DECIO ; get new value in VALBUF 
O5B0 E6CC call GetDecVal 

else 

call GetVal 

endif 
05B1i BO31. moviw VALBUEF ; pointer to VALBUF in fsr0 
O5B2 610A movfp wreg,fsr0 

AUTOINC ; set autoincrement 
05B3 8404 BSF meet!) 
O5B4 8D04 BCE _fsl 
O5B5 8604 BSF £82 
O5B6 8F04 BCF _fs3 

setGetMore 

0O5B7 6800 movfp indf0, indf. ; move new value to parameter 
O5B8 073E decf PARLEN 
05B9 333E tstfsz PARLEN 





ES Sa RIA SIE LR EIS LIE END AE IT ES SOR TEE SEN NTS AS AS MEADS EEE TTT SOSA RTT TE oR LE ET REL ISITE EL ON STO AR 
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O5BA C5B7 goto setGetMore 
AUTONO ; no autoincrement 
O5BB 8404 BSF _fs0 
O5BC 8504 BSF “£S 
O5BD 8604 BSF _fs2 
OSBE 8704 BSF ES 
OSBF BO021 movlw CMD_OK 
O5C0 C56A goto emdFinish 
Serror 
05Cl BO3F movlw CMD BAD 
05C2 CS6A goto cmdFinish 
gH KR KKK KKK RK KKK KK KKK KK KKK KR KKK KK KKK KK KKH KK KEK RH KK KKK KKK KK EK EK KEK KEK KK EK KK 
p RR KKK KK KK RK KKK KKK KK KKK KK KKK KKK KEK KEKE KKK KEK KKK KEKE KKK KK KKK KK KKK KK KKK KK KK 
7; NAME: do_readparameter 
; DESCRIPTION: Returns the present value of a parameter. 
; ARGUMENTS: R [0,FF] 
; RETURNS: The present value of the requested parameter is returned. 
do_readparameter 
05C3 E669 call GetPar get parameter number 
05C4 BOOS moviw NUMPAR check if in range [0,NUMPAR] 
05C5 3031 cpfslt VALBUF+B0 
05C6 C5SEB goto Rerror 
05¢C7 BO7?C movilw (PAR_TABLE & Oxff) PAR_TABLE LSB 
05C8 4A0D movpf wreg,tblptrl 
05C9 B00? moviw page PAR TABLE PAR TABLE MSB 
OSCA 4A0E movpf wreg,tblptrh 
0O5CB AB3D tablrd 1,1,PARTEMP 
readNextPar 
05CC A23D tlrd 1,PARTEMP read entry from table 
O5CD A93E tablrd 0,1,PARLEN 
OSCE A93F tablrd 0,1,PARPTR 
OSCF B008 moviw NUMPAR error if end of table 
O5D0 303D cpfslt PARTEMP 
05D1 C5SEB goto Rerror 
O5D2 6A3D movfp PARTEMP, wreg 
05D3 3131 cpfseq VALBUF+B0 
05D4 C5CC goto readNextPar 
O5D5 6A3F movfp PARPTR,wreg pointer to parameter in fsrl 
O5D6 690A movfp wreg,fsrl 
O05D7 BO31 movlw VALBUF pointer to VALBUF in fsrl 
O5D8 610A movfp wreg,fsr0 
AUTOINC set autoincrement 
O5D9 8404 BSF — _fs0 
O5DA 8D04 BCF £31 
O5DB 8604 BSF Se 





DS00532B-page 78 


4-274 


© 1993 Microchip Technology Inc. 


Servo Control of a DC-Brush Motor 








O5DC 8F04 BCF _fs3 
CLR24 VALBUF ; clear old VALBUF 
O5DD 2931 CLRF VALBUF+B0 
OSDE 2932 CLRE VALBUF+B1 
O5DF 2933 CLRFE VALBUF +B2 
readGetMore 
OSEO 6008 movfp indfl, indf0 ; read parameter into VALBUF 
OS5E1 073E decf PARLEN 
O5E2 333E tstfsz PARLEN 
O5E3 CSEO goto readGetMore 
AUTONO 7; no autoincrement 

O5E4 8404 BSF _fs0 
OSES 8504 BSF ee! 
O5SE6 8604 BSF 22682 
O5E7 8704 BSF Re ee 

Lt DECIO 7; send parameter value 
OSE8 E728 call PutDecVal 

else 

call PutVal 

endif 
OSE9 BO21 movlw CMD OK 
OSEA C56A goto emdFinish 

Rerror 

OSEB BO3F moviw CMD_BAD 
OSEC C56A goto emdFinish 


pK RK IK I KK I KK IK KK IK IK KK KK KK TK IK KK EK EK RK RK RK RK KK KKK 


KK KKK KKK KKK KK KKK KKK KEKE KKK KK KKK KK KKK KKK KKK KKK Kk KKK kk ka KKK kkk KKK K KK 


NAME: do_shutter 


DESCRIPTION: Returns the time (in sample time counts [0,FFFF]) since the 
start of the present move and captures the commanded and 
measured values of position and velocity at the time of the 


~e ea Se te Se Me UFelU Ml ll MU OO 


command, 
ARGUMENTS: C 
RETURNS: The time since the start of the present move is returned. 
do_shutter 
MOV24 POSITION, CPOSITION ; capture commanded position 

OSED 6A55 MOVFP POSITION+B0,wreg ; get byte of POSITION into w 
OSEE 4A40 MOVPE wreg, CPOSITION+B0 ; move to CPOSITION (BO) 
OSEF 6A56 MOVFP POSITION+B1,wreg ; get byte of POSITION into w 
OSFO 4A41 MOVPE’ wreg, CPOSITION+B1 7; move to CPOSITION (B11) 
OSF1 6A57 MOVFP POSITION+B2,wreg ; get byte of POSITION into w 





(ERE TN TTS TI I SE EE OT ET BY I DS A IE I I EE BT TT TE TEL TET ETL ES 
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OSF2 4A42 MOVPF wreg, CPOSITION+B2 7; move to CPOSITION (B2) 
MOV24 VELOCITY, CVELOCITY ; capture commanded velocity 
OSF3 6A58 MOVEP VELOCITY+B0,wreg ; get byte of VELOCITY into w 
OSF4 4A43 MOVPF wreg, CVELOCITY+B0 ; move to CVELOCITY (BO) 
O5SFS 6A59 MOVEP VELOCITY+B1,wreg ; get byte of VELOCITY into w 
OSF6 4A44 MOVPF wreg,CVELOCITY+B1 ; move to CVELOCITY (B1) 
O5F7 6A5A MOVE'P VELOCITY+B2,wreg ; get byte of VELOCITY into w 
OSF8 4A45 MOVPF wreg, CVELOCITY+B2 ; move to CVELOCITY (B2) 
MOV24 MPOSITION, CMPOSITION ; capture measured position 
OSF9 6A72 MOVFP MPOSITION+B0,wreg ; get byte of MPOSITION into w 
OSFA 4A46 MOVPF wreg, CMPOSITION+B0 ; move to CMPOSITION (BO) 
OSFB 6A73 MOVF'P MPOSITION+B1, wreg ; get byte of MPOSITION into w 
O5FC 4A47 MOVPF wreg, CMPOSITION+B1 ; move to CMPOSITION(B1) 
OSFD 6A74 MOVE P MPOSITION+B2,wreg ; get byte of MPOSITION into w 
OSFE 4A48 MOVPF wreg, CMPOSITION+B2 ; move to CMPOSITION(B2) 
MOV24 MVELOCITY, CMVELOCITY ; capture measured velocity 
OSFF 6A75 MOVE'P MVELOCITY+B0, wreg ; get byte of MVELOCITY into w 
0600 4A49 MOVPF wreg, CMVELOCITY+B0 ; move to CMVELOCITY (BO) 
0601 6A76 MOVE'P MVELOCITY+B1,wreg ; get byte of MVELOCITY into w 
0602 4A4A MOVPF wreg, CMVELOCITY+B1 7; move to CMVELOCITY (B1) 
0603 6A77 MOVFP MVELOCITY+B2,wreg ; get byte of MVELOCITY into w 
0604 4A4B MOVPF wreg, CMVELOCITY+B2 ; move to CMVELOCITY (B2) 
0605 2933 CLre VALBUF+B2 
MOV16 MOVTIME, VALBUF ; capture move time, move to VALBUF 
0606 6A67 MOVFP MOVTIME+B0, wreg ; get byte of MOVTIME into w 
0607 0131 MOVWE VALBUF+B0 ; move to VALBUF (BO) 
0608 6A68 MOVFP MOVTIME+B1,wreg ; get byte of MOVTIME into w 
0609 0132 MOVWE VALBUF+B1 ; move to VALBUF (B1) 
Af DECIO 
060A E728 call PutDecVal 
else 
call PutVal 
endif 
060B BO21 movlw CMD OK 
060C C56A goto emdFinish 


RRR KKK KKK KKK KK KKK KEK KKK KK KKH KK RK KKH KKK KK KK KK KKK EK KK KKK KKK KE KKK KK KKK KKK KK KKK 


PKK KKK KEKE KKK KK KK KKK KEK KK KK KK KKK KK KK KKK KKK KK KK KKK KKK KKK KEKE KK KKEKKKEKKEKKKKK 


NAME: do_readcomposition 


; DESCRIPTION: Returns the commanded position count which was captured 

. during the last shutter command. 

; ARGUMENTS: P 

; RETURNS: The last captured position count is returned. [800000, 7FFFFF] 


a 
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0613 


0614 
0615 


0616 
0617 
0618 
0619 
061A 
061B 


061C 


061D 
O61E 


6A40 
4A31 
6A41 
4A32 
6A42 
4A33 


E728 


B021 
C56A 


6A43 
4A31 
6A44 
4A32 
6A45 
4A33 


E728 


B021 
CS6A 


do_readcomposition 
MOV24 CPOSITION, VALBUF 


MOVEP CPOSITION+B0, wreg 
MOVPF wreg, VALBUE+B0 


MOVE P CPOSITION+B1, wreg 
MOVPF wreg, VALBUF+B1 
MOVE P CPOSITION+B2, wreg 
MOVPF wreg, VALBUF+B2 

if DECIO 

call PutDecVal 

else 

call PutVal 

endif 

movlw CMD OK 

goto cmdFinish 


~e “e “ses “es ~e ~s 


move CPOSITION to VALBUF 


get byte of CPOSITION into w 
move to VALBUF (BO) 
get byte of CPOSITION into w 
move to VALBUF (B1) 
get byte of CPOSITION into w 
move to VALBUF (B2) 


g RK KIRK KKK KKK KKH KKK KKK KK KK KKK IK KK KKK KKK KK KK IKK KKK KEK KKK KK KK KKK KKK KK KKK 


NAME: do_readcomvelocity 


ARGUMENTS: V 


RETURNS : 
[800000, 7FFFFF'] 


Sl nd i ad ad ad ad id a ed il} 


do_readcomvelocity 


MOV24 CVELOCITY, VALBUF 


MOVFP CVELOCITY+B0O,wreg 
MOVPF wreg, VALBUF+B0 
MOVFP CVELOCITY+B1, wreg 


MOVPF wreg, VALBUF+B1 
MOVE'P CVELOCITY+B2,wreg 
MOVPE wreg, VALBUF+B2 


if DECIO 

call PutDecVal 
else 

call PutVal 
endif 

moviw CMD OK 
goto emdFinish 


=e 78 68 


-e “ses “Me 


KK KKK KK KKK KI KKK KK KKK KK KKK KK KKK KKK KKK KKK KEKE KKK KKK KE KKK KKKKEKKKEKK KK KKK KK KKK 


DESCRIPTION: Returns the commanded velocity multiplied by 256 which was 
captured during the last shutter command. 


The last captured commanded velocity times 256 is returned. 


move commanded velocity to VALBUF 


get byte of CVELOCITY into w 
move to VALBUF (BO) 
get byte of CVELOCITY into w 
move to VALBUF (B1) 
get byte of CVELOCITY into w 
move to VALBUF (B2) 


gO eK KK KK KK KK KKK KK KKK KK KKK KK KKK KE KK IKK KEK EK KKK KEK EKA KE KKK KK KK 


oR KK KK KK KK KK KK RK KK KKK KKK KKK KKK KER KKK KKK KK KK KEK KKK KEKKKK KKK KEKE 
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0625 


0626 
0627 


0628 
0629 
062A 
062B 
062C 
062D 


062E 


6A46 
4A31 
6A47 
4A32 
6A48 
4A33 


E728 


BO21 
CS6A 


6A49 
4A31 
6A4A 
4A32 
6A4B 
4A33 


E728 


NAME: do_readactposition 


ARGUMENTS: p 


[800000, 7FFFFF] 


=e ~s “se “ses *e “es “eo “se we We 


do_readactposition 
MOV24 CMPOSITION, VALBUF 


MOVFP CMPOSITION+B0,wreg 
MOVPF wreg, VALBUF+B0 
MOVE P CMPOSITION+B1,wreg 
MOVPF wreg, VALBUF+B1 
MOVFP CMPOSITION+B2,wreg 
MOVPF wreg, VALBUF+B2 


a DECIO 

call PutDecVal 
else 

call PutVal 
endif 


moviw CMD_OK 
goto emdFinish 


=e 


"<« ve 7s "=e "8 “es 


DESCRIPTION: Returns the measured position count which was captured 
during the last shutter command. 


RETURNS: The last captured measured position count is returned, 


move measured position to 


get byte of CMPOSITION into w 
move to VALBUF (BO) 
get byte of CMPOSITION into w 
move to VALBUF (B1) 
get byte of CMPOSITION into w 
move to VALBUF (B2) 


KKK KIKI KK KK KKK KKK KKK KKK KK EK KKK KKK KE KKK KK KEE KEK EKER KEKE KKK KK KK KKK KKK KK KK 


NAME: do _ readactvelocity 


ARGUMENTS: Vv 


(800000, 7FFFFF] 


. - . . ~ ~ - . ~ ~ ~ 
s s a e s 8 e s s s a 


do readactvelocity 
MOV24 CMVELOCITY, VALBUF 


MOVFP CMVELOCITY+B0,wreg 
MOVPF  wreg, VALBUF+BO 
MOVE'P CMVELOCITY+Bl1,wreg 
MOVPE wreg, VALBUF+B1 
MOVE'P CMVELOCITY+B2,wreg 
MOVPE wreg, VALBUF+B2 


ie DECIO 
call PutDecVal 
else 


. 
‘ 


~s 7. “ee Se “ee “Oe 


KK KKK KK KKK KKK KK IK KKK KK KKK KK KKK KKK IK KKK IK KK KKK KEKE KKKEKKEKKKKKKKKK KKK KKK KKK 


DESCRIPTION: Returns the measured velocity multiplied by 256 which was 
captured during the last shutter command. 


RETURNS : The last captured measured velocity times 256 is returned, 


move measured velocity to 


get byte of CMVELOCITY into w 
move to VALBUF (BO) 
get byte of CMVELOCITY into w 
move to VALBUF (B1) 
get byte of CMVELOCITY into w 
move to VALBUF (B2) 





; 
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call PutVal 
endif 
062F BO21 movlw CMD_OK 
0630 CS56A goto cmdFinish 


pea RK KR KK KKK KK KKK KK KKK KKK KKK KKK KK KKK KK KEK EK KKK KK KKK KK KKK KEK KKK KKKKK KK KEK 


kak kkk kk KKK KK KKK KK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KK KKK KKKEKKKKKKKAKKE KKK KK KKK 


NAME: do_externalstatus 

DESCRIPTION: Returns a two digit hex number which defines the state of 
the bits in the external status register. Issuing this 
command will clear all the bits in the external status 
register unless the event which set the bit is still true. 


ARGUMENTS: X 


RETURNS: The external status register is returned. 


-s ~e ses ~s es “se “es es “2 “oe Me Me ME 


do_externalstatus 


0631 8406 bsf _glintd 

0632 6A92 movfp EXTSTAT, wreg 
0633 2992 clrf EXTSTAT 

0634 8C06 bee _glintd 

0635 E688 call PutHex 

0636 BO21 movlw CMD OK 

0637 C56A goto emdFinish 





ok kk kk eke kk kek eee kee eek kee ok eke eee eke keke kee ae keke kee ae keke kee eke ok kee eke de ok ee ieee ke ete ee ke kee tee tke kk 


KKK KKK KKK KK KKK KK KEK KKK KKK KK KKK KKK KEK KKK KKK KKK KEKE KKK KKK KKKKKEKEKKEKKKEK KKK KKKKK 


; NAME: do_movestatus 


DESCRIPTION: Returns a two digit hex number which defines the state of 
the bits in the move status register. Issuing this command 
will clear all the bits in the move status register unless 
the event which set the bit is still true. 


“es 


zr) 


~s 78 28 


ARGUMENTS: ¥ 


RETURNS: The move status register is returned. 


=e 38 fe 


do_movestatus 


0638 6A93 movfp MOVSTAT, wreg 
0639 E688 call PutHex 

063A BO21 movlw CMD OK 

063B C5S6A goto cmdFinish 


PR RK RK KKK KEK RK IKK KKK KK IK KKK KKK KKK IKK KK I KKK KK KK RK KK KK ERK KK KK KK 


KK KKK KK KKK KKK KK KK KKK KEKE KKK KK KKK KK KKK IKK KKK KEK KKK KK KKK KEK KKK KK KKK KKKKKKKKKKKKKKK 


NAME: do_readindposition 
DESCRIPTION: Returns the last index position captured in position counts. 
ARGUMENTS: ag 


RETURNS: The last captured index position is returned. 


~e %e “es “se S88 “se ee “Ss “SC 


do_readindposition 
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MOV24 INDEXPOS, VALBUF ; move measured velocity to VALBUF 
063C 6AB6 MOVFP INDEXPOS+B0,wreg ; get byte of INDEXPOS into w 
063D 4A31 MOVPF wreg, VALBUF+B0 ; move to VALBUF (BO) 
063E 6AB7 MOVFP INDEXPOS+B1,wreg > get byte of INDEXPOS into w 
O63F 4A32 MOVPF wreg, VALBUF+B1 ; move to VALBUF (B1) 
0640 6AB8 MOVE P INDEXPOS+B2,wreg ; get byte of INDEXPOS into w 
0641 4A33 MOVPF wreg, VALBUF+B2 7; move to VALBUF (B2) 
if DECIO 
0642 E728 call PutDecVal 
else 
call PutVal 
endif 
0643 BO21 movlw CMD OK 
0644 CS6A goto cmdFinish 
RK KKK KK KKK KK KEI KK KKK KK KK KK KKK KK KK KKK KKK KK KKK HK KKK KK KKK KK ERK KK EKKKEKKKKEKKKKK 
pk kee KR eR KR eK I KR RK KK KK KK KKK KKK KK KKK KK KKKKKKKKEKKEKKKKKEKE 
; NAME: do_setposition 
; DESCRIPTION: Sets the measured and commanded position to the value given, 
This command should not be sent unless the move FIFO buffer 
; ARGUMENTS: H [800000, 7FFFFF ] 
do_setposition 
if DECIO 
0645 E6CC call GetDecVal 
else 
call GetVal 
endif 
MOV24 VALBUF, POSITION 
0646 6A31 MOVEP VALBUF+B0,wreg ; get byte of VALBUF into w 
0647 4A55 MOVPF wreg, POSITION+B0 ; move to POSITION(BO) 
0648 6A32 MOVFP VALBUF+B1,wreg ; get byte of VALBUF into w 
0649 4A56 MOVPE wreg, POSITION+B1 7; move to POSITION(B1) 
064A 6A33 MOVEP VALBUF+B2,wreg ; get byte of VALBUF into w 
064B 4A57 MOVPF wreg, POSITION+B2 > move to POSITION (B2) 
MOV24 VALBUF , MPOSITION 
064C 6A31 MOVFP VALBUF+B0, wreg ; get byte of VALBUF into w 
064D 4A72 MOVPE wreg, MPOSITION+B0 ; move to MPOSITION (BO) 
064E 6A32 MOVF'P VALBUF+B1,wreg ; get byte of VALBUF into w 
064F 4A73 MOVPF wreg,MPOSITION+B1 7; move to MPOSITION (B1) 
0650 6A33 MOVFP VALBUF+B2,wreg > get byte of VALBUF into w 
0651 4A74 MOVPF wreg,MPOSITION+B2 7; move to MPOSITION (B2) 
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CLR32 Y 
0652 2980 CLRF Y+B0 
0653 2981 CLRF Y+B1 
0654 2982 CLRF Y+B2 
0655 2983 CLRF Y+B3 
0656 BO21 movlw CMD OK 
0657 C56A goto emdFinish 


PRK IKK KK KKK KKK KKK KKK KK KKK KK KKK KK KK KKK RO Rk kk kk tok kkk kok kkk 


KKK KKK KKK KKK KKK KEKE KKK KKK KKK EK KKK KEK KEKE KK KEKE KK KKK KEKE KEKKKKKKKKKKKKKKK KEK 


NAME: do_reset 


DESCRIPTION: Performs a software reset. 


Ss bad J “se 7s “se =e "se 


ARGUMENTS: Z 
do_ reset 
0658 BO21 moviw CMD OK 
0659 E679 call PutChar 
065A C021 goto Startup 


KEK KEK KKK RK IK KKK KR KKK KKK KK KKK KK KKK KK KK KKK KKK KK KKK KKK KKK KEKE KKEKEKKKEKE 





: NAME: do_stop 
DESCRIPTION: Stops servo by clearing SERVOFLAG. 
ee 

065B 2990 Girt SERVOF LAG 

065C BO21 movlw CMD OK 

065D C56A goto emdFinish 


KK KKK KKK KK KK KKK KKK KK KK KR KKK KKK KEK KKK KK EK KKK KKK KEK KKK KKKKK KK KKKKKKEKKEKKKKEKKKKKE 


KEK KK KK KKK KK KKK KK KKK KK KKK KK KKK KEK KKK KK KKK KEK KEKE KKK KKK KKK KEK KKK KKKKEKKEKKKKKKEKE 


NAME: do_capture 


s 
, 
. 
¢ 
. 
# 


do_ capture 


ce! (( PICMASTER DEBUG == 1) && (DECIO == 1)) 
Q065E E6CC call GetDecVal 
endif 
if (( PICMASTER DEBUG == 1) && (DECIO == 0)) 
call GetVal 
endif 
if ' _PICMASTER_DEBUG == 1 


MOV16 VALBUF , CAPCOUNT 


O65F 6A31 MOVFP VALBUF+B0,wreg ; get byte of VALBUF into w 
0660 O1BC MOVWE CAPCOUNT+B0 7; move to CAPCOUNT (BO) 
0661 6A32 MOVFP VALBUF+B1,wreg ; get byte of VALBUF into w 
0662 O01BD MOVWE CAPCOUNT+B1 7 move to CAPCOUNT(B1) 


SS I A SES ES ESE SS EAS SE TE EEE ETTORE 
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MOV16 VALBUF , CAPTMP 


0663 6A31 MOVFP VALBUF+B0,wreg ; get byte of VALBUF into w 
0664 O1BE MOVWE CAPTMP+B0 ? move to CAPTMP (BO) 
0665 6A32 MOVFP VALBUF+B1,wreg ; get byte of VALBUF into w 
0666 O1BF MOVWE CAPTMP+B1 7 move to CAPTMP (B1) 
0667 BO21 movlw CMD OK 
0668 C56A goto emdFinish 

endif 


KK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KEK KK KKK KKK KK KKK KK KKKKKKKKKKKKKKKKEKK 


NAME: GetPar 


DESCRIPTION: Get a parameter number [0,FF] from the serial port and place 
it in VALBUF+BO. 


=e “ce ~s “se 


GetPar 

CLR24 VALBUF 
0669 2931 CLRF VALBUF+B0 
066A 2932 CLRFE VALBUF+B1 
066B 2933 CLRF VALBUF+B2 
066C E6B2 call GetHex 
066D 6A4E movfp HEXVAL,wreg 
0O66E BSOF andlw Ox0F 
O66F 4A31 movpf wreg, VALBUF+B0 
0670 1D31 swapf VALBUF+B0 
0671 E6B2 call GetHex 
0672 6A31 movfp VALBUF+B0,wreg 
0673 OE4E addwf HEXVAL,W 
0674 4A31 movpf wreg, VALBUF+B0 
0675 0002 return 


RK RK KKK KEKE KR KK KK KKK KK KKK KEK KKK KE KKK KEK KKK KK KKK KK KKK KKK KEKE KEK KKK KEK EK KEKE KEKE 


KEK KK KK KKK KEK KKK KK KKK KK KKK KK KKK KK KKK KKK KKK KKK KEK KKK KEKE KK KEK KEK KEKE KK KKK KEKKKK 


NAME: GetChar 


DESCRIPTION: Get character from receive buffer. 


~e ~e ~ea Fe =e 


GetChar 
0676 B800 movib bankO 7; set bankOo 
0677 S40A movpf rereg, wreg ; receive character 
0678 0002 return 


pK KK KKK KK KICK KK KKK EK KKK KK KK KKK KKK KK KKK KEK KKK KE KKK KK KKK KK EK KKK KKK KK KEKKKEK KKK 


KKK KKK KK KKK KK KKK KK KKK KK KKK KK KKK IKK KKK KKK KK KKK KKK K KKK KEKKEKKKKEKKKKKKKKKK KKK 


NAME : PutChar 
DESCRIPTION: send character out the serial port 


ARGUMENTS: wreg contains byte to be transmitted 


~e *e “s 8 es “ee “8s 
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PutChar 
0679 B801 movib bankl 7; set bankl 

bufwait ; is transmit buffer empty? 
067A 9116 btfss  —tbmt 
067B C67A goto bufwait 
067C B800 movlb bank0 7; set banko 

shfwait 
067D 9115 btfss _trmt 7; is transmit shift register empty? 
O67E C67D goto shfwait 
O67F 4A16 movpf wreg,txreg ; if so, send character 
0680 0002 return 


KKK RK RK KK KKK KKK KKK KKK KKK KKK KKK KEK KK KKK KKK KKEKKEKKEKKKKKEK KK KKK KK KKK KKKKK KK KKK 


ok kkk KKK KKK KK Kw KKK KK KKK KK KEK KKK KKK KKK IK KK KKK KK KKK KK KKK KEKE KK KK KKK KK KKK 


NAME: GetChk 


DESCRIPTION: Check if character is in receive buffer. 


=e te “se se @ 


Get Chk 
0681 B801 movib bankl ; set bankl 
0682 560A movpf pir,wreg 
0683 BS01 andlw CHARREADY ; return status in wreg 
0684 0002 return 


KKK KKK KK KK KKK KKK KK KK KKK KK KK KKK KKK KK KK KKK KKK KKK KKK KK KKK KEKE KKK KK KKK KK KKK 


ORK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKKKK KK KKK KK KKK 


NAME: PutDec 





me “3s ese * 


DESCRIPTION: Converts a hex value [0,F] in wreg to its ASCII equivalent. 
The upper nibble of wreg is assumed to be zero. 


7. 


ENTRY CONDITIONS: wreg = value to be converted and sent in ASCII decimal 


-s "es re 


if DECIO 
PutDec 
0685 B130 addlw 0x30 > convert to ASCII 
0686 E679 call PutChar 
0687 0002 return 
endif 


pI RIK II i I I IO KI I I I IK I IK KK IK KK KK KKK KE KKK KK KKK RK KK KK RK KKK KR KK KEEK 


kkk kk kk kK KK KKK KK KKK KK KK KKK KKK KKK KKK KK KK KKK KKK EK KKK KKK KKKEKKKEKKKKKEKEK 


NAME: PutHex 


DESCRIPTION: Convert the wreg value to ASCII hexadecimal. The output 
format is two digits with the A-F parts in upper case and 
leading zeros. The result is sent out the serial port with 
PutChar. 


ENTRY CONDITIONS: wreg = value to be converted and sent in ASCII hex 


“s 7s es “se Se “es “es Ve Se ME 


PutHex 
0688 4A4E movpf wreg, HEXVAL 
0689 IDOA swapf wreg 
068A BSOF andlw Ox0F 
068B 4A4F movpf wreg, HEXTMP 
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068C 2D0A 
068D B109 
O68E 970A 
O68F C693 
0690 BO37 
0691 OR4F 
0692 C695 


0693 BO30 
0694 OE4F 


0695 E679 


0696 6A4E 
0697 BSOF 
0698 4A4F 
0699 2D0A 
069A B109 
069B 970A 
069C Cé6A0 
069D BO37 
O69E OE4F 
O69F C6A2 


06A0 B030 
O6Al OE4F 


O6A2 E679 


06A3 0002 


O6A4 AB4AC 


Q6A5 A24C 
Q6A6 A94D 


O6A7 6A4C 
Q6A8 31C1 
O6A9 C6AB 
O6AA 0002 


O6AB E679 
O6AC 6A4D 
O6AD 31C1 
O6AE C6BO0 
O6AF 0002 
06BO E679 


06B1l C6A5 





negw 


addlw 
btfss 


goto 


movlw 


addwf 
goto 
puth20 


movilw 
addwf 


puth25 
call 


movfp 
andlw 


movpf 
negw 


addlw 


btfss 
goto 


movlw 


addwf 
goto 
put120 


moviw 


addwf 
put125 
call 


return 


wreg 
0x09 
wreg,MSB 
puth20 
‘A’-O0x0A 
HEXTMP ,W 
puth25 


‘O° 
HEXTMP , W 


PutChar 


HEXVAL, wreg 
Ox0F 

wreg, HEXTMP 
wreg 

0x09 
wreg,MSB 
putl120 

‘A’ -Ox0A 
HEXTMP,W 
putl25 


‘or 
HEXTMP , W 


PutChar 


PRR KKK KK KKK KK KKK KK KKK KEK KK KK KKK IK KKK RK HER KKK KKK KK ERK EK KEK KEK ERK KEKKKEK KK KKK RK KKK 


NAME: 


=s ‘es “8s Tea “es 


PutStr 


tablrd 


GetNextPair 


tlrd 


tablra 


movfp 
cpfseq 


goto 


return 


putH 
call 


movifp 
cpfseq 


goto 


return 


putL 
call 


goto 


DESCRIPTION: 


PutStr 


KkkKkK kK kK Kh KK KK KKK kkk Kk KkKkk kk kkk kk kkk kk kkk kk kkk kK kkk ak kkk KKK KKK KKK KKK KKK KK KKK 


Sends a character string out the serial port. 


1,1,STRVALH 
1,STRVALH 
0,1,STRVALL 
STRVALH, wreg 
ZERO 

putH 

PutChar 
STRVALL, wreg 
ZERO 

putL 


PutChar 


GetNextPair 


pK KK KKK KK IK KK KKK KI KKK KK HK KK KEK K KKK KK IK KKK KK KKK KK KKK KKK KKK ERK RK KK RK KK 


gH KK RIK KKK KK KKK KK KEK KEK KEKE KKK KKK KKK IK KKK KK RK KKK KKK EK KKK KK RK KE RK KR 


NAME: 


“se Ye “ee ~a 


DESCRIPTION: 


GetHex 


Receive an ASCII hex character from the serial port and 


convert to numerical value. 
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RETURNS: numerical value in HEXVAL 
GetHex 
getnxt 
06B2 E557 call IdleFunction 
06B3 E681 call GetChk 
06B4 31C2 cpfseq ONE 
06B5 C6B2 goto getnxt 
06B6 2950 elrt HEXSTAT 
O6B7 E676 call GetChar 
06B8 4A4E movpf wreg, HEXVAL 
06B9 E679 call PutChar 
O6BA BOOD movlw CR 
O6BB 044E subwf HEXVAL, W 
O6BC 330A tstfsz wreg 
O6BD C6BF goto gth10 
O6BE Coca goto gthCR 
gth10 
O6BF 6A4E movfp HEXVAL,wreg 
06CO B239 sublw “OF 
06C1 970A btfss wreg,MSB 
06C2 C6C5 goto gth20 
06C3 BOOS moviw 0x09 
06C4 OF4E addwf HEXVAL 
gth20 
06C5 BOOF movlw Ox0F 
06C6 OB4E andwf HEXVAL 
06C7 2950 Poul aac HEXSTAT 
06C8 0002 return 
gthCR 
06C9 BOO] moviw 0x01 
QO6CA 4A50 movpf wreg,HEXSTAT 
O06CB 0002 return 


: kkk KKK KKK Ka KKK KK KKK KKK KK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KE KKKKKKKKKKKKKKK KKK 
KR KKK KK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KKK KK KK KKK KEK KKK KK KKK KK KKK KKKEEK 
NAME: getval 


DESCRIPTION: Get a value [800000, 7FFFFF] from the serial port and place 
it in VALBUF. 


“ses “a “se 78 7s ME 








LE DECIO 
else 

Get Val 
CLR24 VALBUF 

getnext 
call GetHex 
moviw 0x01 
cpfseq HEXSTAT 
goto shift 
return 

shift 
swapf VALBUF +B2 
movfp VALBUF+B2,wreg 
andlw OxF'0 
movpf wreg, VALBUF+B2 
swapf VALBUF+B1 
movfp VALBUF+B1,wreg 
andlw OxO0F 
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06D9 
06DA 
06DB 
06DC 


06DD 
06DE 
O6DF 
06E0 
06E1 
06E2 


2931 
2932 
2933 


E708 
2B9B 
BO01 
3199 
299B 


E708 


B002 
3199 
Cé6D9 
COFD 


8804 
1B31 
1B32 
1B33 


6A31 
4A34 
6A32 
4A35 
6A33 
4A36 


addwf 
movftp 
andlw 
movpf 
swapf 
movfp 
andlw 
addwf 
movfp 
andlw 
addwf 
movpf 


goto 


endif 


VALBUF +B2 
VALBUF+B1,wreg 


 OxFO 


wreg, VALBUF+B1 
VALBUF +B0 
VALBUF+B0,wreg 
Ox0F 

VALBUF+B1 
VALBUF+B0,wreg 
OxFO 

HEXVAL,W 

wreg, VALBUF+BO0 


getnext 


oR ERK KK KEK KK KKK KK RE KEK KK KKK KKK KK RK KKK KKK KK KKK KEK KEKE KKK KEKE KK KKK KK KKK KK KKK 


KKK KKK KKK KK KKK KKK KKK KKK KK KKK KK RK KEK KKK KK KEKE KK KKK HK KKK KEKKKKKEK KKK KK KK KKK KEE 


; NAME: 

; DESCRIPTION: 
; RETURNS: 

ae 


GetDecVal 
CLR24 


CLRE 
CLRF 
CLRF 


call 
setf 
moviw 
cpfseq 
CITE 


getdecnext 
call 


moviw 

cpfseq 

goto 

goto 
mul10 


RLC24 VALBUF 


BCF 

RLCF 
RLCF 
RLCF 


GetDecVal 


Get a value [(~8388608,8388607] from the serial port and 


place it in VALBUF 


numerical value is returned in VALBUF 


DECIO 


VALBUF 


VALBUF +B0 
VALBUF+B1 
VALBUF +B2 


GetDec 
DECSIGN 
DEC MN 
DECSTAT 
DECSIGN 


GetDec 


DEC_CR 
DECSTAT 
mul110 
fixsign 


_carry 

VALBUF +B0 
VALBUF+B1 
VALBUF +B2 


MOV24 VALBUF', DVALBUF 


MOVE'P 
MOVPF 
MOVE'P 
MOVPF 
MOVE'P 
MOVPF 


RLC24 VALBUF 


VALBUF+B0,wreg 
wreg, DVALBUF+B0 
VALBUF+B1,wreg 
wreg, DVALBUF+B1 
VALBUF+B2,wreg 
wreg, DVALBUF+B2 


“ss we re Te “8 “OB 


multiply VALBUF by two 


save in DVALBUF 


get byte of VALBUF into w 
move to DVALBUF (BO) 
get byte of VALBUF into w 
move to DVALBUF (B1) 
get byte of VALBUF into w 
move to DVALBUF (B2) 
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O6E3 8804 BCF Carry 
O6E4 1B31 RLCF VALBUF+BO 
O6E5 1B32 RLCF VALBUF+B1 
O6E6 1B33 RLCF VALBUF+B2 

RLC24 VALBUF ; VALBUF now multiplied by eight 
O6E7 8804 BCF _carry 
O6E8 1B31 RLCF VALBUF+BO 
O6E9 1B32 RLCF VALBUF+B1 
O6FA 1B33 RLCF VALBUF+B2 

ADD24 DVALBUF , VALBUF ; VALBUF now multiplied by ten 
O6EB 6A34 MOVE'P DVALBUF+B0, wreg ; get lowest byte of DVALBUF into w 
O6EC OF31 ADDWE VALBUF+BO ; add lowest byte of VALBUF, save in 
O6ED 6A35 MOVEP DVALBUF+B1,wreg ; get 2nd byte of DVALBUF into w 
OOEE 1132 ADDWFC VALBUF+B1 ; add 2nd byte of VALBUF, save in 
O6EF 6A36 MOVFP DVALBUF+B2,wreg ; get 3rd byte of DVALBUF into w 
O6FO 1133 ADDWFC VALBUF+B2 ; add 3rd byte of VALBUF, save in 


CLR24 DVALBUF 


O6F1 2934 CLRF DVALBUF+B0 

O6F2 2935 CLRE DVALBUF+B1 

06F3 2936 CLRF DVALBUF+B2 

O6F4 6A98 movfp DECVAL, wreg 
O6F5 4A34 movpf wreg, DVALBUF+B0 





ADD24 DVALBUF , VALBUF 


O6OF6 6A34 MOVFP DVALBUF+BO,wreg ; get lowest byte of DVALBUF into w 
QO6F7 OF31 ADDWE VALBUF+B0 ; add lowest byte of VALBUF, save in 
O6F8 6A35 MOVFP DVALBUF+B1,wreg ; get 2nd byte of DVALBUF into w 
O6F9 1132 ADDWEC VALBUF+B1 ; add 2nd byte of VALBUF, save in VALBUF(B1) 
O6FA 6A36 MOVEP DVALBUF+B2,wreg ; get 3rd byte of DVALBUF into w 
O6FB 1133 ADDWFC VALBUF+B2 ; add 3rd byte of VALBUF, save in VALBUF (B2) 
O6FC Cé6D4 goto getdecnext 
fixsign 
QO6OFD 290A Clrf wreg 
O6FE 329B cpfsgt DECSIGN 
O6FE 0002 return 


NEG24 VALBUF 


0700 1331 COMF VALBUF+B0 
0701 1332 COME’ VALBUF+B1 
0702 1333 COME VALBUF+B2 
0703 290A CLRF wreg 

0704 1531 INCF VALBUF+B0 
0705 1132 ADDWFC VALBUF+B1 
0706 1133 ADDWFC VALBUF+B2 
0707 0002 : return 

endif 


SRS a a ee a ST I I ee TE 
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0708 E557 
0709 E681 
O70A 312 
070B C708 


070C E676 
070D 4A98 
O70E E679 


070F BOOD 
0710 0498 
0711 30C1 
0712 C71F 
0713 BO2D 
0714 0498 
0715 30C1 
0716 C722 
0717 BO20 
0718 0498 
0719 30C1 
O71A C725 


071B BOOF 
O71C 0B98 
O71D 2999 
O71E 0002 


O71F BOO2 
0720 4A99 
0721 0002 


0722 BOO01 
0723 4A99 
0724 0002 


0725 BOO0O 
0726 4A99 
0727 0002 





p RRR KK IK RK KKK KK KKK KK KKK KEK KKK KKK KKK KKK KKK KEK KKK KEKKEKEKKKKKKKKKKKKK KKK AK KKK 


NAME: 


DESCRIPTION: 


ARGUMENTS: 


~e oe ea Me Me Be Q we 


if 
GetDec 


getdecnxt 
call 
call 
cpfseq 
goto 


call 
movpf 
call 


movlw 
subwf 
cpfslt 
goto 
movilw 
subwf 
cpfslt 
goto 
movlw 
subwf 
cpfslt 
goto 
gtd0g9 
moviw 
andwf 
Clret 
return 
gtdcCR 
moviw 
movpf 
return 
gtdMN 
moviw 
movpf 
return 
gtdSP 
movlw 
movpf. 
return 


endif 


GetDec 


wo kkk kk ke ik ke KK KK KKK KK KKK KK KKK KK KKK KK KKK KK KKK KEKKKEKKKKKKKKKKKKKKKKK KKK KKKK 


Receive an ASCII decimal character from the serial port and 


convert to its numerical value. 


numerical value is returned in DECVAL 


DECIO 


IdleFunction 
GetChk 

ONE 
getdecnxt 


GetChar 
wreg, DECVAL 
PutChar 


CR 
DECVAL,W 
ZERO 
gtdCR 

MN 
DECVAL,W 
ZERO 
gtdMN 

SP 
DECVAL,W 
ZERO 
gtasP 


OxOF 
DECVAL 
DECSTAT 


DEC_CR 
wreg, DECSTAT 


DEC_MN 
wreg,DECSTAT 


DEC_SP 
wreg, DECSTAT 


pK KKK KKK KEK KKK KEK KK KKK KKK KK KK KKK KK KKK KKK KEK KR EK KK KK EEK KKK KK KK KKK KEK KEK KK KKK KKK 


NAME: 


DESCRIPTION: 


e 
’ 
e 
‘ 
e 
’ 
se 
’ 
. 
‘ 


Lt 
else 


PutVal 


Sends the value in VALBUF 


DECIO 


KKK KK KKK KKK KKK KKK KKK KK KKK KKK KEK KKK KEK KKK KK KEKE KKK KK KKK KKK KKKKKKKKEKKKKKKKKKKEK 


[800000,7FFFFF] out the serial 
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Put Val 


movfp VALBUF +B2,wreg 


call PutHex 

movfp VALBUF+B1,wreg 
call PutHex 

movfp VALBUF+B0,wreg 
call PutHex 

return 

endif 


peak kak kK KK KKK KKK KKK KKK KKK KKK KK kkk Kk KKK kkk kkk kkk kkk kkk kk kkk kk kkk kk kKK 


KH KKK KK HK KK KKK KK KK IKI KKK KKK IKK KK KKK IKK KK KK KKK KK KKH KK KKK KK KKK KK KKEKKKKEKEKKKKKE 


NAME: PutDecVal 


DESCRIPTION: Send the value in VALBUF [-8388608, 8388607] out the serial 


“es “es =e @8 “6 


Et DECIO 
PutDecVal 
0728 9733 btfss VALBUF+B2,MSB 
0729 C734 goto pdpos 


NEG24 VALBUF 





072A 1331 COMF VALBUF +B0 
072B 1332 COME VALBUF+B1 
072C 1333 COMF VALBUF +B2 
072D 290A CLRF wreg 
072E 1531 INCF VALBUF +B0 
O72F 1132 ADDWFC VALBUF+B1 
0730 1133 ADDWFC VALBUF+B2 
0731 BO2D moviw MN 
0732 E679 call PutChar 
0733 C736 goto pddigits 
pdpos 
0734 BO020 moviw SP 
0735 E679 call PutChar 
pddigits 
0736 BO8D movlw (DEC TABLE & Oxff) ; DEC TABLE LSB 
0737 4A0D movpf wreg,tblptrl 
0738 BOO7 movilw page DEC TABLE ; DEC_TABLE MSB 
0739 4A0E movpf wreg,tblptrh 
073A A934 tablrd 0,1,DVALBUF+BO0 
readNextDec 
073B A034 tlrd 0, DVALBUF+B0 ; read entry from table 
073C AB35 tablrd 1,1,DVALBUF+B1 
073D A936 tablrd 0,1,DVALBUF+B2 
073E 2BOA setf wreg , unitsposition if end of table 
O73F 3134 cpfseq DVALBUF+BO0 
0740 C742 goto getdigit 
0741 C756 goto unitsposition 
getdigit 
0742 1534 inet DVALBUF+B0 ; restore to power of 10 
0743 2B98 setf DECVAL ; set DECVAL to -1 
inc 
0744 1598 LACE DECVAL increment DECVAL 


-e “2 


SUB24 DVALBUF, VALBUF check if in range 
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0745 6A34 MOVFP DVALBUF+B0, wreg ; get lowest byte of DVALBUF into w 
0746 0531 SUBWF VALBUF +B0 ; sub lowest byte of VALBUF, save in 


0747 6A35 MOVFP DVALBUF+Bl,wreg ; get 2nd byte of DVALBUF into w 
0748 0332 SUBWFB VALBUF+B1 ; sub 2nd byte of.VALBUF, save in VALBUF (B1) 
0749 6A36 MOVFP DVALBUF+B2,wreg ; get 3rd byte of DVALBUF into w 
074A 0333 SUBWFB VALBUF+B2 7; sub 3rd byte of VALBUF, save in VALBUF (B2) 
074B 9733 btfss VALBUF+B2,MSB 
074C C744 goto ine 

ADD24 DVALBUF, VALBUF ; if so, correct VALBUF for next digit 
074D 6A34 MOVFP DVALBUF+B0O,wreg ; get lowest byte of DVALBUF into w 
074E OF31 ADDWF VALBUF +B0 ; add lowest byte of VALBUF, save in 
O74F 6A35 MOVE P DVALBUF+Bl1,wreg ; get 2nd byte of DVALBUF into w 
0750 1132 ADDWFC VALBUF+B1 ; add 2nd byte of VALBUF, save in VALBUF (B1) 
0751 6A36 MOVE P DVALBUF+B2,wreg ; get 3rd byte of DVALBUF into w 
0752 1133 ADDWFC VALBUF+B2 >; add 3rd byte of VALBUF, save in VALBUF (B2) 
0753 6A98 movfp DECVAL, wreg 7; send DECVAL 
0754 E685 cali PutDec 
0755 C73B goto readNext Dec ; get next table entry 

unitsposition 
0756 6A31 movfp VALBUF+B0,wreg ; units position value now in VALBUF 
0757 E685 call PutDec 
0758 0002 return 

endif 


gH KH i He i KK KK KK KK KK KK KK IK KE KKK KK KEK KE EEE KER KK KEK KKK KK KKK KK KKK KK KKK 


BK IK IK IK KK KKK KKK KKK KK KKK KK KKK KK EK KKK KKK KKK KEKE KKK KK KKK KEK KKK RK EK Kk 
; TABLES: 

CMD START CMD_TABLE 

CMD_TABLE 

CMD_DEF do_null,DO_NULL 


0759 000D DATA DO_NULL 
075A 0570 DATA  —do_null 


CMD DEF do_move,DO_MOVE 


075B 004D DATA DO MOVE 
075C 0572 DATA do_move 


CMD DEF do_mode,DO_MODE 


O75D 004F DATA DO_MODE 
O75E 0580 DATA do_mode 


CMD DEF do_setparameter,DO_SETPARAMETER 


‘O75F 0053 DATA DO_SETPARAMETER 
0760 059C DATA do_setparameter 


CMD_DEF do_readparameter,DO_READPARAMETER 





* : EY Sten CEES TR Fe CEE CO a PG NST a ane ee a NG a a EN AE a i a ah GM i ES BS al ae I a Se Neto ea Ne i a) 
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0761 
0762 


0769 
0764 


0765 
0766 


0767 
0768 


0769 
O76A 


076B 
076C 


076D 
076E 


O76F 
0770 


O771 
0772 


0773 
0774 


0775 
0776 


O77 
0778 


0779 
O77A 


077B 


0052 
05C3 


0043 
O5ED 


0050 
060D 


0056 
0616 


0070 
O61lF 


0076 
0628 


0058 
0631 


0059 
0638 


0049 
063C 


0048 
0645 


OO5A 
0658 


0073 
065B 


0063 
065E 


0000 


if 


endif 


DATA 
DATA 


CMD DEF 


DATA 
DATA 


CMD_DEF 


DATA 
DATA 


CMD _DEF 


DATA 
DATA 


CMD DEF 


DATA 
DATA 


CMD_DEF 


DATA 
DATA 


CMD DEF 


DATA 
DATA 


CMD_DEF 


DATA 
DATA 


CMD_DEF 


DATA 
DATA 


CMD DEF 


DATA 
DATA 


CMD _DEF 


DATA 
DATA 


CMD DEF 


DATA 
DATA 


DO_READPARAMETER 
do_readparameter 


do_shutter,DO SHUTTER 


DO_ SHUTTER 
do_shutter 


do_readcomposition, DO READCOMPOSITION 


DO_READCOMPOSITION 
do readcomposition 


do_readcomvelocity,DO_ READCOMVELOCITY 


DO READCOMVELOCITY 
do _readcomvelocity 


do_readactposition, DO READACTPOSITION 


DO _READACTPOSITION 
do_readactposition 


do_readactvelocity,DO READACTVELOCITY 


DO READACTVELOCITY 
do readactvelocity 


do_externalstatus,DO EXTERNALSTATUS 


DO_EXTERNALSTATUS 
do_externalstatus 


do_movestatus,DO MOVESTATUS 


DO_MOVESTATUS 
do_movestatus 


do_readindposition,DO READINDPOSITION 


DO_READINDPOSITION 
do readindposition 


do_setposition,DO SETPOSITION 


DO_SETPOSITION 
do_setposition 


do_reset,DO_ RESET 


DO RESET 
do_reset 


do_stop,DO_ STOP 


DO_STOP 
do_stop 


_PICMASTER_DEBUG 


CMD DEF 


DATA 
DATA 


CMD_END 


DATA 


do_capture, DO_CAPTURE 


DO_CAPTURE 
do_capture 


0x00 


a a lS 
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077C 0003 
077D 0020 
O77E 0103 
O77F 0023 
0780 0202 
0781 0026 
0782 0302 
0783 0028 
0784 0402 
0785 002A 
0786 0501 
0787 002C 
0788 0602 
0789 002D 
078A 0702 
078B 002F 
078C 0008 


078D 423F 
O78E OOO0F 
O78F 869F 
0790 0001 
0791 270F 
0792 0000 
0793 03E7 
0794 0000 
0795 0063 
0796 0000 
0797 0009 
0798 0000 
0799 FFFF 





In PAR_TABLE, the 
Low Byte is 


7a te Fe ™e 


PAR_TABLE DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Lt DECIO 


DEC_TABLE DATA 
| DATA 
DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

endif 


endif 


if _PICMASTER_D 
include “pi 


#define CaptureAddr 


KRKKKKKEKKKKKEKKEKK KK KEK 


NAME: doCa 


DESCRIPTION: Capt 
Inte 
Capt 
A Tr 


(a) 
(b) 
(c) 
(d) 
(e) 
(f) 
(g) 
(h) 


“ses “st =e -« =s es =e =s ~s -e =e se "se 78 “s va “se a “se 


code word is as follows : 
# of bytes, Hi Byte is function code 


0x0003 
VL 
0x0103 
AL 
0x0202 
KP 
0x0302 
KV 
0x0402 
KI 
0x0501 
IM 
0x0 602 
FV 
0x0702 
FA 
NUMPAR 


0x423F 
Ox000F 
0x8 69F 
0x0001 
0x2 70F 
0x0000 
0x03E7 
0x0000 
0x0063 
0x0000 
0x0009 
0x0000 
OxFFFFE 


EBUG 
cmastr.asm” ; PIC-MASTER Debug (data capture) File 


0x8000 ; addr for dummy Table Writes (to TRACE 


KKK KKK KKK KKK KKK KKK KKK KKKKKKEKKEKEK EEK KEKE KKKKKKKEKKKKKEKEK 


ptureRegs 


ures Desired Register Values To PIC-MASTER Trace Buffer 
nded for PICMASTER Demo/debug/servo tuning Purposes Only 
ure The following registers to Trace Buffer by putting 
ace point on a TABLW instruction. Trace only 2nd Cycle 


POSERROR (position error : 16 bits) 

VELERROR (velocity error : 16 bits) 
MPOSITION (measured position value : 24 bits) 
MVELOCITY (measured velocity value : 24 bits) 
POSITION (commanded position : 24 bits) 
VELOCITY (commanded velocity : 24 bits) 

Y (output of servo loop : 32 bits) 

YPWM (output value written to PWM : 10 bits) 
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079A BOO0O0 
079B 010D 
079C BO80 
079D O10E 
079E AC79 
O79F A6TA 
of POSERROR 


07A0 AC79 
POSERROR 


O7A1 AC7C 
O7A2 A67D 


07A3 AC7C 


O7A4 AC72 
O7A5 A673 


O7A6 AC72 


07A7 AC55 
O7A8 A656 


O7A9 AC55 


O7AA AC75 
O7AB A676 


O7AC AC75 


O7AD AC58 
O7AE A659 


O7AF AC58 


07B0 AC88 
07B1 A689 


07B2 AC88 


07B3 290A 
07B4 O7BE 
07B5 O3BF 


07B6 6ABE 
07B7 O8BF 
O7B8 330A 


07B9 0002 


O7BA 0001 


07BB 29BB 


07BC 6ABC 
07BD O1BE 
07BE 6ABD 


doCaptureRegs 


movlw (CaptureAddr & Oxff) 
movwf tbiptrl 

movlw CaptureAddr/256 
movwf tbiptrh 


tablwt 0,0,POSERROR+B0 
tlwt 1, POSERROR+B1 


capPerr 
tablwt 0,0,POSERROR+B0 


tablwt 0,0,VELERROR+B0 

tlwt 1, VELERROR+B1 
capVerr 

tablwt 0,0,VELERROR+B0 


tablwt 0,0,MPOSITION+BO 


tlwt 1,MPOSITION+B1 
capMpos 

tablwt 0,0,MPOSITION+BO0 

tablwt 0,0,POSITION+B0 

tlwt 1,POSITION+B1 
capPos 

tablwt 0,0,POSITION+B0 

tablwt 0,0,MVELOCITY+BO 

tlwt 1,MVELOCITY+B1 
capMvel 

tablwt 0,0,MVELOCITY+B0 

tablwt 0,0,VELOCITY+BO0 

tlwt 1, VELOCITY+Bi 
capVel 

tablwt 0,0,VELOCITY+B0 

tablwt 0,0, YPWM+BO 

tlwt 1, YPWM+B1 
capPwm 


tablwt 0,0, YPWM+BO 
DEC16 CAPTMP 
CLRE wreg 


DECF CAPTMP+B0 
SUBWFB CAPTMP+B1 


TFSZ16 CAPTMP 


MOVE'P CAPTMP+B0,wreg 
IORWF CAPTMP+B1,W 
TSTFSZ wreg 


return 
DATA 0x0001 


HaltTrace 
clrf CAPFLAG 
MOV16 CAPCOUNT, CAPTMP 


MOVE'P CAPCOUNT+B0,wreg 
MOVWE CAPTMP+B0 
MOVE P CAPCOUNT+B1,wreg 


“se 


“e 


7a 6™s 


-e ve Se 


‘end! hdr !skip start! 


setup table pointer address 


dummy tablwt 
now table latch = 16 bits contents 


perform actual table write of 


capture Velocity error 


capture measured position 


capture commanded position 


capture measured velocity 


capture commanded velocity 


capture commanded velocity 


HALT instruction (avail only in 


get byte of CAPCOUNT into w 
move to CAPTMP (BO) 
get byte of CAPCOUNT into w 
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Servo Control of a DC-Brush Motor 


O7BF O1BF MOVWE CAPTMP+B1 7; move to CAPTMP (B1) 


O07CO 0002 return 


pRKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKKKKKKKK KKK KKK KKK 


endif 
END 


Errors : 0 
Warnings : 0 
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INTRODUCTION 


The Microchip Technology Inc.’s 24CXX and 85CXX 
serial EEPROMs feature a two wire serial interface bus. 
The bus protocol is I?C compatible. Interface to a serial 
port with IC bus protocol in a microcontroller is trivial. 
This application note is intended for design engineers 
who wantto develop their software programs to commu- 
nicate a microcontroller with a 2-wire bus serial EEPROM 
through a general purpose I/O port. 


Unlike the 3-wire bus serial EEPROMs, the 24CXX/ 
85CXX communicate with any microcontroller only by a 
serial data I/O line (SDA) and a serial clock (SCL). Chip 
select is not required. Data transfer may be initiated only 
when the bus is not busy. During such transfer, the data 


FIGURE 1 - TRANSFER FORMAT 


ACK SIGNAL 
FROM RECEIVER 


MSB - LSB MSB - LSB 


line (SDA) must remain stable whenever the clock line 
(SCL) is high. Changes in the data line while the clock 
line is high are interpreted as aSTART or STOP condi- 
tion. A typical transfer format is shown in Figure 1. 


After the START condition, a slave address is sent. This 
address is 7-bits long, the eighth bit is a data direction bit. 
(R/W - a logical ‘0’ indicates a transmission WRITE, a 
logical ‘1’ represents a request for data READ. A data 
transfer is always terminated by a STOP condition 
generated by the master controller. However, if a master 
still wishes to communicate on the bus, it can generate 
another START condition and address another slave 
without first generating a STOP condition. Various com- 
binations of read/write formats are then possible within 
such transfer. 


MSB - LSB 


sci | s | 
| 1-7 8 9 1-7 8 9 1-7 8 9 


aL LL Lt 


START ADDRESS R/W ACK 
CONDITION 


DATA 


ACK DATA ACK STOP 
CONDITION 


FIGURE 2 - A SIMPLE HARDWARE CONNECTION 


NC PIN FOR 85Cxx, 
NF PIN FOR 24C01A AND 
WP PIN FOR 24C02A/24C04A 


CHIP ADDRESS INPUTS, MUST BE 


TIED TO Vcc OR Vss. 
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An example program has been provided in Appendix A 
containing all. PIC16C54 routines needed to exercise a 
24CXX or 85CXX device. A simple hardware connection 
is illustrated in Figure 2. A maximum of eight 24C01A/ 
24C02A/85C72/85C 82's, or four 24C04A/85C92's can 
be addressed by a microcontroller on the same two wire 
bus without additional interfaces. Each device is identi- 
fied by its Chip Address and will only respond to the 
correct slave address. A detailed bus flow is shown in 
Figure 3. 


milliseconds (.7 ms per byte). 


Figure 3 as shown below describes how the bit stream 
is set up for READ and WRITE mode in the microcom- 
puter programming software prior to sending it on the 
two wire serial bus. 


The stop condition, after the write sequence, starts the 
internal self-timed write cycle which may last up to 6 
Acknowledge signal 
should be monitored during this period. 


CONTACT: Bruce Negley 


Memory Products Division 





FIGURE 3A - SETTING THE INTERNAL WORD ADDRESS OF THE 24CXX/85CXX 





1. START CONDITION 

2. 4 BIT DEVICE CODE 1010 FOR 24CXX/85CXX 

3. DEVICE ADDRESS A0=PA, HIGH ORDER ADDRESS 
BIT A8 FOR 24C04A/85C92 

4. 0=WRITE TO ADDRESS REGISTER 


FIGURE 3B - BYTE WRITE SEQUENCE 


FIRST DATA BYTE 


FIGURE 3C - READ MODE SEQUENCE 


1. START CONDITION 

2. 4BIT DEVICE CODE 1010 FOR 24CXX/85CXX 

3. DEVICE ADDRESS A2, A1, AO. AO = PA, HIGH ORDER 
ADDRESS BIT A8 FOR 24C04A/85C92 

4. 1 = READ MODE 


READ UP TO 128 BYTES (24C01A, 85C72) 
READ UP TO 256 BYTES (24C02A/04A, 85C82/92) 


DS00515D-page 2 


5. EEPROM DRIVES BUS LOW WITH ACKNOWLEDGEMENT 


(TIMEOUT IF NO RESPONSE) 


6. ADDRESS FOR DATA, A7-A0 (MSB-LSB) 
7. BUS LOW FOR ACKNOWLEDGEMENT 


THIRD DATA — 
BYTE, ETC. 
STOP 
CONDITION 


SECOND DATA BYTE 


5. ACKNOWLEDGE FROM EEPROM 
6. FIRST DATA BYTE 

7. SECOND DATA BYTE, ETC. 

8. STOP CONDITION 


5-2 
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Appendix A: 


MPALC CROSS ASSEMBLER 2.00 d:\seeprom\appnotes\i2cbus.asm 
Apr 11 15:36:02 1990 PAGE 1 


TWO WIRE/I2C BUS INTERFACE WITH PIC16C5x 


0001 TITLE “TWO WIRE/I2C BUS INTERFACE WITH PIC16C5x” 

0002 ; 

0003 LIST P=16C54 

0004 ; 

0005 

ge KR KKKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK KK KKK KKK KK 
0006 *x*x Two wire/I2C Bus READ/WRITE Sample Routines 


“ese Ss 


of Microchip’s 24CXX/85CXX serial CMOS 





0007 7 ** EEPROM interfacing to a PIC16C54 8-bit CMOS 
0008 7** single chip microcomputer 
0009 ries: 
0010 7** Part use = PIC16C54-XT/JW 
0011 ;** Note: 1) All timings are basedona 

reference crystal frequency of 2 MHz which 

: is equivalent to an instruction cycle 
0012 7;** time of 2 usec. 
0013 7 ** 2) Address and literal values are read 

; in octal unless otherwise specified. 

: 3) The following sample program is 

: intended to interface a two wire/I2C 

; serial EEPROM with a PIC16C54 ona 

: stand-alone applicationonly. 

; In the case where the two wire bus is 

; multiplexing with other circuitry, itis 

; recommended to check the 24CXX/85CXX in 

; standby mode to avoid bus contention. 
0014 okx 
00.15 
p RR KKK KKK KKK KKKKKKAKKKKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KK KK 
0016 ; 
0017 | RR 
0018 7 Files Assignment 
0019 RAS Sees Ree re er eS ee ee eee 
0020 : 
0021 0002 Pe EQU 2 ; Program counter 
0022 0004 FSR EQU 4 7 File Select Register 
0023 0005 RA EQU i) ; Port Ause to select 

; device address 
0024 0006 RB EQU 6 ; RB7 = SDA, RB6 = SCL 
0025 ; 
0026 0010 STATUS EQU 10 ; Status register 
0027 O01) FLAG EQU i al ; Common flag bits 
; register 
0028 0012 EEPROM EQU 12 ; Bit buffer 
0029 0013 ERCODE EQU 13 ; Error code (to indicate 
; bus status) 
0030 0020 ADDR EQU 20 ; Address register 
© 1993 Microchip Technology Inc. DS00515D-page 3 








Communicating with I?C Bus 


0031 0021 DATAI EQU Zi ; Stored data input 
; register 
0032 00.22 DATAO EQU 2? ; Stored data output 
; register 
0033 0023 SLAVE EQU ‘es ; Device address 
; (1010xxx0) 
0034 0024 TXBUF EQU 240 ; TX buffer 
0035 0025 RXBUF EQU 25 | ; RX buffer 
0036 0026 COUNT EQU 26 ; Bit counter 
0037. ; 
0038 0030 TIMERO EQU 30 ; Delay timer0 
0039 0031 TIMER1 EQU 31 ; Delay timer1 
0040 po 
0041 ; 
0042 ag a a aa a 
0043 ; Bit Assignments 
0044 fr tt er en eee renee nena 
0045 a | 
0046 jy; FLAGBits— 
0047 ; 
0048 0000 ERROR EQU 0 ; Error flag 
0049 ; 
0050 ; _ EEPROM Bits 
00-524 ; 
0052 0007 oo EQU 7 ; EEPROM input 
0053 0006 DO EQU 6 ; EEPROM output 
0054 : 
O:'S:3: ; I2C Device Bits 
0056 i 
0057 0007 SDA EQU e ; RB7, data in/out 
0058 0006 SCL EQU 6 ; RB6, serial clock 
0059 ; 
0060 ; END FILES/BITS EQUATE 
0061 ; 
0062 ; 
0063 a ak a a i cea a A ae ee 
0064 ; Two wire/I2C - CPU communication error status table 
; and subroutine 
0065 aa aa a ai aa a ec a a Ca 
0066 ; input : W-reg | = error code 
0067 ; output : ERCODE =error code 
0068 © ; FLAG (ERROR) = 1 
0069 ; | 
0070 | ; code error status mode 
0071 po eco eee cone -ean--- ----+------------------- 
0072 ; 1 | SCL locked low by device (bus is still 
busy) 


ere RR A A PnP tt ER Pt ESA SR 
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0073 ; 2 : SDA locked low by device (bus is still 
busy) 
0074 ; 5 : No acknowledge from device (no 
handshake) 
0075 ; 4 : SDA bus not released for master to 
generate STOP bit 
0076 SRS Sah See Se ter a ae SaaS See see eee 
OOLF ; 
0078 : Subroutine to identify the status of the serial clock . 
(SCL) and serial data 
0079 ; (SDA) condition according to the error status table. 0080 : 
Codes generated are useful for bus/device diagnosis. 
0081 ; 
0082 ERR 
0083 0000 3411 BTFSS FLAG, ERROR ; Remain as first error 
; encountered 
0084 0001 0053 MOVWF ERCODE ; Save error code 
0085 0002 2411 BSF FLAG, ERROR ; Set error flag 
0086 0003 4000 RETLW 0 
0087 ; 
0088 na a a aca aa a a 
0089 START bus communication routine 
0090 | CORRE ee Sea eae ae ee ee eee ee 
0091 ; input : none 
0092 ; output : initialize bus communication 
0093 a a aa a a a a a a 
0094 ; 
0095 ; Generate START bit (SCLis high while SDA goes from 
; highto lowtransition) and check status of the 
0096 ; serial clock. 
0:0'9-7 BSTART 
0098 0004 6077 MOVLW B’00111111' ; Put SCL, SDAlinein 


; output state 
D099 0005 0006 TRIS RB 
0100 0006 2706 BSF RB, SCL 
0101 0007 6001 MOVLW 1 


Set clock high 


“e 


Ready error status 
code 1 


Locked? 
SCL locked low by device 


“e 


™“e 


0102 0010 3706 BTFSS RB,SCL 
0103 0011 4400 CALL ERR 


0104 0012 2346 BCF RB, SDA 
; high 


™“e 


“eo 


SDA goes low during SCL 


me 


OL05 0013 0000 NOP 
0106 0014 0000 NOP 
0107 O00 LS 0000 NOP 


™e 


Timing adjustment 


0108 0016 2306 BCF RB, SCL ; Start clock train 
0109 0017 4000 RETLW 0 

0110 ; 

OD bal. 7END SUB 

OLS ; 


Su SEAS A AR RE TE SS PS TE RTE A ETT EE ETE 
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0114 

0115 
0116 
0117 
0118 
0119 
0120 
0121 


0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0434 


0132 


0233 
0134 
O35 


0136 
0137 
0138 
O129 
0040 
0141 


0142 
0143 
0144 
00145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 





0020 
0021 
0022 
0023 
0024 
0025 
0026 


0027 


0030 
0031 
0032 


0033 


0034 
0035 
0036 
0037 
0040 
0041 
0042 
0043 
0044 


ee cree ree me ee ce ces ee ates tee peers es cee e ceee SEE  D G SD e ne e Cae SITES CEES came CED OE ERED GUT BERD SEED TT GENE STUD MED CONES CIEED MLW CitORY SI lat SUT NEE WOE MLN OED SEUH CD Gre NE SD 


: STOP bus communication routine 

ae Se ee ee eae ee 
7 Input: None 

; Output : Bus communication, STOP condition 


SCL high state) 


7; and check bus conditions. 


BSTOP 
2346 BCF RB, SDA 
0000 NOP 
0000 NOP 
2706 BSF RB, SCL 
6001 MOVLW 1 
3706  BTFSS  RB,SCL 
4400 CALL ERR 
2746 BSF RB, SDA 
6004 MOVLW 4 
3746  BTFSS RB,SDA 
4400 CALL ERR 

3 for STOP 
4000 RETLW 0 
:END SUB 


“=e 


“ss Ns =e 6S =s =e =s 


. 


= 


Generate STOP bit (SDA goes from low to high during 


Return SDA to low 


Set SCL high 
Ready error code 1 
High? 


No, SCL locked low by 
device 


SDA goes from low to 
high during SCL high 


; Ready error code 4 
; High? 


> No, SDA bus not release 


; Serial data send from PIC16CXX to serial EEPROM, 


; bit-by-bit subroutine 


v 


; Input: None 

, Output s “To. (Di) 
BITIN 

6277 MOVLW BPLOLLLITT 
0006 TRIS RB 

2746 BSF RB, SDA 
2352 BCF EEPROM, DI 
2706 BSF RB, SCL 
6001 MOVLW i 

3306 BTFSC RB, SCL 
5047 GOTO BIT1 

3411 BTFSS FLAG, ERROR 


‘, 


=e 


> Force SDA line as input 


Set SDA for input 


Clock high 


Skip if SCL is high 


> Remain as first error 


encountered 
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0157 0045 0053 MOVWF ERCODE 7; Save error code 

0158 0046 2411 BSF FLAG,ERROR ; Set error flag 

0159 BIT1 

0160 0047 3346 BTEFSC RB, SDA ; Read SDA pin 

0161 0050 2752 BSF EEPROM, DI - Di-= 1 

0162 0051 0000 NOP ; Delay 

0163 0052 2306 BCF RB, SCL ; Return SCL to low 

0164 0053 4000 RETLW 0 

0165 : 

0166 ;END SUB 

0168 : 

0169 atmo eee eateateaehemeatentieat nates eaten eatenteeanemneaenteiaeneniatneatemtemenemmenatennes 

0170 ; Serial data receive from serial EEPROM to PIC16CXx, 
7 bit-by-bit subroutine 

0171 panes SE See ear Se Sessa a eee 

0172 ; Input : EEPROM file 

O173 7) )©Output : From (DO) of serial EEPROM device 
; to PIC 

0174 prone 

0175 : 

0176 BITOUT 

0177 0054 6077 MOVLW = B’00111111' ; Set SDA, SCL as outputs 

0178 0055 0006 TRIS RB 

0179 0056 3712 BIFSS EEPROM, DO 

0180 0057 5070 GOTO BITO 

0181 0060 2746 BSF RB, SDA ; Output bit 0 

0182 0061 6002 MOVLW 2 

0183 0062 3346 BTFSC RB, SDA ; Check for error code 2 

0184 0063 5074 GOTO CLK1 

0185 0064 3411 BTFSS FLAG,ERROR ; Remain as first error 

7; encountered 

0186 0065 0053 MOVWF ERCODE ; Save error code 

0187 0066 2411 BSF FLAG, ERROR ; Set error flag 

0188 0067 5074 GOTO CLK1 ; SDA locked low by device 

0189 ; 

0190 BITO 

0191 0070 2346 BCF RB, SDA ; Output bit 0 

0192 0071 0000 NOP 7 Delay 


G19 3 0072 0000 NOP 

0194 0073 0000 NOP 

0195 CLK1 

0196 0074 2706 BSF RB, SCL 
0197 0075 6001 MOVLW 1 

0198 0076 3306 BTFSC RB,SCL 


Error code 1 


SCL locked low? 


=e 


=e 


0199 0077 5103 GOTO BIT2 ; No. 
0200 0100 3411 BTFSS FLAG, ERROR ; Yes. 
0201 O101 0053 MOVWF ERCODE ; Save error code 
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0202 0102 2411 BSF FLAG, ERROR ; Set error flag 
0203 Bike « 

0204 0103 0000 NOP 

0205 0104 0000 NOP 


0206 0105 2306 BCF RB, SCL ; Return SCL to low 

0207 0106 4000 RETLW 0 

0208 ; 

0209 7END SUB 

0201 ; 

0212 ; 

0213 (SSeS ee ee ea eer ear rae ee ee a eee ee 
0214 ; RECEIVE DATA subroutine 

O20 FS ee ae ee aT ee es eee 
0216 ; Input : None 

0217 ; Output : RXBUF = Receive 8-bit data 

0218 pote Sr era ee ee er ee a Se ee ee 
0219 po 

0220 RX 

0221 0107 6010 MOVLW .8 ; 8bits of data 


0222 0110 0066 MOVWE COUNT 
0223 OLEt 0165 CLRF RXBUF 


0224 ; 
02.25 RXLP 
0226 0212 1565 RLF RXBUF ; Shift data to buffer 


0227 O13 SEEC 
0228 OLts 3403 + BTFSS 3,0 


0228 0114 2025 BCF RXBUF, 0 ; Carry —> £(0) 
0229 OLAS SKPNC 

0230 Oe es 3003 + BIFSC: 3,0 

0230 O16 2425 BSF RXBUF, 0 


0231 OT 4434 CALL BITIN 
0232 0120 S302 BTFSC EEPROM, DI 


0233 0121 2425 BSF RXBUF, 0 ; Input bit =1 

0234 OT22 1366 DECFSZ COUNT ; 8bits? 

0235 0123 Dae GOTO RXLP 

0236 0124 242 BSF EEPROM,DO ; Set acknowledge bit =1 

0237 O25 4454 CALL BITOUT ; to STOP further input 

0238 0126 4000 RETLW 0 

0239 ; 

0240 7END SUB 

0241 ; 

0242 pee SSS a ee eS ere 
0243 ; TRANSMIT DATA subroutine 

0244 a ai ae aa aac en re a 
0245 ;~ = Input : TXBUF 

0246 7; =©Output > Data X’mitted to EEPROM device 

0247 , eS or oe a eS er na ee ee ee ee ees 
0248 ; 

0249 TX 


0250 0127 6010 MOVLW .8 
ee a a ee LE NT RE EE Ne EEE A A ORS ae a OE eS ER Ce I a 
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O25 1 
0252 
0253 
0254 
0255 


0256 
0257 
U2 58 
02:59 
0260 
0260 
0261 
0262 
0262 
0263 
0264 
0265 
0266 
0267 


0268 


0269 
02°70 
O27 4 
O23 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 


0284 


0285 
0286 
0287 
0288 
0289 
0290 
0291 
O29:2 
0293 
0294 


0130 


0131 
OLo2 


0133 
0134 
0135 
O16 
O36 
oe a 
0140 
0140 
0141 
0142 
0143 
0144 
0145 
0146 


0147 


0:2 5:0 


0200 


0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0210 


0066 


Z312 
3364 


Ce ae: 
4454 
1564 


3403 + 
2024 


SUG3. ‘ct 
2424 
L366 
oes 
4434 
6003 
S332 


4400 


EE NE EE A SL A SS cS SF Ss Gam ste sere iY clin Oiet SHA 
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MOVWF 


TXLP 
BCE 
BLE oC 


BSF 
CALL 
RLF 
SACE © 
BTFSS 
BCF 
SKPNC 
BE OG 
BSF 
DECFSZ 
GOTO 
CALL 
MOVLW 
BIPSC 


CALL 


RETLW 


SUB 


Output 


COUNT 





EEPROM,DO ; Shift databit out. 


TXBUF,7 ; If shiftedbit=0, data 
; bit =0 
EEPROM,DO ; Otherwise data bit =1 
BITOUT ; Serial data out 
TXBUF ; Rotate TXBUF left 
7 E46) > £7) 
37:0 
TXBUF,0O o£ C]) => Carry. 
; carry —> £(0) 
370 
TXBUF, 0 
COUNT ; 8 bits done? 
TXLP PNOs 
BITIN ; Read acknowledge bit 
cS) 
EEPROM, DI ; Check for 
; acknowledgement 
ERR ; No acknowledge from 
; device 
0 


DATAO = data to be written 

ADDR = destination address 

SLAVE = device address (1010xxx0) 
Data written to EEPROM device 





LOZ 3 
0064 
4404 
4527 
1020 
0064 
4527 
L022 
0064 


ORG 


WRBYTE 
MOVF 
MOVWE 
CALL 
CALL 
MOVF 
MOVWFE 
CALL 
MOVF 
MOVWFE 


200 ; The location for BYTE- 
; WRITE routine can be 


; assigned anywhere 
; between (377- 777) 
7 octal. 


SLAVE, W ; Get SLAVE address 


TXBUF ; to TX buffer 

BSTART ; Generate START bit 
TX ; Output SLAVE address 
ADDR,W ; Get WORD address 
TXBUF ; into buffer 

TX ; Output WORD address 
DATAO,W 7; Move DATA 

TXBUF ; intobuffer 


ere rene AE A A A A a ehh A ineontettAn nt iS A Ac PA NT TTA 
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0295 0211 4527 CALL TX ; Output DATA and detect 
; acknowledgement 
0296 UaenZ 4420 CALL BSTOP ; Generate STOP bit 
0297 . ; 
0298 ; 
0299 ; 
0300 J rrr rrr rr rene renee nn = 
0301 ; BYTE-READ, read one byte from serial EEPROM 
; device 
0302 fr rrr rr ere 
3-03 Input : ADDR = source address 
0304 : SLAVE = device address (1010xxx0) 
0305 ; Output: DATAI = data read from serial 
BREPROM 
0306 fr er er er re ee eee cee 
0307 ; 
0308 0300 ORG 300 ; The location for BYTE- 


READ routine can be 
assigned anywhere 


0309 i ; between (377-777) octal. 
0310 RDBYTE 

O03 i2 0300 L023 MOVF SLAVE, W 
Se ae 0301 0064 MOVWFEF TXBUF 
O33 0302 4404 CALL BSTART 
0314 0303 4527 CALL TX 


Se 


“=e 


Move SLAVE address 
into buffer (R/W= 0) 
Generate START bit 


Output SLAVE address. 
Check ACK. 


Get WORD address 


Me “eo ee “e 


Se 


OSS 0304 1020 MOVE ADDR, W 
0316 0305 0064 MOVWF TXBUF 
03 y 0306 4527 CALL Tx 


Ne 


Output WORD address. 
Check ACK. 


START READ (if only one 


“=e 


“=e 


0318 03:07 4404 CALL BSTART 


se 


; device 

0319 0310 L023 MOVF SLAVE, W ; is connected to the I2C 
; bus) 

0320 US 14 0064 MOVWFEF TXBUF 

0321 Coke 2424 BSF TXBUF, 0 ; Specify READ mode 


(R/W = 1) 
Output SLAVE address 


READ in data and 
acknowledge 


Generate STOP bit 


Save data from buffer 


“Se 


0.322 313 4527] CALL TX 
0323 0314 4507 CALL RX 


™e “se 


“ee 


0324 0315 4420 CALL Bo LOP 
0325 0316 L065 MOVF RXBUF 


“e 


™“e 


0326 0317 0061 MOVWF DATAI ; toDATAI file. 
0327 ; 

0328 ; 

0329 ; 

W330 END 


SASM-I, No Errors, No Warnings 
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INTRODUCTION 


Microchip Technology Inc.’s popular 93C46/56/66 and 
93LC46/56/66 Serial EEPROMs feature a three/four 
wire serial interface bus. The attractive price and simple 
interface make it the ideal device for additional memory 
space. This application note is intended for design 
engineers who wish to incorporate a pre-packaged 
serial EEPROM interface driver into their application. 


THE HARDWARE CONNECTION 


A typical 4-wire hardware connection is illustrated in 
Figure 1a and atypical 3-wire connection is illustrated in 
Figure 1b. Since all I/O ports on the PIC16C5X are 
configurable as input and/or output, a 3-wire interface 
makes optimum utilization of the I/O pins by having a 
common connection for the DI and DO lines of the serial 
EEPROM. The port pin on the PIC16C5X connected to 
these pins, has a default setting as an output and is 
configured, when needed, as an input during program 
execution. 


THE SOFTWARE CONNECTION 


An example interface driver is listed in Appendix A. A 
flow diagram is given in Figure 2. The interface driver is 
written to minimize both overhead to the calling program 
as well as the program space necessary for its inclusion 
into the user’s code. The driver has been written as a 
generic driver to service all 93 Series serial EEPROMs 
made by Microchip. Processor resources which must be 
made available to the driver prior to being called are: 1) 
Two levels of processor stack. 2) Six register locations 
(four for command/data passing and two for software 
counters). 3) The File Select Register (FSR), which is 
used to pass a command/data string pointer to the 
driver. 


Note: The four command/data passing registers have 
to be defined consecutively in order for the FSR to 
access them successfully in the program execution. 


The user should take the following steps when using the 
routines provided in Appendix A. 


A) Specify and define a 3-/4-wire interface by defining 
the common connection to the DI/DO lines and 
setting the equate 'wire3' TRUE or FALSE (4-wire is 
automatically assumed if 3-wire is false). 


B) Specify and define if 16-bit or 8-bit data organization 
is used, by setting equate 'org8' TRUE or FALSE. 


C) The user should assemble the source file by speci- 
fying which type of serial EEPROM is being used. 








FIGURE 1A - 4 WIRE CONNECTION 


4.0  20pF 
MHz “> 


Note 1: FOR 93LCXxX: 
For 16 bit data word connect to Vcc 
For 8 bit data word connect to GND 


FIGURE 1B - 3 WIRE CONNECTION 


20pF 


Note 1: FOR 93LCXx: 
For 16 bit data word connect to Vcc 
For 8 bit data word connect to GND 


This is done by defining the equate S93C46, S938LC46 
etc. as TRUE. Only one device can be TRUE, the 
rest have to be defined FALSE. 


D) The user would invoke the driver as follows: 


1. Load the register defined as 'cmd' with the 93CX6 
Command Opcode (only the four upper bits are 
used in this register; see Figure 3). 


2. Ifnecessary, load the register defined ‘addr’ with 
the lower 8/7/6 bit address of the location. 


3. Ifnecessary, load the 9th bit of the address as bit 
3 of the register defined as ‘cmd’ (see Figure 3). 


Note: READ, WRITE and ERASE commands 
need to have an address associated with the 
command and the 9th bit of the address is only 
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FIGURE 2 - FLOW CHART 
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Call dout8, output 


Call doutxx, clock out 2nd byte . 
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Call din8, input Pe ; ie 
ae . De-select device . 

ee Ee 

Ee SC oS ESS aca SHS 


Compute completion Status 
(erase all) 


(errorino_ eon) alc retunty : 









Inc. FSR to Register 
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no error 
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required when using the 93C56/66 or 93LC 56/66 
devices in the 8 bit mode (ORG tied to GND). 


4. If necessary, load the register defined as ‘highb' 
and ‘lowb' with the 16 bits of data, the most 
significant byte loaded in 'highb'. In 8 bit mode, 
‘highb' should be loaded with the 8 bit data. 


Note: Only the WRITE and WRAL commands 
require data to be loaded in the ‘highb’, ‘lowb' 
locations. 


5. Call the driver sub-routine ‘see’. 


Listing in Appendix B is for an interface to 93C46 Serial 
EEPROM only. 


SUMMARY 


The 93 Series serial EEPROMs are a simple and versa- 
tile method of increasing read/write memory capability in 
aP1IC16C5X application. The ‘generic’ code in Appendix 
A makes it easy to incorporate in any PIC16C5X appli- 
cation. Any of the 93 series serial EEPROM can be 
applied, while at the same time using a minimal amount 





of 1/O, code and RAM resources. 
Code size: 6 bytes of RAM. 
127 bytes program code (max.) 


6. Upon completion, the driver will return a comple- 
tion status in the W register (error/no error). Only 
commands requiring a status check are capable 
of returning a valid error/no error status, in all 
other cases a no error is returned. 


7. If the READ command is executed, the 16/8 bit 
data will be loaded in the 'highb' and 'lowb' regis- 
ters, where ‘highb' contains the MSB in the 16 bit 
mode and 8 bit data in the 8-bit mode. 


The Example interface assumes a 4 MHz oscilla- 
tor clock which gives us a 1 uS instruction cycle. 
If a higher clock speed is used, additional NOPs 
have to be included in the code in order to meet 
the minimum clock speed requirements of the 93 
Series serial EEPROMs (see data sheet for fur- 
ther details). 


Appendix A listing: 
100 bytes program code (min.) 
Appendix B listing: | 86 bytes program code 


AUTHORS: Stan D'Souza 
Logic Products Division 


Bob Ward 
Field Applications/Sales Organization 





FIGURE 3 - 'CMD'", ‘ADDR’, DATA BYTE DEFINITION 


Bit7 Bité Bit5 Bit4 Bit3 


| | | | Xxx 


Command Register (cmd) 

MSB of address in 8 bit mode for 93C56/66 (if necessary) 
LSB of 4 bit opcode 

3rd bit of opcode 

2nd bit of opcode 

MSB of 4 bit opcode 


pe [os] os [ne] [0 


Address Register (addr) 

Lower 6 bit address for 93C46/56/66 93LC-46/56/66 
MSB of address in 8 bit mode for 93LC46 

MSB of address in 16 bit mode for 93C56/66 


16 Bit Mode 


M 
os} | | | LL foe 
low b 
or} | tt ff foo 
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high b 


M 
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Appendix A 


Microchip Technology 16c5X Assembler 3.03 Wed Feb 26 11:09:07 1992 Page 1 
R/W EEPROM : 


Line PC Opcode 


0001 LIST P = 16C54 
0002 ; 
0003 | ;Define Equates: 
0004 . 
0005 O1FF PIC54 EQU 1FFH 
0006 ; 
0007 ; 
0008 0000 ORG 0 
0009 START 
0010 0000 OA7B goto main ;run test program 
0011 ; 
0012 ; 
0013 0001 TRUE EQU 1 
0014 0000 FALSE EQU 0 
0015 0000 S93C46 EQU FALSE 
0016 0000 S93LC46 EQU FALSE 
0017 0000 S93C56 EQU FALSE 
0018 0000 S93LC56 EQU FALSE 
0019 0001 S93C66 EQU TRUE 
0020 0000 S93LC66 EQU FALSE 
0021 0001 wire3 equ TRUE ;for four-wire setup equate to FALSE 
0022 0000 orgs EQU FALSE 
0023 ; 
0024 0001 H16 EQU TRUE 
0025 0000 H8 EQU FALSE 
0026 0000 LC468 EQU FALSE 
0027 0000 —. XC46 EQU FALSE 
0028 
0029 
0030 
0031 PRR KKK KKK KK KKK KK KKK KK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KK KK KKK KK KKK KK 
0032 an Register Assignments 
ok 
0033 SERRA HARARE RRS ARIAT EARN AIRE ARSE AWA RRR RW A Re 
0034 
0035 0000 indir equ 0 ;Use this register as source/destination 
0036 ;for indirect addressing. 
0037 0002 pe equ Z ;PIC Program Counter. 
0038 — 0003 status equ 3 ;PIC Status Register. 
0039 0004 fsr equ 4 ;File Select Register. 
0040 0005 serial equ 5 ;Port used for 93CX6 control. 
0041 , 7The following four registers must be 
0042 ;located consecutively in memory. 
0043 OO1A cmd equ la ;This register contains the 4 bit 
0044 ;command op code for 93CX6 as follows: 
0045 ;bit 7 msb of command op code 
0046 ;bit 6 next bit of op code 
0047 ;bit 5 next bit of op code 
0048 ;bit 4 lsb of op code 
0049 ;bit 3 A8 of address in case of 
0050 756/66 in 8 bit mode. 
0051 001B addr equ 1b ;memory address of lower 7/8 bits 
0052 OO01C highb equ Le ;Used in read/write routines to store the 
0053 ;upper byte of a 16 bit data word, 
0054 ;or the data in a 8 bit data word 
0055 0O1D © lowb equ 1d ;Used in read/write routines to store the 
0056 ;lower byte of a 16 bit data word, 
0057 7or not used in 8 bit data word. 
0058 
0059 OO1E enthi equ le ;Used as the upper byte of a sixteen bit 
0060 ;loop counter in RDYCHK routine. 


eS PP I OS ST SEE TE TRIE SRT ESSE SE ES RT 
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0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 


0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 


0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 


0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
O24 
0122 
0123 
0124 
0125 
0126 


OO1F 


OO1E 
OO1F 


0000 
0002 


0002 
0001 
0001 

0003 


0000 
0001 
0020 


0080 
0040 
00CO 
0030 
0000 
0020 
0010 


ent equ Abe ;Used as the lower byte of a sixteen bit 
;loop counter in RDYCHK routine, and 
;elswhere as an eight bit counter. 


temp _cmd equ le ;doubles as a temp register for cmd 
temp _addr equ 1f ;doubles as a temp register for addr 


PRKKKKKKK KKK KKK KK KK KKK KKK KK KK KKK RK KK KK KKK RK KK KK KK KK KK KK KKK KKK KK KKK KKK 

-* Bit Assignments 

7;* The following assignments are for 3-wire. For 4-wire please assign 
7;* din and dout to two separate pins. 


carry equ 0 ;Carry Flag of Status Register. 
zflag equ 2 ;Zero Flag of Status Register. 
cs equ 2 ;Port pin tied to CS on 93CX6. 
din equ a ;Port pin tied to DI on 93CxX6. 3-wire setup 
dout equ 1 ;Port pin tied to DO on 93CX6. 3-wire setup 
clock equ 3 ;Port pin tied to CLK on 93CX6. 


PRKKKKKKKKK KKK KKK KKK KKK KK KK KKK KK KK KKK KK KK KK KK KK KK KK KKK KKK KK KKK KKK KK KK 


eas General Assignments 


ox 
, 


PRA KKK KKKKKKKK KKK KK KKK KK KKK KK KR KKK KKK KKK KKK KKK KKK KK KKK KKKKK KKK KKK KK KK 


no err equ 0 

error equ al 

tries equ 20 ;After issuing a WRITE, ERASE, ERAL, or WRAL 
;command, the approximate number of machine 
;cycles X 256 to wait for the RDY status. 
;This value must be adjusted for operating 
;frequencies other than 4 MHz. 

read equ b’10000000' ;read command op code 

write equ b’ 01000000! ;write command op code 

erase equ b’11000000' ;erase command op code 

ewen equ b’00110000' ;erase enable command opcode 

ewds equ b’ 00000000! ;erase disable command opcode 

eral equ b’ 00100000! 7erase all command op code 

wral equ b’00010000' ;write all command op code 


PRRKRKKKKKKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK AK KKK KKK KKK KK KKK KK KK 


ees Macro Definitions 


7x 


pRKKRKKKKKK KKK KKK KK KK KK KK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KK KK KK KK 


sel MACRO ;Selects the 93CX6 device 

bsf serial,cs ;Chip Select (CS) = ‘1’ to select 

ENDM ;the device 

dsel MACRO ;De-select the 93CX6 device. 

bcf serial,cs ;Chip Select (CS) = ‘0’ to de-select 
;the device. 

ENDM 

strtbt MACRO ;Issue the Start Bit to the 93CX6. 

bsf serial,din PStart Bit = Sy 

clkit ;Clock it out. 

ENDM 

celkit MACRO ;Clocks a serial data bit into or out 
;of the 93CX6 device. 

bsf serial, clock 2Clock. (CLK) = "1". 

nop ;Adjust the number of nop instructions 


;between the assertion and de-assertion of 
;CLK in proportion to the PIC operating 
;frequency. Refer to the 93CX6 data for the 
;minimum CLK period. 
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0127 . bcf serial, clock ;Clock (CLK) = ‘0’. 
0128 — ENDM 
0129 ; 
0130 : KKKKKKKKKKKKKK KKK KKEKKK KR KKK KKK KKK KEKE KKK KKK KKK KKK KKKKKKKKKEKKEKEKKKKKKEK 
0131 * Ee DOUTx 
. :* 
0132 BRR KKK RK KK KK KK KR KKK KK RK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK RK KKK KKKK KKK KK 
OL33 ;doutxx, outputs up to 11 bits of op code/data, depending on whether 
0134 ;a 46/56/66 serial eeprom is being used. The number of bits over 8 are 
0135 ;saved in the cmd register and the rest in the addr register. Before 
0136 ;calling this routine the cmd and the addr registers should be loaded 
0137 jas follows: 
0138 romd reg.bits 7/6/5|/4/3|2{110 
0139 pe erreneS Sebel (=| =| 
0140 : X|X|X{X|X|X|XIY| — not used 
0141 : X|X|XIX|X|IX|Y{X| —> mot used 
0142 ; X|X|X{|XIX/Y|X|X| — not used 
0143 ; X|X|X|X|Y|X|X|X| —> 9th bit of address if necessary 
0144 ; X|X|X|Y|X|X|X|X| —> lsb of command op code 
0145 : X|X|Y|X|X|X|X|X| —> 3rd bit of command opcode 
0146 ; X|Y|X|X|X|X|X|X| —> 2nd bit of command opcode 
0147 7 Y|X|X|X|X|X|X|X| —> msb of command op code 
0148 ; 
0149 ;addr reg. 6/7/8 bits of address if necessary. 
0150 
0151 dout 10 
OrS2 0001 0360 Lt indir ;rotate thru carry 
0153 0002 0425 bcf serial,din ;set output to 0 
0154 0003 0603 btfsc status, carry ;set? 
0155 0004 0525 bsf serial,din ;else set output to 1 
0156 clkit ;clk data 
0157 m 
0158 m ;of the 93CX6 device. 
0159 0005 0565 m bsf serial, clock sClock. (CLR). = AL", 
0160 m 
0161 0006 0000 m nop ;Adjust the number of nop instructions 
0162 m ;between the assertion and de-assertion of 
0163 m ;CLK in proportion to the PIC operating 
0164 m ;frequency. Refer to the 93CX6 data for the 
0165 m ;minimum CLK period. 
0166 m 
0167 0007 0465 bcf serial, clock ;Clock (CLK) = ‘0’. 
0168 dout 9 
0169 0008 0360 ELE indir ;rotate thru carry 
0170 0009 0425 bcf serial, din ;set output to 0 
OLE OOOA 0603 btfsc status, carry ;set? 
0172 OOOB 0525 bsf serial,din ;else set output to 1 
0173 elkit ;clk data 
0174 m 
0175 m ;of the 93CX6 device. 
0176 OO00C 0565 m bsf serial, clock #Clock (CLK) = ‘1*. 
0177 m 
0178 000D 0000 m nop ;Adjust the number of nop instructions 
0179 m ;between the assertion and de-assertion of 
0180 m ;CLK in proportion to the PIC operating 
0181 m ;frequency. Refer to the 93CX6 data for the 
0182 m ;Mminimum CLK period. 
0183 m 
0184 OOOE 0465 bcf serial, clock ;Clock (CLK) = ‘0’. 
0185 QOOF O2A4 incf fsr ;inc pointer 
0186 dout8 
0187 0010 O0C08 movilw 8 ;Initialize loop counter. 
0188 0011 003F movwf ent 
0189 ; 
0190 0012 0425 do 8 bef serial, din 7Assume that the bit to be transfered is a 
0191 ;’0'. Hence, de-assert DI. 
0192 0013 0360 ELT indir ;Rotate the actual bit to be transferred into 
0193 sthe carry bit. 
0194 0014 0603 btfsc status, carry ;Test the carry, if our assumption was 
0195 ;correct, skip the next instruction. 


A SS NST PSA TS A ED PSS ST ACI EH 
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0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 


0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 


0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
O25) 
0258 


0259 
0260 
0261 
0262 


0015 


0016 


0017 


0018 
0019 
001A 
001B 
001C 
001D 


001E 
OO1F 
0020 
0021 
0022 


0023 


0024 


0025 


0026 
0027 


0028 


0029 
002A 


002B 
002C 
002D 


O525 


0565 


0000 


0465 
O2FF 
0A12 
0360 
0425 
0800 


0C02 
0005 
0C08 
003F 
0360 


0400 


0565 


0000 


0465 
0625 


0500 


O2FF 
OA22 


0CO00 
0005 
0800 


bsf 


clkit 


bsf 


nop 


38383833888 


B88 8 


bcf 


decfsz 


goto 
rlf 
bcf 


retlw 


serial,din 


serial, clock 


serial, clock 
ent 

do 8 

indir 
serial,din 
no err 


;No, actual bit was a ‘1’. Assert DI. 


;Clock the 93CX6. 


;of the 93CX6 device. 
;Clock (CLK) = *1’. 


;Adjust the number of nop instructions 
;between the assertion and de-assertion of 


;CLK in proportion to the PIC operating 
;frequency. Refer to the 93CX6 data for the 
;minimum CLK period. 


eCLock. (CLK). =" *0*). 

;Repeat until cnt = 0. 

7Cnt: -stall > 0: 

;Restore register to its original condition. 
;make sure din is low 

;Exit with good status. 


PRA RKEK RK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK K 


7* 


, 


7k 


, 


DIN8 


PRK KKK KKK KKK KR KK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KR KKK KKK KK KKK KK KK KK 


din8 


moviw 


tris 


movilw 
movwt 


rlf 


bcf 


bsf 


nop 


3388383358855 8 


bcf 


btfsc 


bsf 


decfsz 


goto 


movlw 


tris 


retlw 


b’ 00000010' 
serial 

8 

ent 


indir 


indir,0 


-elkit 


serial,clock 


serial, clock 
serial, dout 
indir; ) 

ent 


di 8 


0 
serial 
no err 


;Din8 will input 8 bits of data from the 
;93CX6. Before calling this routine, the FSR 
;must point to the register being used to 
;hold the incomming data. 


;set up the RAl as a input before proceeding 
;set up porta 


;Initialize loop counter. 


. 
, 


;Make room for the incomming bit in the 
;destination register. 

;Assume that the incomming bit is a ‘0’ and 
;clear the LSB of the destination register. 
;Clock a bit in the 93CX6. 


;of the 93CX6 device. 
;Clock (CLK) = ‘1’. 


;Adjust the number of nop instructions 
;between the assertion and de-assertion of 
;CLK in proportion to the PIC operating 
;frequency. Refer to the 93CX6 data for the 
;minimum CLK period. 


pClock. (CLK).-= "0". 

;Test the incomming bit, if our assumption 
;was correct, skip the next instruction. 
;No, actual bit is a ‘1’. Set the LSB of the 
;destination register. 

;Repeat until cnt = 0. 

PONE: Stal S10; 

;setup RA1 back to output 

;set RAl1 as output 

; / 

;Exit with good status. 


ZR RAR KK KKK KK KKK KKK RK KKK KKK KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKEKK KKK KKK KKK 


ok 
, 


ox 


, 


RDYCHK 


PRR RRR KK KKK KK RIK KKK KKK IKK KKK KKK RK KK RK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 


;Rdychk will read the 93CX6 READY/BUSY status 
;and wait for RDY status within the alloted 
;number of processor cycles. If RDY status 
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0263 : : jis not present after this set period, the 
0264 ;routine will return with an error status. 
0265 
0266 : rdychk 
0267 ;set up RAl1 as a input before proceeding 
0268 0O02E 0C02 movlw b’ 00000010! ;set up porta 
0269 002F 0005 tris serial a 
0270 0030 0C20 movlw tries ;Initialize time-out counter 
0271 0031 0035 movwf enthi ; 
0272 0032 OO7F clrf ent ; 
0273 dsel ;De-select the 93CX6. 
0274 m 
0275 0033 0445 m bcf serial,cs ;Chip Select (CS) = ‘0’ to de-select 
0276 ;the device. 
O277 
0278 : nop ;NOTE: Check the 93CX6 data sheet for 
0279 ;minimum CS low time. Depending upon 
0280 ;processor frequency, a nop(s) may be 
0281 ;between the assertion and de-assertion of 
0282 ;Chip Select. 
0283 
0284 sel ;Re-select the 93CX6. 
0285 m 
0286 0034 0545 bsf serial,cs ;Chip Select (CS) = ‘1’ to select 
0287 0035 0625 notrdy btfsc serial, dout ;If DO is a ‘0’, 93CX6 has yet to completed 
0288 ;the last operation (still busy). 
0289 0036 OA3E goto rdynoerr ;skip to no error 
0290 0037 O2FF decfsz cnt ;No, not yet ready. Decrement the LSB of our 
0291 716 bit timer and check for expiration. 
0292 0038 0OA35 goto notrdy ;Still some time left. Try again. 
0293 0039 O2FE decfsz cnthi ;Least significant byte expired - decrement 
0294 ;and check for expiration of the MSB. 
0295 003A 0A35 goto notrdy ;Still some time left. Try again. 
0296 ;setup RA1 back to output 
0297 003B O0CcO00 movlw 0 ;set RA1 as output 
0298 003C 0005 tris serial ; / 
0299 003D 0801 retlw error ;RDY status was not present in the alloted 
0300 ;time, return with error status. 
0301 rdynoerr 
0302 ;setup RA1 back to output 
0303 003E O0C00 movlw 0 ;set porta as output 
0304 003F 0005 tris serial Gs 4 / 
0305 0040 0800 retlw no err 
0306 
0307 pPRKKKKRKKK KKK KKK KKK KK KK KK KKK KKK KKK KK KKK AK KKK KKK KKK KKK KK KKK KKK KKK KKK KK 
0308 pe SEE 
;* 
0309 PRK RRR KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KKK KK KKK KKK KKK AK KKK KKK KKK KKK KK 
0310 
0311 ;See will control the entire operation of a 
0312 793CX6 device. Prior to calling the routine, 
0313 , ;load a valid command/memory address into 
0314 ;location cmd, and for WRITE or WRAL 
0315 ;commands, load registers highb and lowb with 
0316 ;16 bits of write data. Upon exit, the W 
0317 ;register will contain the completion status. 
0318 ;Only 93CX6 instructions which require a 
0319 ;status check can return with an error as the 
0320 ;completion status. The values that denote 
0321 ;the completion status are defined as 
0322 ;variables ‘error’ and ‘no_err’ in the 
0323 ;general assignments section. 
0324 
0525 see 
0326 0041 O21A movft cmd, w ;save cmd 
0327 0042 003E movwf  temp_cmd 
0328 0043 021B movf addr,w ;save addr 
0329 0044 003F movwf temp_addr ; 
0330 0045 OC1A movlw cmd ;Load W with the location of the cmd 
0331 ;register. 
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0332 
0233 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
Goat 
0352 
0353 
0354 
0355 
0356 
U357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
OST 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 


0046 


0047 


0048 


0049 


004A 


004B 


004C 
004D 


004E 
O04F 


0050 


0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
OO5A 
005B 
005C 


005D 


OO5E 


OO5F 


0060 


0061 


0062 


0063 


0064 
0065 


0066 
0067 


0068 


0024 


0545 


0525 


0565 


0000 


0465 


O6OFA 
0A73 


O7DA 
0A75 


0A73 


O21E 
003A 
021F 
003B 
O6DA 
OA5F 
O6FA 
OA69 
O6BA 
OA66 
069A 
OA6E 


0445 


0800 
O7FA 
OA6E 
092E 
0445 


01E2 


0800 
0801 


069A 
OASD 


OAGL1 


3.3 


338s8383s:3338:3838 


seel 


exit _ 


see2 


exitZ 


see3 


movwt 


sel 


bsf 
strtbt 


bsf 
clkit 


bsf 


nop 


bcf£ 


btfsc 
goto 


goto 
btfss 
goto 
goto 
goto 


goto 


movt 
movwf 
movft 
movwf 
btfsc 
goto 
btfsc 
goto 
btfsc 
goto 
btfsc 
goto 


dsel 


bef 


retlw 
btfss 
goto 
call 
dsel 
bcf 
addwf 


retlw 
retlw 


btfsc 
goto 


goto 


fsr 


serial,cs 


serial,din 


serial,clock 


serial,clock 


cmd, 7 
scal0 


set_cmd_addr 
cmd, 6 

scl0 

set_cmd 
scal0 


set_cmd_addr 


temp_cmd,w 
cmd 
temp_addr,w 
addr 

cmd, 6 

see2 

cmd, 7 
read _ 
emd, 5 

see3 

cmd, 4 
write _ 


serial,cs 


no err 
cmd, 7 


write_ 
rdychk 


serial,cs 


pc 


no err 
error 


cmd, 4 
exit. 


exit2_ 


;Transfer that information into the File 
;Select Register. The fsr now points to 
; location cmd. 

;Select the 93CXé6. 


;Chip Select (CS) = ‘1’ to select 
;Send a start bit. 


;Start Bit = ‘1’. 
;Clock it out. 


;of the 93CX6 device. 
;Clock (CLK) = ‘1’. 


;Adjust the number of nop instructions 
;between the assertion and de-assertion of 
;CLK in proportion to the PIC operating 
;frequency. Refer to the 93CX6 data for the 
;minimum CLK period. 


7Clock. (CLK) ‘= *0". 


;bit 7 = 0? 
;xfer 10 bit cmd/adr 


;no then set cmd/addr 
Fb2t, 6: =< 2 

;xfer 10 bit cmd/adr 
;yes then set cmd 
;xfer 10 bit cmd/adr 


;else set cmd/addr 


;retore cmd 


: / 
;restore addr 
; / 


;Check for a WRITE or ERASE command. 
;Yes, parse the command further. 
;Check for a READ command. 

;Yes, process READ command. 

7;Check for a EWEN or ERAL command. 
;Yes, parse the command further. 
;Check for a WRAL command. 

;Yes, process WRITE/WRAL command. 


;No further processing required; 93CX6 


;Chip Select (CS) = ‘0’ to de-select 
;the device. 
;command completed. 


;Return with good completion status. 


;Check for a ERASE command. 

;No, process WRITE command. 

;ERASE command requires a status check. 
;De-select the 93CX6. 


;Chip Select (CS) = ‘0’ to de-select 

;the device. 

;Compute completion status from results of 
,status check. 

;Return with good completion status. 
;Return with bad completion status. 


;Check for a EWEN command 

;Yes, no further processing required, exit 
;now. 

;No, ERAL command which requires a status 
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0402 ;check. 
0403 
0404 0069 O2A4 read_ incf fsr ;Increment the File Select Register to point 
0405 ;to the register receiving the upper byte of 
0406 . ;the incomming 93CX6 data word. 
0407 OO6A O91E call din8 ;Input the upper byte. 
0408 O006B 02A4 incf fsr ;Increment the File Select Register to point 
0409 ;to the register receiving the lower byte. 
0410 006C O91E call din8 ;Input 8 more bits. 
0411 006D OA5D goto exit_ ;No further processing required, exit now. 
0412 
0413 OO6E O2A4 write incf fsr ;Increment the File Select Register to point 
0414 ;to the upper byte of the 16 bit 93CX6 data 
0415 ;word to be transmitted. 
0416 OO6F 0910 call dout8 ;Output that byte. 
0417 0070 O2A4 incf fsr ;Increment the File Select Register to point 
0418 sto the lower byte. 
0419 0071 0910 call dout 8 ;Output the lower byte of the 16 bit 93CxX6 
0420 ;data word. 
0421 0072 OA61 goto exit2 | ;Exit with a status check. 
0422 
0423 ; 
0424 ; 
0425 ; 
0426 scal0 
0427 0073 0901 call dout10 ;output cmd reg 
0428 0074 OA51 goto seel ;return 
0429 ; 
0430 ; 
0431 ; 
0432 ; 
0433 ; 
0434 scl0 
0435 0075 037A ELE cmd rotate cmd 
0436 0076 O35A rlf cmd, w ;left twice 
0437 0077 003B movwf addr ;save in addr 
0438 0078 OQOO7A clrt cmd, ;clear command 
0439 0079 0901 call dout10 ;xfer 10 bits 
0440 OO7A OAS1 goto seel ;return 
0441 : 
0442 PRRKKKKKKKK KKK KE KKK KK KKK KKK RK KK KK KK KKK KKK KKK KKK KKK KKK KK KKK IK KKK KKK KKK 
0443 ex Test Program . 
ox 
0444 AE oR ORE I RI IER RTI R ERISA RIES RII 
0445 main ;We’ve include a sample program to exercise 
0446 - s;the PIC to 93C66 interface using a simple 
0447 ;erase, write and verify routine. 
0448 , ;8 bit organization has been used 
0449 ;with a 3 wire interface. 
0450 
0451 007B 0065 elret serial ;Clear the port tied to the 93C66 device. 
0452 007C OCFO movilw b’11110000' ;Intialize the data direction register for 
0453. OO7D 0005 tris serial ;that port. 
0454 
0455 OO7E 0C30 movlw ewen ;Load W with the Erase/Write Enable command. 
0456 OO7F 003A movwf cmd ;Transfer W into cmd register. 
0457 0080 0941 call see ;Enable the 93C66 device. 
0458 
0459 0081 0C20 moviw eral ;Load W with the Erase All command. 
0460 0082 003A movwf cmd ;Transfer W into cmd register. 
0461 0083 0941 call see ;Erase the 93C66. 
0462 0084 OFO1 xorlw error ;Check completion status. 
0463 0085 0643 btfsc status, zflag ;Test for error condition. 
0464 0086 OAA6 goto errloop ;Yes, bad completion status, error-out. 
0465 
0466 ;Write loop: 
0467 OOAA tstptrn equ OxAA ;Define the test pattern to be written. 
0468 
0469 0087 0C40 movlw write ;Load W with the Write command. 
0470 0088 003A movwf cmd . ;Transfer W into cmd register. 
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0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 


0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 


0089 


008A 


008B 
008C 
008D 
008E 
008F 


. 0090 


0091 
0092 
0093 
0094 


0095 
0096 


0097 
0098 
0099 
009A 
009B 


009C 
009D 
OO9R 
009F 
OOAO 
OOA1 
00A2 


00A3 
00A4 


00A5 


OOA6 


O1FF 


OCAA 


003C 


007B 
0941 
OF O01 
0643 
OAAG6 
O3FB 


OA8C 
O77A 
OA9S 
OA97 


OSTA 
OA8C 


0C80 
003A 
0941 
OCAA 
009C 


0743 
OAA6 
03FB 
0A99 
O77A 
OAA3 
OAA5 


O57A 
OA99 


OAAS 


OAA6 


0000 


OA00 


0000 


movilw 


movwt 


clrf 
call 
xorlw 
btfsc 
goto 
incfsz 


testl 


goto 

btfss 

goto 

goto 
wrt_nxt_pg 

bsf 

goto 


read _tst 

movlw 
movwt 
call 
movilw 
subwf 


test2 


btfss 
goto 
incfsz 


goto 

btfss 

goto 

goto 
rd_nxt_pg 

bsf 

goto 
allok goto 
errloop 

goto 
;KEY DEFINITIONS 

ORG 
SYS_RESET 

GOTO 


END 


tstptrn 
highb 


addr 

see 

error 
status, zflag 
errloop 

addr 


testl 
emd, 3 

wrt nxt_pg 
read _tst 


cmd, 3 
testl 


read 
cmd 

see 
tstptrn 
highb,w 


status, zflag 
errloop 

addr 

test2 

cmd, 3 
rd_nxt_pg 
allok 


cmd, 3 
test2 


allok 


errloop 


PICS4 


START 


;Intialize the 93C66 data registers with 
;write data. 

;load in high byte only 

7;Since 8 bit low byte is ignored 

;start at addr 0 

;Write data word into 93C66 device. 
;Check completion status. 

;Test for error condition. 

;Yes, bad completion status, error-out. 
;No, increment the 8 bit memory address 
; field. 

;write another location 

;see if all done 

;no then write next page 

;read written data 


;set page bit 
;No, write another location. 


7;Read loop: 


;Load W with the Read command. 

;Transfer W into cmd register. 

;Read addressed data word from 93C66 device. 
;Load W with the pattern written. 

;Verify the data read against what was 
jwritten. 

7 Same? 

;No, error-out. 

;Yes, both byte correct, increment the 8 bit 
;memory address field. 

;do next byte 

;check page bit 

;no then chk next page 

;all done!!! 


;set page bit 
;No, read another location. 


;Home safe! 


arene enya hens rsh RS niin 


© 1993 Microchip Technology Incorporated 


5-21 


DS00530C-page 11 











Interfacing 93 Series Serial EEPROMs 





Appendix B 


Microchip Technology PIC16C5X Assembler 3.03A Wed Feb 26 11:11:15 1992 Page 1 


Line PC Opcode 


orelemn DI III IIIT III TOIT II IIT TOTTI I I I ITO IA AAA 
0002 ;* MPALC Directives Section . 

ox 
0003 <LRKHREKEHERERA KERR HEL GAEEERAERED RERAREHE EHR ARE RAEN ED ARE DARE REN A RERES 
0004 
0005 LIST P=16C54,N=40,C=132 
0006 
0007 
0008 g RK KKK KKK KK KKK HK KEKE KKK KKK KK KKK KKK KKK KI KKK KKK KKK EKER KK KKEKKKKEKKKKEKKKKE 
0009 as Register Assignments * 
OO1L0 PRK KKK AK KEKE KE KKK KKK KKK KKK KKK KKK RK KKK KEK KK KKK KKK KK KKK KKKKEKKKKKKKKK 
0011 
0012 0000 indir equ 0x00 ;Use this register as source/destination for 
0013 ;indirect addressing. 
0014 0002 pec equ 0x02. 7PIC16/17 Program Counter. 
0015 0003 status equ 0x03 ;PIC16/17 Status Register. 
0016 0004 fsr equ 0x04 7File Select Register. 
0017 0005 serial equ 0x05 ;Port used for 93C46 control. Since Port A 
0018 | ris 4 bits wide, we’ll use 3 or 4 pins of Port A. 
0019 
0020 7The following three registers must be 
0021 ;located consecutively in memory. 
0022 0010 cmd equ 0x10 ;This register contains the 2 bit 93C46 
0023 7;command is the upper 2 bit positions and 
0024 _ pmemory address in the lower 6. 
0025 0011 highb equ 0x11 ;Used in read/write routines to store the 
0026 supper byte of a 16 bit 93C46 data word. 
0027 0012 lowb equ 0x12 ;Used in read/write routines to store the 
0028 slower byte of a 16 bit 93C46 data word. 
0029 
0030 0013 cnthi equ 0x13 ;Used as the upper byte of a sixteen bit loop 
0031 ;counter in RDYCHK routine. 
0032 0014 cnt equ 0x14 7Used as the lower byte of a sixteen bit loop 
0033 ;counter in RDYCHK routine, and elsewhere as 
0034 yan eight bit counter. 
0035 
0036 BKK KKK HK KK KI KKK KK KK KKK KK KEK KKK KKK KKK KKK KKK EK KKK KEK KKK KEK KKKKEKKKKKKER 
0037 ;* Bit Assignments: The following assignment is for 3-wire setup. 
0038 7* For four wire setup, assign dout equ 2. 
0039 
0040 0000 carry equ 0 ;Carry Flag of Status Register. 
0041 0002 zflag equ 2 ;Zero Flag of Status Register. 
0042 
0043 0000 cs equ 0 ;Port pin tied to CS on 93C46. 
0044 0001 din equ 1 7Port pin tied to DI on 93C46. 3-wire setup. 
0045 0001 dout equ a ;Port pin tied to DO on 93C46. 3-wire setup. 
0046 0003 clock equ 3 7Port pin tied to CLK on 93C46. 
0047 
0048 KKK KKK KK KKK KKK KKK IK KKK KKK KKK IKK KKK KKK KKK KK KEK KK KK KKK KKK KK KKK KEKE KEK 
0049 ;* General Assignments - 
0050 KK KKK KE KKK KKK KKK KKK KEK EK KR KKK KKK KEK KKK KKK KKK KEK EK KKK KKK KEKE KEKKKK KKK 
0051 
0052 0000 no_err equ 0 ; 
0053 0001 error equ 1 ; 
0054 0004 tries equ 0x04 ;After issuing a WRITE, ERASE, ERAL, or WRAL 
0055 ;command, the approximate number of machine 
0056 rcycles X 256 to wait for the RDY status. 
0057 ;This value must be adjusted for operating 
0058 ;frequencies other than 4 MHz. 
0059 
0060 0080 read equ 0x80 793C46 Read command. 
0061 0040 write equ 0x40 793C46 Write command. 
0062 00CO erase equ OxC0 7;93C46 Erase command. 
0063 0030 ewen equ 0x30 793C46 Erase/Write Enable command. 
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0064 0000 ewds equ 0x00 ;93C46 Erase/Write Disable command. 
0065 0020 eral equ 0x20 ;92CXX Erase All command. 
0066 0010 wral equ 0x10 7;92CXX Write All command. 
0067 
0068 CCI I ICICI III IZIBOR IORI III III III II ICICI ICICI ICICI IK 
0069 on Macro Definitions * | 
0070 PRAKKK KKK KK KKK KKK KK RK KKK KKK RK KK KKK KK KKK KKK KK RAK KKK KKK KKK KK KK RK KKK KK KK 
0071 
0072 sel MACRO ;Selects the 93C46 device. 
0073 bsf serial,cs ;Chip Select (CS) = ‘1’ to select the device. 
0074 ENDM 
0075 
0076 dsel MACRO ;De-select the 93C46 device. 
0077 bef serial,cs ;Chip Select (CS) = ‘0’ to de-select the 
0078 ;device. 
0079 ENDM 
0080 
0081 strtbt MACRO ;Issue the Start Bit to the 93C46é. 
0082 bsf serial,din ;Start Bit = ‘1’. 
0083 elise SCLOCK- BEcOUes 
0084 ENDM 
0085 
0086 CLeEIE MACRO ;Clocks a serial data bit into or out of the 
0087 793C46 device. 
0088 bsf serial, clock ;Clock (CLK) = ‘1’. 
0089 
0090 nop ;Adjust the number of nop instructions 
0091 ;between the assertion and de-assertion of 
0092 ;CLK in proportion to the PIC operating 
0093 ;frequency. Refer to the 93C46 data for the 
0094 ;minimum CLK period. 
0095 
0096 bcf serial, clock ;Clock (CLK) = ‘0’. 
0097 ENDM 
0098 
0099 PRK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KK KK 
0100 a Power-On/Reset Entry Point * 
0101 PRR KKKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KK KKK KKK KK KK KK 
0102 
0103 0000 reset_ org Ox1FF 
0104 O1FF OA57 goto main 
0105 
0106 PRA KKK KKKK KKK KKKKK KKK KKK KKK KKK KKK KK KKK KKK KAR K KKK KKK KKK KKK KK KKK KKK KK KK 
0107 oe 93C46 Routines ms 
0108 PRK KKKKKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KR KKK KKK KK KK 
0109 0000 org 0x000 ;Locate all subroutines in the lower half of 
0110 ;a Program Memory Page. 
0111 
0112 pK RKK KKK KKK KKK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KK 
0113 ;* DOUT8 * 
0114 PRK KKK KR KK KK KKK KK KK KKK KK KK KR KK KKK KKK AK KK KK KKK KKK KK KKK KK KKK KKK KK KK KK KK 
0115 ;Dout8 will output 8 bits of data to the 
0116 793C46. Before calling this routine, the FSR 
0117 ;must point to the byte being transmitted. 
0118 
0119 0000 O0C08 dout8 movlw 0x08 ;Initialize loop counter. 
0120 0001 0034 movwf ent ; 
0121 
0122 0002 0425 do 8 bcf serial, din ;Assume that the bit to be transfered is a 
0123 7;’0'. Hence, de-assert DI. 
0124 0003 0360 sal indir ;Rotate the actual bit to be transferred into 
0125 ;the carry bit. 
0126 0004 0603 btfsc status, carry ;Test the carry, if our assumption was 
0127 ;correct, skip the next instruction. 
0128 OO05. 0525 bsf serial, din ;No, actual bit was a ‘1’. Assert DI. 
0129 clkit ;Clock the 93C46. 
0130 m 
0131 m 793C46 device. 
0132 0006 0565 m bsf serial, clock ;Clock (CLK) = ‘1’. 
O1L33 m 
0134 0007 0000 m nop ;Adjust the number of nop instructions 
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0135 m ;between the assertion and de-assertion of 





0136 m ;CLK in proportion to the PIC operating 
0137 m ;frequency. Refer to the 93C46 data for the 
0138 m yminimum CLK period. 

0139 m 

0140 0008 0465 bcf serial, clock 7;Clock (CLK) = ‘0’. 

0141 0009 O2F4 decfsz cnt ;Repeat until cnt = 0. 

0142 QO0A OA02 goto do 8 ,Citstill > 0. 

0143 000B 0360 ELE indir ;Restore register to its original condition. 
0144 000C 0425 bcf serial, din ;make din low before return 

0145  Q00D 0800 retlw no_err 7Exit with good status. 

0146 

0147 PRR RAK KK KKK KKK KKK KK KKK KKK KKK KR KKK KKK KKK KKK KKKKKKK KKK KKK KKK KK KKK KK KKK K 

0148 = DIN8 x 

0149 PRK KRKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KK KKK KKK 

0150 ;Din8 will input 8 bits of data from the 
0151 793C46. Before calling this routine, the FSR 
0152 smust point to the register being used to 
0153 shold the incomming data. 

0154 din8 

0155 PRAKKKKKKKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KK KKK KK KKK KK KKK KK 
0156 ;set up RAl as a input before proceeding 
0157 OOOE O0C02 movlw b’00000010' ;set up PORTA 

0158 OO0OF 0005 tris serial ; ; 

0159 PRAKKKKKKKKKKKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK K 

0160 0010 0Cc08 movlw 0x08 ;Initialize loop counter. 

0161 0011 0034 movwf ent ; 

0162 

0163 di 8 el kit sClock a bit out of the 93C46. 

0164 m 

0165 m 793C46 device. 

0166 0012 0565 m bsf serial, clock 7ClGEk (CLK). S71 

0167 m 

0168 0013 0000 m nop ;Adjust the number of nop instructions 

0169 m ;between the assertion and de-assertion of 
0170 m ;CLK in proportion to the PIC operating 

ULI E m ;frequency. Refer to the 93C46 data for the 
0172 m ;minimum CLK period. 

0173 m 

0174 0014 0465 bcf£ serial, clock 7;Clock (CLK) = ‘0’. 

O175 0015 0360 heglOo indir ;Make room for the incomming bit in the 
0176 ;destination register. 

0177 0016 0400 bcf Bate in open @) ;Assume that the incomming bit is a ‘0’ and 
0178 ;clear the LSB of the destination register. 
0179 OO1L7 0625 btfsc serial, dout ;Test the incomming bit, if our assumption 
0180 ;was correct, skip the next instruction. 
0181 0018 0500 bsf indir, 0 ;No, actual bit is a ‘1’. Set the LSB of the 
0182 ;destination register. 

0183 0019 O2F4 decfsz cnt ;Repeat until cnt = 0. 

0184 O0O1A OA12 goto a8 7Cnt ‘still 2 O 

0185 eR ee ee ee ee ee eee ee eee ee ee eee eee eee 

0186 ;Restore RAl back as output 

0187 001B 0C00 movlw 0 ;set RAl as output 

0188 001C 0005 tris serial 3 / 

0189 PRKKKKKKKKKKKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK 

0190 001D 0800 retlw no_err ;Exit with good status. 

0191 

0192 PRKRKKKKKKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KK 

0193 ye RDYCHK ® 

0194 PRKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKK KKK KKK KK KKK KKK 

0195 ;Rdychk will read the 93C46 READY/BUSY status 
0196 ;and wait for RDY status within the alloted 
0197 ;number of processor cycles. If RDY status 
0198 ;is not present after this set period, the 
0199 ;routine will return with an error status. 
0200 

0201 rdychk 

0202 PRK KRKKKKKKKKKKK KKK KKK K KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KKK KK 

0203 ;set up RAl as a input before proceeding 

0204 OO1E O0C02 movlw  b’00000010' ;set up PORTA 
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0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
O23 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0295 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 





OO1F 
0020 


0021 
0022 


0023 


0024 
0025 


0026 
0027 


0028 
0029 


002A 


002B 


002C 


002D 


002E 
002F 


0030 


0031 


0032 


0033 


0005 
0Cc04 


0033 
0074 


0405 


0505 
0625 


OA2E 
O2F4 


0A25 
O2F3 


OA25 


0C00 


0005 


0801 


OCO0 
0005 


0800 


0C10 


0024 


0505 


m 


not rdy 


rdynoerr 


see 
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. ' | 
tris serial - ih 
PRR KKKKKKK KKK KK KKK KKK KK RK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KK KK KK KKK KKK KK KK | 


movilw tries ;Initialize time-out counter. 

movwf enthi : 

clrf ent ; 

dsel ;De-select the 93C46. 

bcf serial,cs ;Chip Select (CS) = ‘0’ to de-select the 
;device. 

nop ;NOTE: Check the 93C46 data sheet for 


;minimum CS low time. Depending upon 
;processor frequency, a nop(s) may be 
;between the assertion and de-assertion of 
;Chip Select. 


sel 7Re-select the 93C46. 

bsf serial,cs ;Chip Select (CS) = ‘1’ to select the device. 

btfsc serial, dout ;If DO is a ‘0’, 93C46 has yet to completed 
;the last operation (still busy). 

goto rdynoerr ;skip to no error 

decfsz cnt ;No, not yet ready. Decrement the LSB of our 
716 bit timer and check for expiration. 

goto notrdy ;Still some time left. Try again. 

decfsz cnthi ;Least significant byte expired - decrement 
;and check for expiration of the MSB. 

goto notrdy ;Still some time left. Try again. 


PRKKKKKKKKKKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KKK KKK KKK KARR KKK KKK KKK KK KKK KK 


;Restore RA1 back as output 
moviw 0 ;set RAl as output 
tris serial ; / 
PRA KKKKRKEKKEKREKK KKK KK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KK 
retlw error ;RDY status was not present in the alloted 
;time, return with error status. 


PRRKKKRKKK KKK KKK KK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK 


;Restore RAl back as output 
movlw 0 ;set RAl as output 
tris serial ; / 
PRKKKKRKK KKK KKK KK KK KK KK KKK KKK KKK KK KK KKK KKK KKK KK KKK KK KK KK KK KKK KKK KK KK 


retlw no ery 

, 

; 

PRAKKRKKKKKK KKK KKK KKK KK KKK KK KKK KK KKK KKK KK KK KKK KKK KKK KKKKKKKKKKK KKK KKK 
eas SEE * 


PRKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KK KKK KK KK KK KK KK KK 





;See will control the entire operation of a 
793C46 device. Prior to calling the routine, 
;load a valid command/memory address into 
;location cmd, and for WRITE or WRAL 
;commands, load registers highb and lowb with 
;16 bits of write data. Upon exit, the W 
;register will contain the completion status. 
;Only 93C46 instructions which require a 
;status check can return with an error as the 
;completion status. The values that denote 
;the completion status are defined as 
7Variables’ ‘error’ and, “no err’ ain: the 
;general assignments section. 


moviw cmd ;Load W with the location of the cmd 
;register. 
movwf fsr ;Transfer that information into the File 


;Select Register. The fsr now points to 
;location cmd. 


sel ;Select the 93C46. 
DSi serial,cs ;Chip Select (CS) = ‘1’ to select the device. 
strtbt ;Send a start bit. 


ni tte etnias SerNrRSerR RENAN 
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0276 m 

0277 0034 0525 m bsf serial, din PStart Bat = VE" 

0278 clkit #Clock it out. 

0279 m 

0280 m 793C46 device. 

0281 0035 0565 m bsf serial, clock ;Clock (CLK) = ‘1’. 

0282 m 

0283 0036 0000 m nop ;Adjust the number of nop instructions 

0284 m ;between the assertion and de-assertion of 
0285 m ;CLK in proportion to the PIC operating 

0286 m ;frequency. Refer to the 93C46 data for the 
0287 m ;minimum CLK period. 

0288 mo 

0289 0037 0465 bcf serial, clock 7Clock (CLK) = ‘0’. 

0290 0038 0900 call dout 8 ;Transmit the 2 bit command and six bit 

0291 ;address. 

0292 0039 OQ6DO btfsc cmd, 6 ;Check for a WRITE or ERASE command. 

0293 003A 0A43 goto see2 ;Yes, parse the command further. 

0294 003B . O6F0 btfsc emd, 7 ;Check for a READ command. 

0295 003C OA4D goto read_ ;Yes, process READ command. 

0296 003D O6BO0 btfsc cmd, 5 ;Check for a EWEN or ERAL command. 

0297 O03E OA4A goto see3 ;Yes, parse the command further. 

0298 O03F 0690 btfsc cmd, 4 ;Check for a WRAL command. 

0299 0040 OA52 goto write _ 7Yes, process WRITE/WRAL command. 

0300 

0301 exit dsel ;No further processing required; 93C46 

0302 m 

0303 0041 0405 m bcf serial,cs ;Chip Select (CS) = ‘0’ to de-select the 
0304 . ;device. 

0305 ;command completed. 

0306 0042 0800 retlw no_err ;Return with good completion status. 

0307 

0308 0043 O7FO see2 btfss cmd, 7 ;Check for a ERASE command. 

0309 0044 OA52 goto write_ ;No, process WRITE command. 

0310 0045 O91E exit2_ call rdychk 7;ERASE command requires a status check. 

O3L4 dsel ;De-select the 93C46. 

0312 m 

0313 0046 0405 m bcf serial,cs ;Chip Select (CS) = ‘0’ to de-select the 
0314 ;device. 

0315 0047 O1E2 addwf pc ;Compute completion status from results of 
0316 ;status check. 

O317 0048 0800 retlw no_err ;Return with good completion status. 

0318 0049 0801 retlw error ;Return with bad completion status. 

0319 

0320 OO0O4A 0690 see3 btfse cmd, 4 ;Check for a EWEN command. 

0321 004B OA41 goto exit_ ;Yes, no further processing required, exit 
0322 ;now. 

0323 O004C OA45 goto exit2_ ;No, ERAL command which requires a status 
0324 ;check. 

0325 

0326 004D O02A4 read_ ai ket u fsr ;Increment the File Select Register to point 
0327 ;to the register receiving the upper byte of 
0328 ;the incomming 93C46 data word. 

0329 O04E O90E call din8g ;Input the upper byte. 

0330 OO4F O2A4 incf fsr ;Increment the File Select Register to point 
0331 ;to the register receiving the lower byte. 
0332 0050 O90E call din8 ;Input 8 more bits. 

0333 0051 OA41 goto exit_ ;No further processing required, exit now. 
0334 

0335 0052 O2A4 write_ ACL fsr ;Increment the File Select Register to point 
0336 ;to the upper byte of the 16 bit 93C46 data 
0337 ;word to be transmitted. 

0338 0053 0900 call dout 8 ;Output that byte. 

0339 0054 O2A4 incf fsr ;Increment the File Select Register to point 
0340 ;to the lower byte. | 

0341 0055 0900 call dout 8 ;Output the lower byte of the 16 bit 93C46 
0342 ;data word. 

0343 0056 OA45 goto exit2_ ;Exit with a status check. 

0344 . 

0345 PRKKKKKKKKKKKKK KK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK 


ee 
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0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0352 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
Gsio 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 


0057 
0058 
0059 


OO5A 
OO05B 
005C 


0O5D 
OO5E 
OOSF 
0060 
0061 
0062 


0063 
0064 
0065 
0066 
0067 


0068 
0069 
006A 
O06B 
006C 
006D 
006E 


O06F 
0070 


0071 
0072 
0073 
0074 
0075 
0076 
0077 


0078 
0079 
OO7A 
007B 
007C 
007D 
007E 


OO7F 
0080 


0081 


0082 


0065 
OCF 4 
0005 


0C30 
0030 
0931 


0C20 
0030 
0931 
OFO1 
0643 
OA82 


OO1F 


OOAA 


0C40 
003F 
0C40 
0030 
OCAA 


0031 
0032 
0931 
OFO1 
0643 
OA82 
02B0 


O2FF 
OA6A 


0C40 
003F 
0C80 
0030 
0931 
OCAA 
0091 


0743 
0A82 
OCAA 
0092 
0743 
OA82 
02B0 


O2FF 
OA75 


OA81 


OA82 


0000 


loopent 


tstptrn 


testl 


test2 


allok 


errloop 


ok 
, 


Test Program . 


PRR RK RR KK KK KKK KKK KKK KKK KKK KKK KK KKK RK KKK KKK KK KKK KK KKK KK KK KK KR KR KK KKK KK K 


main 


clrf 
movilw 
tris 


movlw 
movwf 
call 


movlw 
movwf 
call 
xorlw 
btfsc 
goto 


equ 
equ 


mov lw 
movwf 
moviw 
movwt 
movlw 


movwe 
movwt 
call 
xorlw 
btfsc 
goto 
incf 


decfsz 
goto 


movilw 
movwf 
movlw 
movwf 
call 
movilw 
subwf 





btfss 
goto 
movlw 
subwf 
btfss 
goto 
Lor 


decfsz 
goto 


goto 


goto 


END 


serial 
b’11110100'! 
serial 


ewen 
cmd 
see 


eral 
cmd 

see 
error 
status, 
errloop 


zflag 


Ox1F 


OxAA 


. 64 
loopent 
write 
cmd 
tstptrn 


highb 

lLowb 

see 

error 
status, zflag 
errloop 

cmd 


loopent 
testl 


. 64 
loopent 
read 
cmd 

see 
tstptrn 
highb, 0 


status, zflag 
errloop 
tstptrn 
lowb, 0 
status, zflag 
errloop 

cmd 


loopent 
test2 


allok 


errloop 


;We’ve include a sample program to exercise 
;the PIC to 93C46 interface using a simple 
;erase, write and varify routine. 


;Clear the port tied to the 93C46 device. 
;Intialize the data direction register for 
;that port. 


;Load W with the Erase/Write Enable command. 
;Transfer W into cmd register. 
;Enable the 93C46 device. 


;Load W with the Erase All command. 
;Transfer W into cmd register. 

;Erase the 93C46. 

;Check completion status. 

;Test for error condition. 

;Yes, bad completion status, error-out. 


;Write loop: 

;Define an unused location for our test 
;program loop counter. 

;Define the test pattern to be written. 


;Initialize that counter. 

;Load W with the Write command. 
;Transfer W into cmd register. 
;Intialize the 93C46 data registers with 
jwrite data. 

;Write data word into 93C46 device. 
;Check completion status. 

;Test for error condition. 

;Yes, bad completion status, error-out. 
;No, increment the 6 bit memory address 
pfield. 

;Have we written all 64 locations? 

;No, write another location. 





7;Read loop: 


;Initialize loop counter. 

;Load W with the Read command. 

;Transfer W into cmd register. 

;Read addressed data word from 93C46 device. 
;Load W with the pattern written. 

;Verify the data read against what was 
;written. 

; Same? 

;No, error-out. 

;Repeat with the lower byte read. 

; Same? 

;No, error-out. 

;Yes, both byte correct, increment the 6 bit 
;memory address field. 

;Have we read all 64 locations? 

;No, read another location. 


;Home safe! 
;Bad news! 


;Thats all folks! 


Nee TE EEEEEEEeaaannoeemesonenamsene a ns ae 
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NOTES: 
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Embedded applications increasingly want more integra- 
tion and power, in less space for less cost. Using low 
power Serial EEPROMs (SEE) for application firmware, 
lookup tables, and microcode coupled with small foot- 
prints makes for permanent storage at respectable 
savings. One additional method of saving on the power 
budget is selectively powering off components when not 
needed, a basic for embedded power management. 
The low-power SEEs offered by Microchip Technology 
Inc., offer an additional benefit, powering the SEE from 
a microcontroller port. This allows the controller to 
manipulate not only when the SEE reads and writes, but 
also when it is powered on. Satellite communications 
use this technique to save power and total dose accumu- 
lation. We call this technique POWER PORT™. The 
microcontroller port must have sufficient loh (Source 
Current) to sustain the voltage and current for all memory 
functions, READ, ERASE, and WRITE. Obviously, not 
all memory or peripheral devices could be powered 
thusly, but Microchip’s SEE devices will function in this 
environment. 


The microcontroller, using its internal software and 
hardware decision functions, determines when it needs 
to communicate with the memory device, then acts 
accordingly. Any standard wake-up sequence will ac- 
complish this task. The wake-up code needs only power 
up the memory and wait for the power to become stable 
before doing a read or write by driving the POWER 
PORT high. Then all serial communication executes 
normally. The SEEs are powered off for additional 
power savings and the data or code is utilized from RAM. 
Obviously, the port output must be allowed to settle, but 
normal operation of the output structures would guaran- 
tee that this would be met. The I/O port Tpd for the 
Microchip Technology Inc. PIC16C5X, is specified at 
40ns maximum. 


The 24LCXX and 93LCXX CMOS SEE series parts from 
Microchip were designed to achieve low current con- 
sumption across all ranges of operation. — 


The four primary icc parameters for these products are: 


Parameter Conditions 
Icc STANDBY Not in an active operation 
while Vcc is supplied. 
Icc READ The part is ina READ operation. 


Icc PEAK WRITE The BYTE / PAGE WRITE and 
ERASE operations have self 
timed cycles of 10 ms. A 
typical of 4 ms is the actual 
time of the operation. This is 
the amount of time when the 
ICc requires the most current 
(PEAK WRITE). The part is 
drawing STANDBY Icc during 
the remaining 6ms of the cycle. 
Icc AVG WRITE The avg of the PEAK WRITE 
Icc and STANDBY Icc during 
the self-timed 10ms write cycle. 


The attached characteristic curves (Figures A and B) 
indicate that Icc PEAK WRITE current consumes the 
most current. The worst case condition is at 6.0V and 
—40°C. The 24LCXX series parts draw a typical 3.2 mA 
and the 93LCXX series parts draw a typical of 2.0 mA. 
These low Icc characteristics offer a unique current 
saving benefit for battery applications. Figure C and D 
illustrate the sink and source current capabilities of the 
PIC16C5X family of controllers. It is clear from these 
characterization curves that the microcontroller can 
deliver sufficient current across all temperature ranges 
to power a SEE using the POWER PORT technique. 


Figure E shows the connection scheme for the Micro- 
chip Technology Inc. PIC16C54. It should be noted that 
not all versions of competitive microcontrollers are ca- 
pable of powering a device in this manner and the 
specific data sheets for the controller being considered 
must be consulted for maximum source current. The 
microcontroller port must be capable of sourcing suffi- 
cient current for the duration of the write cycle or 10ms, 
worse case. The peak write requirement for the 24LCXX 
product family is 3.2 mA at 5.5 Vde (40°C). 


Listing Ademonstrates the appropriate code sequences 
when using the PIC16C54 microcontroller. The se- 
quences included are power control, start bit, stop bit, 
send and receive bit, Tx and Rx, and a general address- 
ing routine. 
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FIGURE A - TYPICAL Icc FOR 24LCXX FIGURE B - TYPICAL Icc FOR 93CXX 


24LCXX tae loc PEAK WRITE (mA) 93LCXX Typical loc PEAK WRITE (mA) 
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FIGURE C - PIC16C5X IoL AT 5V “ FIGURE D - PIC16C5X IOH AT 5V 
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The primary benefits of this application are: 


* The SEE is completely powered down to save power 
when the SEE is not executing an operation. This will 
directly effect the total system power consumption. 
This means that the SEE is in a total quiescent state 
and even the standby current savings is realized, 
greatly increasing usable battery life, and conse- 


quently allowing for a more sophisticated design on 


the same power budget. 


¢ The very fast 5 us power-up time minimizes power- 
up delay. 2 

¢ Since the serial operation is gated by a stable micro- 
controller VOH, risk of data being corrupted by aglitch 
is minimized. This, in effect, is a regulated Vcc 
supply and provides a reliable power source to 
ensure data integrity. 


Several cautions need to be noted: 


1. Gang powering multiple devices must not exceed the 
VO port IOH or capacitive load specifications. 

2. The total power requirements vs. power budget must 
be considered, including the extra drain on the micro- 
controller. 

3. The microcontroller lcc max must not be exceeded. 

4. Normal decoupling methods must be employed. 

5. The microcontroller lou for the port in use must not be 
exceeded. 

Figure F shows a typical power on to start bit sequence. 

Notice that the device is available to receive a clock at 5 

us after Vcc has become stable. 


Logic Powered Serial EEPROMs 





FIGURE F 


Start Bit 


Many applications, especially remote or handheld data 
acquisition applications, where power consumption is at 
a premium or battery life is critical can use the POWER 
PORT technique with the PIC16/17 microcontrollers 
and possibly other microcontrollers. Remote metering 
applications where the controller must wake up and 
report previously stored data or periodically sample 
inputs, such as gas, electrical, or water monitoring 
systems are good examples where POWER PORT 
would be beneficial. Underground monitoring equip- 
ment for fuel storage and environmental monitoring 
systems are also suitable applications. 


AUTHORS: Richard J. Fisher 
Memory Products Division 


Bruce Negley 
Memory Products Division 
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LISTING A 


LIST P=16C54 


Sample test program to power up serial EEPROM 
using PIC16/17 port A, then write one byte and read same byte, then repeat forever. 


78 "a “6s 6 7a “8s 


HHKKKKEKK KKK KKK KK KEKE KK KKK KK KK KKK KKK KK KKK KK KK KK KKK KK KKK KKK KK KKK KKK KKK KK KKK KKK KKKEKKKEKKKKKEK 


port_a equ 5h ; port 5 used for device 
; address select 

port_b equ 6h 7; port 6 used for data and 
; Clock lines 


bit buffer 

address register 

stored data input reg. 
stored data output reg. 
device address 


eeprom equ dah 
addr equ. Och 
datai equ Odh 
datao equ. OQeh 
Slave equ Ofh 


“6s ~se a 8 “se 78 8 


(1010xxx0) 

txbuf equ 10h tx buffer 
count equ 11h 7 bit counter 
beount equ 12h ; byte counter 
rxbuf equ. 13h ; receive buffer 
loops equ. 15h ; delay loop counter 
loops2 equ 16h ; delay loop counter 2 
; Bit Assignments 
ro 8 equ 7 7; eeprom input 
do equ 6 ; eeprom output 
sdata equ 7 ; data line (port_b) 
sclk equ 6 7 clock line (port_b) 
vec equ) 3 ; vec for dut (port_a) 

org O1lffh 
begin goto PWRUP 

org 000h 


goto PWRUP 


KKRKKKKKEKK KEKE KKK ERK KKK KKK KKK KKK KK KKK KKK IKK KKK EK KKK KKK KKK KEK KK KK KKK KKK KK KKK KKK KKKKEKE 
DELAY ROUTINE 
this routine takes the value in loops and loops that many times. Every 
increase in ‘loops’ yields approx 1 more millisecond. 
1.e., if ‘loops’ is 10 then the wait period is approx 10 milliseconds. 





~s “se 7a ef =e =e 7s 


top2 moviw .110 
movwf loops2 
top nop ; sit andwait 
nop 
nop 
nop 
nop 
nop 
decfsz loops2 
goto top 
decfsz loops 
goto top2 
retlw 0 


inner loop done? 

no, go again 

outer loop done? 

no, go again 

yes, return from sub 


-s -e ™“s -e ~s 


ve 





a IO TE EL aT a I EE EE DE a TE TE OD I a eR A RY Le EE TOE SE, 
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PRR KR ARK RRA KKK KKK KKK KK KK KK IKK KKK KK KKK KKK KKK KKK KKK KKK KK RK KKK KR KKK KK KKK KKK KKK KKK KKK ERK KKK KKK K 


; Start Bit Subroutine 
; this routine generates a start bit 


BSTART 


moviw 


tris 
bsf 
nop 
nop 
bsf 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
bef 
nop 
nop 
nop 
nop 
nop 
nop 
bef 
nop 
nop 
nop 
ret lw 


. 
, 


b’00111111' 
port _b ; port b for output 
port_b,sdata 7 set clock high 


port_b,sclk ; set clock high 


port_b,sdata ; data line goes low during high clock for start bit 


port _b,sclk 7 start clock train 


0 


; Endof Subroutine 
pRRKRKKRKKRKR RK KKK KK KK KK KKK KK KK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KK KKK KK KK KKK KKK KKK KKK KKK KK KKK KK KKK KKK 


; Stop Bit Subroutine 
: this routine generates a stop bit 


nop 
nop 
nop 
nop 
nop 
nop 
bsf 

nop 
nop 
nop 
nop 
nop 
nop 
bsf 


nop 
nop 
nop 
nop 
nop 
bef 
nop 
nop 
nop 
retlw 


b’00111111' 


port _b ; set data/clock lines as outputs 
port_b, sdata ; make sure data line is low 
port_b,sclk ; set clock high 

port_b, sdata ; data goes high while clock high 


; for stopbit 


port_b,sclk ; set clock low again 


0 


en 
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End of Subroutine 
KKKKKKKKKKKEKKK KEK KK KKK KEK KK KKK KK KKK KKKEKKEK KKK KKKK KK KKK KKEKKKKKKKKKKKKKKKKKKEKKEKER 


Serial data send 1 bit from PIC16/17 to dut 


“se =a “=e. ™e 


BITOUT 
movlw b’00111111' ; set data, clock as outputs 
tris port_b 
btfss eeprom, do 
goto BITO 
bsf port_b, sdata ; output bit 0 
goto CLK1 ; Gata line clocked low by device 
BITO 
bef port_b, sdata 7 output bit 0 
CLK1 
nop 
nop 
bsf port_b,sclk ; set clock line high 
BIT2 
nop 
nop 
nop 
nop 
bet port_b,sclk ; return clock line low 
retiw 0 


End of Subroutine 


KKKEKKK KKK KKK KKK KEKE KKK KKK KKK KK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KEKE KKK KKK KKK KKKEKEKKKEKKKEKK 
Bit in routine 
this routine gets a bit of data fromthe part 
intothe ‘eeprom’ register, bit ‘di’ 


eae aaa ee 


~e “es es “ss =e ~s =e 





BITIN 
moviw b’10111111' ; make sdata an input line 
tris port_b 
bef eeprom, di ; assume input bit low 
bsf port_b,sclk ; set clock line high 
nop ; Just sit here asec 
nop 
nop 
nop 
nop 
nop 
nop 
nop : 
btfsc port_b, sdata ; read data line 
bsf eeprom, di ; set input bit if needed 
bef port_b,sclk 7 set clock line low 
retlw 0 ; hit the road 


KEKKKK KKK KEK EK KEK KKK KE KK KKK KK KKK KKK KK KK KEKE KK KKK KK EK KKK KKK KKK KEKE KEK KKK KKEKKKKEKKEKKKKKKKEKK 


7a -e ~s “8 


Transmit Data Subroutine 





TX 
moviw 4.8 
movwf count ; set the #bits to 8 
TXLP 
bef eeprom, do 
btfsc txbuf,7 
bsf eeprom, do ; otherwise data bit =1 
call BITOUT + serial data out 
ne txbuf + rotate txbuf left 
decfsz count ; 8 bits done? 
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goto TXLP ; no-go again 


call BITIN ; readack bit 
; 
retlw 0 
; End of Subroutine 
J RRRRKRRKIKK RRR KK KK KKK KKK KKK KKK KK RK KKK KKK KKK KK ER KE RK KR KKK RK KKK KKK RK KKK KR KKK RR KKK KKK KKK KKK KK K 
: Receive data Routine 
eng this routine gets a byte of data fromthe part into ‘rxbuf’ 
Se i eth eT i a a ase eat Sak A ae a a he ie a ER an EP, ces La A EA at EO Ss ee hh, a a Stes et 
RX 
movilw 8 ; set #bits to 8 


movwf count 


clrf rxbuf ; Clear receive buffer 
RXLP xf rxbuf ; rotate buffer left 1 bit 

bef rxbuf, 0 ; assume bit is zero 

call BITIN ; readabit 

btfsc eeprom, di 7 input bit high? 

bsf rxbuf, 0 ; yes, set buffer bit high 

decfsz count ; 8bits done? 

goto RXLP 7 no, do another 

bef eeprom, do 7; set ack bit =0 

call BITOUT ; to finish transmission 

retlw 0 


. 
v 


PRK RR KKK KKK KK KKK KKK KKK KKK KK KER KKK KKK KK KK RK K KR RIK KR KKK KKK KKK KK KK KKK KK KK KKK KKK KK KKK KK KK KKK KKK 


; Power up routine 

; this routine blinks the lights 

PWRUP 
movlw b’0Q0000001' 
tris port a 7; set RAO as input, rest output 
bsf port_a,vcc ; turn on power to dut 
nop ; wait for dut to power up 
nop 
nop 
nop 
nop 


; 
PRR K KKK RK KK RK KR KKK KKK RK KKK RK RK KKK KKK KKK KKK KKK KK KK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KEK KKK KKK KKK 


; Byte Write Routine 

; this writes the data in “55h” to the first byte 
; in the serial EEPROM. 

WRBYTE 


moviw b’10100000' set slave address and write mode 
movwf slave 
moviw b’01010101' 


movwf datao 


‘Ne 


set data to 55h 


‘ee 


clrf addr 7; set address to 00h 
cal BSTART 7 generate start bit 
movt slave,w 7; get slave address 
movwf  txbuf ; intotransmit buffer 
call TX 7; and send it 

movt addr, w 7 get word address 
movwf  txbuf ; into transmit buffer 
call Ex 7; and send it 

move datao,w 7 Move data 

movwf  txbuf ; totranmit buffer 
call TX ; andtransmit it 

call BSTOP 7 generate stop bit 
movlw 10 


A LS a SC a SS A EES EE ERENT ET 
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movwft 
call 


PRK RK RK KR KKK KKK KKK KK KR KK IK KKK KK KK AK KK IK IK IK KK KKK KK KKK RK IK IK IKK IK KKK IK KOK KKK KK KK I KK IKK KR IK KC 


loops ; set delay time to give 
WAIT ; 10 ms wait after every byte 


. 
f 


; now drop through and do the read 


7 


; READ (read routine) 
7 this routine reads the first address 





- of the dut 
READ 
moviw b’101L00000' 
movwf slave 
chrf addr 
call BSTART 
nop 
nop 
movft slave,w 
movwf txbuf 
cll TX 
movt addr,w 
movwf txbuf 
call TX 
nop 
nop 
call BSTART 
nop 
nop 
movlw b’10100001' 
movwf  txbuf 
call TX 
nop 
call RX 
bsf eeprom, do 
call BITOUT 
call BSTOP 
nop 
nop 
nop 
nop 
nop 
bef port_a,vcc 
moviw . 100 
movwf loops 
ell WAIT 
goto PWRUP 
END 


~ 


~ 


. ~ “Ne “ee 


Ne 


‘ee 


“Ne ‘Ne “oe 


‘Ne 


Se 


Ne 


‘Ne 


“oe 


“ee 


set slave address and write mode 


; set address to 00h 


; generate start bit 


get slave address 
into transmit buffer 


; and send it 
; get word address 
; intotransmit buffer 


and send it 


generate start bit 


get slave address and read mode 
into transmit buffer 
and transmit it 


get 8 bits of data 


send high ack bit andthena 
stop bit to end transmission from dut 


turn power to dut off 


wait awhile 
go do the whole thing over again 
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NOTES: 
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BASIC SERIAL EEPROM OPERATION 


Looking for the optimum nonvolatile memory product for 
your system that requires a small footprint, byte level 
flexibility, low power, and is highly cost effective? Serial 
EEPROM technology is one of the nonvolatile memory 
technologies that has emerged as a leading embedded 
control solution . Unfortunately, most system designers 
are not aware of the Serial EEPROM benefits. Also, the 
supporting documentation in data books is most often 
not adequate due to incomplete or ambiguous informa- 
tion. As a result, the system designer often selects a 
nonvolatile solution that does not meet their require- 
ments or the designer must face a more complicated 
design-in with a Serial EEPROM. 


This article is to address two issues that exist today for 
designers considering Serial EEPROM products: 


First, to provide awareness of the application benefits. 


Second, to provide a primer on the operating principles 
and instructions. These items are often buried in data 
book text or not adequately addressed. Also included 
are common default conditions to significantly reduce 
the system designers learning curve. 


TABLE OF CONTENTS 


Serial EEPROM Applications 

Overview of the Primary Protocol Benefits 
3 Wire Bus Operation Primer 

2 Wire Bus Operation Primer 

Microchip 2 Wire Default Conditions 
Timing Diagram Attachments 


SERIAL EEPROM APPLICATIONS 
Serial EEPROMS are ideal nonvolatile cost effective 
memory solutions in applications that require: 


Small footprint and board space as in cellular phone 
applications; 


BYTE level ERASE , WRITE, and READ of data as in 
a TV tuner; 


Low voltage and current for hand held battery applica- 
tions as in a keyless entry transmitter; 


Multiple nonvolatile functions in the same application 
such as a VCR; 


Low availability of microcontroller 1/O lines. 


The common applications for Serial EEPROMS are 
shown below: 


Market Common Applications 

Consumer TV tuners, VCRs, CD players, cam- 
eras, radios, and remote controls 

Automotive Airbags, anti-lock brakes, odom- 


eters, radios, and keyless entry 


Office Automation Printers,copiers, PC’s, and portable 
PC’s 

Telecom Cellular, cordless and full feature 
phones, Faxes, modems, pagers, 
and satellite receivers 


Industrial Bar code readers, point of sale ter- 
minals, smart cards, lock boxes, 
garage door openers, and test 
measurement equipment. 


The typical functions that Serial EEPROMs are utilized 
for are: 


Memory storage of channel selectors or analog con- 
trols (volume, tone, etc,) in consumer electronics 
products. 


Power down storage and retrieval of events such as 
fault detection or error diagnostics in automotive prod- 
ucts. 


Electronic real time event or maintenance logs such 
as page counting in office automation products. Also, 
configuration or dip. switch storage in office automa- 
tion products. 


e 


Last number redial storage and speed dial number 
storage in telecom products. 


User in-circuit reprogrammable look up tables such as 
bar code readers, point of sale terminals, environmen- 
tal controls and other industrial products. 


Other application examples include: 


Data storage from a learn function as in a remote 
control transmitter. 


° 


ID number storage for security or remote access for 
electronic keys and entry databases. | 


Reprogrammable calibration data for test equipment 
or analog interface products. 
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As a result of density and architectural evolution, Serial 
EEPROMs offer significant benefits in some applica- 
tions that previously could only utilize Parallel EEPROM 
products. The diagram below illustrates the footprint and 
board space differences. 


16K Serial vs 16K Parallel Benefits 


Ea 16K Parallel EE 
16K Serial EE 


ort NON WO FP ODN @ 


VO's Req Ipp (ma) Board Space (sq. in.) uCont & NVM Cost ($) 





The Serial EEPROM requires only 10% of the board OVERVIEW OF THE PRIMARY 

space that a Parallel EEPROM requires. Also, the Serial | 

EEPROM requires fewer 1/O lines from the microcon- PROTOCOL BENEFITS 

troller which significaniiy reduces ihe overail system After a designer decides to use a Serial EEPROM 
cost and board space. : solution, the next step is to select one of the the two 
A very fast READ speed is the only significant limitation primary Serial EEPROM protocols. Unfortunately, most 
of a Serial EEPROM for a decision between a Serial and system designers select the type of Serial EEPROM (2 
a Parallel EEPROM. Itis very interesting to note that the or 3-wire) that they are most familiar with, regardless of 
Serial EEPROM READ speed is restricted more by the the benefits associated with each type. 


protocol than the process technology. The 2-wire |?C 
(Inter-Integrated Circuit) products must add large inter- 
nal delays to slow down the part to meet the 100 kHz 
protocol requirements, which will be reviewed later. 
Characterization of 3-wire bus Serial EEPROMs have 
indicated clock frequencies in excess of 6 MHz. 


DS00536B-page 2 © 1993 Microchip Technology Inc. 
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The benefits of each protocol are shown below: 


3 Wire Bus Serial EEPROMS 
Single VDD supply of<2V to 5.5V 
Very low current consumption 


Reduced overall component cost _ 


Four pins (other than Vcc & GND) are required 
or operation 


X16 bit and X8 bit data widths 
Software WRITE Protection 
Edge triggered clocks and signals 


2Mhz+ operation 


Ready/Busy data polling 
Security options available 
Less complex protocol 


A 2 wire productis utilized in applications that require an 
I?C bus, noise immunity, limited microcontroller I/O pin 
availability, or a WRITE buffer for multiple bytes to be 
stored with one instruction. A 3 wire product is utilized in 
applications that have limited protocol requirements, an 
SPI protocol, higher clock frequency requirements, or a 
x16 data width applications. 


The next two sections describe the basic operation and 
Microchip’s default conditions for the 3-wire and 2-wire 
Serial EEPROMs to allow the system designer to utilize 
the benefits of Serial EEPROMs. 


conventional memory data sheet format which empha- 
sizes the features of the part more than the basic op- 
erating principles. The operating principles are unfortu- 
nately either vaguely embedded in the data sheet text or 
not included. Serial EEPROMs are not conventional 
memories due to the Serial communication protocols 
involved. This section is a PRIMER for the data sheet to 
familiarize the system designer with the basic prin- 
ciples of the 3 wire bus operation. 


Basic Principles 
Common device nomenclature is 93XXXX. 
The 93XX06 is a 256 bit product. 
The 93XX46 is a 1k bit product. 
The 93XX56 is a 2k bit product. 
The 93XX66 is a 4k bit product. 


2 Wire Bus Serial EEPROMS 
Single VDD supply of <2V to 5.5V 
Very low current consumption 
Reduced overall component cost 


Two pins (other than Vcc & GND) are required for operation 


X8 data bit width 
Hardware WRITE Protection 


Level triggered clocks and signals and input glitch filters for 
high noise immunity 


l?C standard 100 KHz and 400 KHz protocols with a 1 MHz 
option 


Page WRITE capability to 16 bytes 
Software and hardware compatible from 2k to 16K densities 


Four pins are required: 
CS (Chip Select) DI (data in) 
CLK (Clock) DO (data out) 


All 983XXXX parts are hardware compatible for these 
four pins. However, there may be compatibility issues for 
the other pins. 


SOFTWARE compatibility is a key issue since there may 
be subtle differences in each manufacturers protocol. 
These subtle differences referred to as default condi- 
tions are addressed later in the attached 3 Wire Timing 
Diagram examples for Microchip’s products. Software 
compatibility for density migration should also be re- 
viewed by the designer on a case by case basis. There 
is no software industry compatibility for a 256 bit part to 
a 4k part. 


Data is available in x8 or x16 organizations. This selec- 
tion is determined either by the ORG pin or by purchasing 
a standard x16 organization. 


Units will power-up ina EWDS (ERASE/WRITE Disable 
State). All ERASE and WRITE functions are disabled 
until the EWEN (ERASE/WRITE Enable) instruction is 
performed. This is to prevent accidental data corruption. 


An Auto-ERASE (logical “1”) cycle is performed during 
each WRITE Cycle. 


The 7 instructions are shown in the attached instruction 
set table. These instructions are for Microchip’s 
93LCXX family products. 


After an instruction is loaded, the CLK and DI pins are in 
a DON’T CARE state until the next START bit. 
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The following is required for each instruction set (all 
input bits are triggered by the positive clock edges): 


Start Bit The first Data-in high signal clocked in 


_after CS is high. 


Opcode Two Bits to identify the instruction 

Address Refer to the Instruction Set table for the 
number of bits required. 

Data Separate data-in and data-out pins. How- 


ever, these two pins may be tied together 
for true 3-wire operation. Please refer to 
the attached 3-wire Bus READ timing 
diagram example. . 


READ. WRITE, and ERASE 


The attached 93LC66 timing diagrams illustrate the key 
concepts and timing parameters for each of these op- 
erations. Please refer to the instruction set tables and 
the AC parameters in the databook for supplemental 
information. 





ERASE ALL (ERAL) . 


An ERASE ALL (ERAL) operation is identified by a “00” 
opcode. The ERAL instruction requires the next two bits 
to be clocked in as “10” in the address block of the 
instruction set. All bits in the array will be set to a logic “1” 
state by one command in typically less than 10ms. 


WRITE ALL (WRAL 


A WRITE ALL (WRAL) operation is also identified by a 
“00” opcode. The WRAL requires the next two bits to be 
clocked in as “O01” in the address block of the instruction 
set. The data-in block will contain the data for a SINGLE 
BYTE which is to be repeated throughout the entire 
array. For example, if a 4F5A is loaded in the 16 data-in 
bits of the instruction set, a4F5A will be written into every 
word in the array. 


EWEN and EWDS 


As stated before, all units will power up in to an ERASE/ 
WRITE DISABLE (EWDS) state to prevent data corrup- 
tion. All future ERASE/WRITE operations must execute 
an ERASE/WRITE ENABLE (EWEN) op-code until the 
next power down is detected or until other EWDS 
opcodes are executed. Please refer to the instruction set 
table. 


a INN te TSE IEE TUT 
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INSTRUCTION SET FOR 93LC46: ORG = 1 (x 16 organization) 
Address 


|_Datain_| Data Out_| Req. CLK Cycles _ 
ee or ae ee 
[eee | ee ee eel 
a ee a ABD VIRSYN LS ee 
ae ee 
RDY/BSY 
Peon 100 KK 8) | NG | 





Data Out | Req. CLK Cycles 







| 10 | XABASAsAZA2A1AO | — | Di5-po | 27 

| oo | tt XXXXXX | — | HighZ | | 

| ti | XAGASA4AZAZATAO | — | (RDY/BSY) | 11 

| 00 =| 10xXXxXxX XX | — | (RDYBSY) | tt 
11 







| 00 
| oo | OOXXXXXX | — | Highz | tt 





_Opcode |___Address__—|_Datain | Data Out | Req. CLK Cycles | 
| 10 | XA7ABASASZAZAZATAO] = — | D7-Do_ | 20 
p00) = 1 XX KX ee igh 
| 11 | XAZABASASAZAZATAO! = — | (RDY/BSY) | 12 
eo 00 a 20K Xe | (AD VIBSY) | AZ 

se 


O 0X XX XK XK X XK High-Z 













_Instruction | SB_ | Opcode | Address_ | Data in 
| READ | tf | to S| Ava | tO | 
EWEN | ot | 001 XXXXXX, | High-Z_ tt 
PNEASE ia =) oo 1 A ADs ae a RDYIBSY) es 
| ERAL | 4 | 00 | 10XXXXXX_ | | (RDY/BSY) | 


| 00 ~——|_—«O1XXXXXX D15 - DO RDY/BSY 


EWDS | i | 00 | OOXXXXXX 


_Instruction | SB_ | Opcode_| _Address__ [| _Datain__ | DataOut__|_ Reg. CLK Cycles 
READ AB-AOQ_ | = =— | b7-po | 20 













| EWEN | 4 | 001 1XXXXXXX_ |  — | High | tT 
| ERASE | 1 | 47 | AB-AD OCCU SCtSTCP(RDBSY) | 12 
| ERAL | 4 | 00S 10XXXXXXX_ | — | (RDY/BSY) | 12” 
| WRAL | 4 | 00st «01 XXXXXXX_| D7-DO_ | (RDY/BSY 
 EWOSs =A 00. | ee en 
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2 WIRE BUS OPERATION PRIMER 


As indicated in the 3 wire bus section, many Serial 
EEPROM data sheets are written in a conventional 
memory data sheet format which emphasizes the fea- 
tures of the part more than the basic operating principles. 
The operating principles are unfortunately either vaguely 
embedded in the data sheet text or not included. This 
section is a PRIMER for the data sheet to familiarize the 
system designer with the basic 2 wire Serial EEPROM 
operation principles. 


Basic Principles 


The common device nomenclature is 24XXXX and 
85XXXX. . 


Only the SCL and SDA pins are essential for bus 
operation. The other pins are supplementary: 


SCL (Serial clock) 

SDA (Serial Data) 

WP (Active High WRITE Protection) 

A0,A1,and A2 (Chip or block select) 
SDA’s open-drain requires a pull-up resistor to VDD. 
The data is organized as X8. 


Signals are level triggered, not edge triggered. Also, 
there are filters on the inputs that will filter noise glitches 
<100ns wide. 


An Auto-ERASE ( logical “1”) cycle is performed during 
each WRITE cycle. 


The |I?C protocol utilizes master / slave bi-directional 
communication. A device that sends data onto the bus 
is defined as the transmitter, and a device that is receiv- 
ing data is the receiver. Both the master and the slave 
can operate as the transmitter or receiver. The bus must 
be controlled by a master device (most often a 
microconirolier), which generates the serial clock (SCL), 
controls the bus direction, and generates the START 
and the STOP conditions. 


The Serial EEPROM is the slave. The Serial EEPROM 
will be the bus transmitter during READ operations and 
when the Serial EEPROM must acknowledge data 
transmitted by the master. 


START and STOP bits control the bus activity. Opera- 
tions must begin with a START bit and end with a STOP 
bit. 

A START bit is when SDA transitions LOW while SCL is 
HIGH while observing the START set-up and hold time 
specifications. 


A STOP bit is when SDA transitions HIGH while SCL is 
HIGH while observing the STOP set-up and hold time 
specifications. 


Data is recognized as valid while SCL is high. The data 
on SDA must observe data in set-up and hold specifica- 
tions before and after SCL is pulsed: There is only one 
bit of data for each SCL pulse. 


Control Byte Requirements 


After a START bit, each command begins with an 8 bit 
control byte sent by the master. This control byte has the 
following three primary functions before the data and/or 
word address information is loaded for all commands: 


Identify the Serial EEPROM as the slave addressed on 
the bus. 


To select the specific Serial EEPROM or the internal 
memory block on the bus. There may be up to 8 Serial 
EEPROMs on the bus) 


Select the READ or WRITE function for the next com- 
mand transmitted by the master. 


The diagram of a control byte (not including the START 
bit) is shown below: 


1 0 1 0 A2 A1 AQ X 
I?¢ Slave Address Chip or Block Select Read or Write bit 


Control Bits 1-4 are the Slave Address Bits 
(Must be 1010 for Memory) 


Since there is not a chip select pin, the part is selected 
by a four bit code in the control byte to identify the type 
of product. The four bit code was established by Philips 
for the I?C protocol. A 1010 code identifies the slave 
device as a Serial EEPROM. The Serial EEPROM will 
remain in stand-by until the 1010 code is transmitted on 
the bus. Other non Serial EEPROM slave devices will 
not respond to the 1010 code on the bus. | 


Control Bits 5-7 are the 1 of 8 Chip or Block 
Address Seieci Biis 


The next three control bits are utilized for the chip 
selection or internal block selection. The standard |?C 
protocol was developed to allow up to 16k bits of 
memory to be selected. This could be accomplished by 
accessing a combination of devices or blocks within a 
device, as shown in the table on the following page: 


5S a SP A Se EPC SET SS ES NE 
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K bits internal 
Densit Blocks 
aa ee eee eee 


Bus Access Devices 


24LC01B, 24C01,85C72 
24LC02B, 24C02,85C82 


24LC04B, 24C04,85C92 
eee 
16 


Up to 8 devices 


8 X 


X X 


Up to 8 devices 
Up to 4 devices 
24LC08B 
24LC16B 


Up to 2 devices 
Only 1 device 





X= NOT USED. This pin must be tied to Vss or VDD. It is not recommended to FLOAT these pins since there may be test 
modes accessed to these pins via a high voltage signal. 


These three bits for this select must match the hardware 
conditions (IF ANY ARE USED) of the external AO, A1, 
and A2 pins or the internal block selects. 


With this selection scheme, devices from 2k to 16k are 
software compatible. For example, four 2k devices or 
one 8k device could be connected to the bus with the 
same software. 


The AO, A1, and A2 signals are the same for the 1k and 
2k products. The A7 bit for the 1k product is a DON’T 
CARE. | | 


The AO, A1, and A2 pins are not commonly used today 
in the industry with the advent of the density evolution up 
to the |?C protocol limit of 16K bits. 


Control Bit 8 Operation Code 


If this bit is a “1” then the operation will be a READ 
If this bit is a “O” then the operation will be a WRITE 


After the control byte acknowledge bit is generated by 
the Serial EEPROM, the master will send the appropri- 
ate word address and data information. 


Acknowledge Requirements 


The Serial EEPROM must generate an acknowledge bit 
after receiving each byte segment in a command. The 
Serial EEPROM will generate the acknowledge bit au- 
tomatically after the master has transmitted all of the 
data for the segment. 


To acknowledge the master, the Serial EEPROM must 
pull the SDA line LOW during the entire HIGH period of 
the next clock generated by the master. During the 
READ operations, the master must acknowledge each 
data byte or the Serial EEPROM will abort the READ 
operation and return to a stand-by mode waiting for the 
next START bit. 


The attached 24LC16 timing diagrams illustrate the 
READ and WRITE operations. 


MICROCHIP 2 WIRE DEFAULT | 
CONDITIONS 


As stated before, date sheets do not provide adequate 
information on basic operation. This lack of information 
forces each reader of the databook to make interpreta- 
tions of the operating conditions. These readers have 
included other semiconductor circuit designers, which 
unfortunately leads to subtle compatibility problems. 
The part is designed to operate to the default of the 
circuit designers interpretation. This next section details 
Microchip’s default conditions to help the system engi- 
neer to minimize “Trial and Error” prototyping and to 
increase the awareness of these default conditions. 


Also, to improve corporate wide compatibility, Microchip 
is standardizing their circuits on various product versions. 
Unless indicated otherwise, all references to default 
conditions are for the 24LC XX products, notthe 24CXXXX 
products. 


Power Up 


READ, WRITE, and ERASE operations are valid 5 uS 
after VDD has ramped to the specified operating range. 


PAGE WRITE by Product for Multiple BYTE 
WRITE Operation 


The 24C01 and 24C02 have a 2 byte buffer. 
The 24C04 has an 8 byte buffer. 


The 24LC01 and 24LC02 have an 8 byte page. 
The 24LC04,24LC08, and 24LC16 have a 16 byte page. 


The buffer will load bytes identically as the page loads 
bytes. The difference in the two modes is that the buffer 
will execute a WRITE of one byte per WRITE cycle in 
sequence. The page mode will execute all bytes loaded 
in one WRITE cycle in parallel. 
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There are pages within blocks. For a 16 byte page 
product, the most significant 4 bits of the word address 
point to the page address and the least significant 4 bits 
point to the byte address within a page. For an 8 byte 
page product, the most significant 5 bits of the word 
address point to the page address and the least signifi- 
cant 3 bits point to the byte address within a page. 


The number of bytes loaded in to the page is from one 
byte up to the page size. For example, three bytes can 
be loaded into the 16 byte page of the 24LC16. If during 
the loading of the fourth byte a STOP bit is received, the 
page will WRITE three bytes. The fourth byte will not be 
written since loading the fourth byte was not complete. 


NOTE: New versions released in March 1993 will 
default to ABORTING the entire operation if a 
STOP bit is received in the middle of a byte 
while loading a page. 


If more than 16 bytes are loaded in the page of a 16 byte 
page product, then the 17th byte will overide the data 
loaded into the original first byte (the page data will wrap 
around WITHIN apage). Therefore, the system designer 
must take precautions to not WRITE over a page bound- 
ary during a multiple byte WRITE operation. 


Bytes not changed in the page will NOT result in data 
corruption in the array. For example, If two bytes are 
loaded in to the 24LC16 page with the least significant 
word address bits of 0000 and then a STOP bit is 
transmitted. Bytes 1 and 2 in the array will have the data 
changed to the new page contents . Bytes 3 through 16 
WILL NOT change. 


The WRITE operation will not be executed untila STOP 
bit is transmitted. 


At this point, the Serial EEPROM is free from the bus 
since the actual WRITE function is self-timed. Therefore, 
the microcontroller interfacing to the Serial EEPROM 
may perform other functions not associated to commu- 
nication with the Serial EEPROM during the self-timed 
WRITE operations. 


Once the part is in the auto-ERASE mode, it will com- 
plete the ERASE/WRITE operation unless power is 
removed. STOP and START bits will be ignored. 


READ 


Once the Serial is ina RANDOM READ operation, it can 
be placed into the sequential READ operation. If the 
master issues an acknowledge bit instead of a STOP bit, 
the Serial will READ the next sequential 8 bits. The . 
Serial will wait for the next bit command from the master. 
The sequential READ will continue as long as the master 
issues an acknowledge bit on the next clock cycle after 
the last bit is READ. The READ will continue from block 
to block and will wrap around if the last bit in the array 
is addressed. Again , this will continue until the master 
issues a STOP bit instead of an acknowledge bit. 


While reading zeroes the master cannot pull SDA high 
to generate a STOP bit, since the Serial EEPROM SDA 
pin is outputting a low. To recover from a fault during a 
READ, repeat 9 clocks with data floating high. Therefore, 
the acknowledge bit will not occur and the part will reset 
and return to stand-by. 


A START bit during an operation will cease the current 
operation and begin the next operation. 


AUTHOR: Steve Drehobl 


Memory Products Division 
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3 WIRE BUS EXAMPLE 
MICROCHIP 93LC66 READ CYCLE TIMING DIAGRAM 


#1 #2 #3 #4 #5 #6 #7 #8 #9 #10 #14 #12 #13 #14 #15 #16 #17 #18 #19 #20 #21 #22 
CLK 


CS to clock rising edge set-up time (Tcss)= 50ns min 


Data SET-UP to clock rising edge time (Tdis) =100ns min CS must be low for the Tcs! 
minimum spec (typically 100ns) 
DONT CARE 
DI 1 1 0 
aS = 
: Data HOLD to clock rising edge time (Tdih) =100ns min 
START BIT TR! STATE 
i Data will be valid for the Tpd specification (typically 400ns), which is relative to each 
Dummy bit clocks rising edge 


NOTE: THIS EXAMPLE IS FOR X8 OPERATION OF MICROCHIP'S 93LC66. 





Data must conform to specified set-up and hold times (Tdis and Tdih) relative to the RISING clock edge. Each parameter is typically 100ns. 
A Read operation is identified by the "1 0" op-code following the start bit. 


Next, the address location bits are loaded. 


Then the address contents are clocked out on the rising clock pulse edge. Data will become valid on the DOUT pin per the specified Tpd time (typically 400ns) relative to the rising 
edge of the clock on the DOUT pin. Note, the first bit output will be a "dummy bit" with a logical zero state. This event is triggered by the clock rising edge of the last address bit for a 
duration of one clock pulse. 


If the data from the current address is complete and the clock pulses continue, the data from the next address will be READ automatically as long as CS remains high. This is the 
SEQUENTIAL READ FUNCTION. READ operations will continue while clock pulses continue or until CS is brought low. 


It is possible to tie the DOUT pin and the DI pin together to save on I/O requirements from the microcontroller. Caution must be exercised to avoid bus contention for an AO high 
condition, because of the dummy bit. It recommended that a resistor between the microcontroller port connected to the DI pin and DOUT pin be added for isolation. This example is 
shown below: 


To the microcontroller 


DI 


Serial EEPROM 
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3 WIRE BUS EXAMPLE 
MICROCHIP'S 93LC66 WRITE CYCLE TIMING DIAGRAM 


#1 #2 #3 #4 #5 #6 #7 #8 #9 #10 #11 #12 #13 #14 #15 #16 #17 #18 #19 #20 #21 #22 


CS to clock rising edge set-up time (Tcss)= 50ns min 


Su | 


CS must be low for the Tcs! 
minimum spec (typically 100ns) 


Data SET-UP to clock rising edge time (Tdis) =100ns min 


Q XK 


START BIT Data HOLD to clock rising edge time (Tdih) =100ns min 
sate AON cm as eatin —— eh ia 
NOTE: THIS EXAMPLE IS FOR THE X8 OPERATION OF MICROCHIP'S 93LC66. a 


INSTRUCTION LENGTHS MAY VARY WITH ARRAY SIZE AND DATA WIDTHS. 


uolei9dO INOYd]Aa Iees dIseg 


Data must conform to specific set-up and hold times (Tdis and T dih) relative to the clock edge. Each parameter is typically 100ns. 


A WRITE operation is identified by a the "0 1 " op code following the start bit 


Next, the address location bits are loaded on the DI pin. 


Then, the data bits to be written are loaded on the DI pin. 


CS must be brought low after the last DI bit is loaded. When CS is brought iow for the Tcsl period, a self timed WRITE is executed. If too many bits are loaded during ERASE and WRITE 
instructions prior to CS being brought low at the end of an instruction set, then the extra bits will be ignored. Only the first bits loaded will be executed. 


The DOUT pins only function during a WRITE is to indicate the status of the write with the READY/BUSY function. While DOUT is low, the Serial EEPROM is indicating that programming is not 
complete (the part is BUSY). When DOUT is high,the Serial EEPROM is indicating that programming is complete and it is READY for another instruction. Note CS must be brought high after 
completing the Tcs! time is complete to initiate the READY/ BUSY function. Microchip's 93LCXX products can be 

polled multiple times for the same cycle. 


Up through clock pulse 20, data for the instruction is being LOADED. When the CS goes low, the instruction is being EXECUTED. If there are not enough bits loaded during ERASE and 
WRITE instructions prior to CS being brought low, then the operation WILL NOT BE EXECUTED and the Serial EEPROM will return to stand-by. 
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3 WIRE BUS EXAMPLE 
MICROCHIP 93LC66 ERASE CYCLE TIMING DIAGRAM 


#1 #2 #3 #4 #5 #6 #7 #8 #9 #10 #11 #12 #13 #14 #15 #16 #17 #18 #19 #20 


CLK 


CS to clock rising edge set-up time (Tcss)= 50ns min 


CS | | | 
Data SET-UP to clock rising edge time (Tdis) =100ns min 


CS must be low for the Tcsl minimum spec (typically 100ns) 


Foo fT ee ee 


Data HOLD to clock risingedge time (Tdih) =100ns min > 
EADY 
START BIT TRI STATE 


DOUT | TRI STATE | | 
NOTE: This example is for X8 operation of the Microchip's 93LC66. Instruction Sar 
lengths may vary with array size and data widths. 


Data must conform to specified set-up and hold times (Tdis and Tdih) relative to the clock edge. Each parameter is typically 100ns. 
AN ERASE operation is identified by a "11 " two bit code that follows the start bit 
Next, the address location bits are loaded on the DI pin. 


THERE ARE NO DATA BITS TO LOAD. THE ADDRESS LOCATION LOADED WILL BE SET TO AN ERASE STATE OF "1". 


CS must be brought low after the last DI bit is loaded. When CS is brought low for the Tcsl period, a self timed ERASE is executed. If too many bits are loaded during the 


ERASE and WRITE instructions prior to CS being brought low at the end of an instruction set, then the extra bits will be ignored. Only the first bits loaded will be executed. 


The DOUT pin's only function during a ERASE is to indicate the status of the write with the READY/BUSY function. While DOUT islow, the Serial EEPROM is indicating 
that programming is not complete (the part is BUSY). When Do is high, the Serial EEPROM is indicating that programming is complete and it is READY for another 
instruction. Note CS must be brought high after completing the Tcs!l time is complete to initiate the READY/ BUSY function. 


Up through clock pulse 12, the address for the instruction is being LOADED. When CS goes low, the instruction is being 
EXECUTED.If there are not enough bits loaded during the ERASE and WRITE instructions prior to CS being brought low, then 
the operation WILL NOT BE EXECUTED and the serial EEPROM will return to stand-by. 
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2 WIRE BUS EXAMPLE 


MICROCHIP 24LC16 BYTE WRITE CYCLE TIMING DIAGRAM 


i 1 0 1 0 6A10 AD AB 0 ACK OAT Asi SK CCCs ACK 
SLAVE BLOCK T WORD ADDRESS 
ADDRESS SELECT 
START BIT WRITE 


NOTE THE SDA POSITION OF THE START AND STOP BITS. THE SDA TRANSITION IS DURING A HIGH SCL PULSE 


ALL OTHER BITS TRANSMITTED MUST COMPLY WITH THE 100KHZ CLOCK IIC PROTOCOL DATA SET -UP TIME OF 
250NS (TSU: DAT) FOR DATA TO BE ESTABLISHED PRIOR TO THE RISING CLOCK EDGE AND THE HOLD TIME OF 
ONS (THD:DAT) FOR THE FALLING CLOCK EDGE. 


THE STOP BIT ON CLOCK PULSE #29 WILL INITIATE A SELF TIMED waite. THE SERIAL EEPROM 


CAN NOT EXECUTE ADDITIONAL INSTRUCTIONS UNTIL THE 
CYCLE IS COMPLETE. 


TO EXECUTE A PAGE WRITE, CONTINUE TO LOAD 8 BITS OF DATA AT CYCLE 29 INSTEAD OF ISSUING A STOP 
BIT (FROM THE MASTER). REMEMBER , A CLOCK PULSE MUST BE ALLOCATED AFTER EACH SUBSEQUENT 8 
BITS FOR THE SERIAL EEPROM TO ISSUE AN ACKNOWLEDGE SIGNAL (LOW). AFTER THE DESIRED NUMBER OF 
BYTES HAVE BEEN LOADED, UPTO THEIR PAGE SIZE, THE MASTER MUST ISSUE A STOP BIT TO EXECUTE THE 


INSTRUCTION. 


DS D4 D3 D2 D1 DO ACK 
STOP: 

DATA TO BE WRITTEN EXECUTE THE 
INSTRUCTION 


PLEASE REFER TO THE NOTES BELOW 


THE SEQUENCE OF EACH WRITE COMMAND AND THE MASTER/SERIAL 
DIRECTION OF THE COMMUNICATION IS SHOWN BELOW : 


BYTE WRITE 


START BIT FROM THE MASTER 

CONTROL BYTE FROM THE MASTER 
CONTROL BYTE FROM THE MASTER 

ACKNOWLEDGE BIT FROM THE SERIAL 
ACKNOWLEDGE BIT FROM THE SERIAL 

WORD ADDRESS FROM THE MASTER 

ACKNOWLEDGE BIT FROM THE SERIAL 


ACKNOWLEDGE BIT FROM THE SERIAL 
DATA BYTE FROM THE MASTER 


WORD ADDRESS FROM THE MASTER 


DATA BYTE FROM THE MASTER 
ACKNOWLEDGE BIT FROM THE SERIAL 


ACKNOWLEDGE BIT FROM THE SERIAL DATA BYTE FROM THE MASTER 
ACKNOWLEDGE BIT FROM THE SERIAL 

DATA BYTE FROM THE MASTER 
ACKNOWLEDGE BiT FROM THE SERIAL 


DATA BYTE FROM THE MASTER 


STOP BIT FROM THE MASTER 


ACKNOWLEDGE BIT FROM THE SERIAL 
STOP BIT FROM THE MASTER 
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2 WIRE BUS EXAMPLE 


MICROCHIP 24LC16 READ CYCLE TIMING DIAGRAM 


SCL wi] lez] jest fea} fas] des] fez] [ws] iwol fed fend lata lard ferd laid letd lerd letra eid leod lead [aod leod ieee 


#25 #26 #2 #28 #29 #30 #31 #34 #3. #34 #39 #34 


SDA BPR RRP PC Ree CeCe e ce Ca MEME eerer es 


STA 
RT BIT WRITE 


NOTE : THE FIRST 19 CLOCK PULSES OF THE WRITE COMMAND ARE IDENTICAL TO THE FIRST 19 CLOCK PULSES IN THE READ 
COMMAND. EVEN THE 9TH CLOCK PULSE iS A WRITE BIT "0" TO TRANSMIT TO THE SERIAL EEPROM THE DESIRED WORD ADDRESS. 


THE READ COMMAND HAS TWO START BITS. THIS IS FOR THE RANDOM READ COMMAND. 


AS SHOWN ON THE PREVIOUS PAGES, IF A READ IS DESIRED FROM A CURRENT ADDRESS THEN THE FIRST 19 CLOCK 
PULSES ARE NOT REQUIRED. THEREFORE, THE FIRST START BIT IS AT CLOCK PULSE #20. THIS IS ONLY FOR THE 
CURRENT ADDRESS READ COMMAND 


ANOTHER USEFUL READ COMMAND IS THE SEQUENTIAL READ COMMAND. THE SEQUENTIAL READ COMMAND IS THE SAME 
AS THE RANDOM READ COMMAND; HOWEVER, THE MASTER MUST ISSUE AN ACKNOWLEDGE BIT INSTEAD OF THE STOP BIT 
AS SHOWN FOR CLOCK PULSE #38. THIS SIGNALS THE SERIAL TO READ THE DATA FROM THE NEXT SEQUENTIAL ADDRESS. 
THE MASTER MUST CONTINUE TO ACKNOWLEDGE EACH BYTE RECEIVED UNTIL THE MASTER ISSUES A STOP BIT. 


NOTE THE SDA POSITION OF THE START AND STOP BITS. THE SDA TRANSITION IS DURING A HIGH SCL PULSE 


ALL OTHER BITS TRANSMITTED MUST COMPLY WITH THE 100KHZ CLOCK IIC PROTOCOL DATA SET -UP TIME OF 250NS (TSU: DAT) FOR 


DATA TO BE ESTABLISHED PRIOR TO THE RISING CLOCK EDGE AND THE HOLD TIME OF ONS (THD:DAT) FOR THE FALLING CLOCK EDGE. 





DATA FROM THE SERIAL 


7 1 0 1 0 AiO Ag A8 0 ACK A7 AG AS A4 A3 A2 Al AO a 1 0 1 0 AIO Ag A8 1 ACK D7 D6 a5 D4 D3 D2 D1 Do 
SLAVE ADDRESS BLOCK SELECT £i WORD ADDRESS START BIT SLAVE ADDRESS BLOCK SELECT i, 


READ 


READ (FROM A RANDOM ADDRESS) READ (FROM THE CURRENT ADDRESS 


START BIT FROM THE MASTER START BIT FROM THE MASTER 


CONTROL BYTE FROM THE MASTER (R/ W = 0) 


ACKNOWLEDGE BIT FROM THE SERIAL ACKNOWLEDGE BIT FROM THE SERIAL 


WORD ADDRESS FROM THE MASTER DATA FROM THE SERIAL 


ACKNOWLEDGE BIT FROM THE SERIAL STOP BIT FROM THE MASTER 
START BIT FROM THE MASTER 

CONTROL BYTE FROM THE MASTER (R/ W = 1) 

ACKNOWLEDGE BIT FROM THE SERIAL 

DATA FROM THE SERIAL 


STOP BIT FROM THE MASTER 


READ (Sequential READ of 3 bytes} 


START BIT FROM THE MASTER 

CONTROL BYTE FROM THE MASTER (R/ W = Q) 
ACKNOWLEDGE BIT FROM THE SERIAL 

WORD ADDRESS FROM THE MASTER 
ACKNOWLEDGE BIT FROM THE SERIAL 

START BIT FROM THE MASTER 

CONTROL BYTE FROM THE MASTER (R/ W = 1) 
ACKNOWLEDGE BIT FROM THE SERIAL 

DATA FROM THE SERIAL 

ACKNOWLEDGE BIT FROM THE MASTER 

DATA FROM THE SERIAL 

ACKNOWLEDGE BIT FROM THE MASTER 

DATA FROM THE SERIAL 


STOP BIT FROM THE MASTER 


SONTROL BYTE FROM THE MASTER ( R/ W = 1) 
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Basic Serial EEPROM Operation 


NOTES: 
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Everything a System Engineer Needs to Know About Serial EEPROM Endurance 





The term “endurance” has become a confusing param- 
eter for both users and manufacturers of EEPROM 
products. This is largely because many semiconductor 
vendors treat this important application-dependent reli- 
ability parameter as a vague specmanship topic. As a 
result, the system engineer often designs without proper 
reliability information or underutilizes the EEPROM as 
an effective solution. 


Endurance (the number of times an EEPROM cellcan be 
erased and rewritten without corrupting data) is a mea- 
sure of the device’s reliability, not its parametric perfor- 
mance. As such, endurance is not achieved by some- 
how making EEPROM devices more durable or robust to 
extend the life of the intrinsic erase/write cycle, but rather 
by reducing their defect-density failure rates. This has a 
direct impact on the design engineer characterizing 
EEPROM memory needs for an application and evaluat- 
ing components from various manufacturers. The sys- 
tem design engineer needs to understand not only the 
relationship between the application, expected use and 
failure mechanisms, but also how the manufacturer has 
arrived at published endurance data for its components. 


This tutorial volume is intended to clarify some of the 
issues in the industry and provide a tool for the system 
design engineer, the system reliability engineer, and the 
component engineer to determine EEPROM reliability 
and understanding how to apply it to actual application 
requirements. It will examine four main areas: 


¢ CMOS floating gate memory cell operation and 
characteristics 


¢ Significant process and design interactions and en- 
durance characterization variables 


¢ Common mis-interpretations of endurance 


¢ Determining some real world application reliability 
requirements — 


EEPROM MEMORY CELL 
OPERATION AND 
CHARACTERISTICS 


In discussing endurance characteristics of EEPROMs, 
it's important to review how these components operate, 
and why and how they fail. Figure 1 illustrates a CMOS 
floating gate EEPROM cell, including voltage conditions 
for READ, ERASE, and WRITE operations. To erase or 
write, the row select transistor must have the relatively 
high potential of 20V. This voltage is internally gener- 
ated on chip by a charge pump, with the only external 
voltage required being Vdd. The only difference be- 
tween an ERASE ana a WRITE is the direction of the 
applied field potential relative to the polysilicon floating 
gate. 


When 20V is applied to the polysilicon memory cell gate 
and OV is applied to the bit line drain (column), electrons 
tunnel from the substrate through the 90-angstrom Tun- 
nel Dielectric (TD) oxide to the polysilicon floating gate 
until the polysilicon floating gate is saturated with charge. 
The cell is now at an ERASE state of “1”. When OV is 
applied to the polysilicon memory cell gate and 20V is 
applied to the bit line drain (column), electrons tunnel 
from the polysilicon floating gate through the TD oxide to 
the substrate. The cell then is at a WRITE state of “O”. 
This sequence of the transfer of charge onto the floating 
gate (ERASE) and the electrical removal of that charge 
from the floating gate (WRITE) is one ERASE/ WRITE 
cycle, or “E/W cycle.” 


The field (applied voltage to an oxide thickness) across 
the tunneling path created by the 20V potential is ex- 
tremely high in order to transfer the electrons. Over the 
cell’s “application time,” as measured by E/W cycles, the 
EEPROM cell begins to wear out due to the field stress. 
The EEPROM cell wears out as the number of cycles 
increase resulting in the voltage margin between the 
ERASE and WRITE states decreasing until finally there 
is not enough margin for the EEPROM sense amp to 
detect a difference in the two states during a READ. 
Failure is defined as when the sense amp can no longer 
reliably differentiate logic state changes. 


Figure 2 (single cell EEPROM endurance characteris- 
tics) illustrates that the intrinsic wear out point for a 
normal cell with specified dimensions and electrical 
characteristics is very acceptable, in excess of 2 million 
E/W cycles. Failures at lower cycles are due mostly to 
very small defects or imperfections in the oxide or 
silicon-to-oxide interface. 
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A key point to remember is that most failures occurring 
at less than 2 million E/W cycles are due to the number 
of defects per a given area (defect density dependent.) 
Thus high EEPROM endurance reliability is achieved by 
reducing the defect density failure rates, notby increasing 
the number of intrinsic cycles in the cell’s operational 
design. | 


FIGURE 1 - CMOS FLOATING GATE EEPROM CELL 


Memory Cell Gate 


Xs Poly-Silicon, Level 2 A 


Inter-Level Dielectric 


90 ANG Td Oxide 


Source 


Common Source 


Son Gi 
Memory 


Cell Gate 


| Read | Write | 


18.0 volts 

20.0 volts 

0.0 volts 
Float 


1.6 volts 
5.0 volts 
5.0 volts 
0.0 volts 


Bit Line | 
Row Select Gate - 
Memory Cell Gate 
Common Source 





Error correction circuits are design techniques com- 
monly used by EEPROM manufacturers. to increase 
endurance by reducing the failure rate caused by single 
bit failures. These circuits are transparent.to the user. 
One typical scheme is using 4 bits of error correction for 
every 8 “real” bits (one byte). In this scheme, one bit 
failure in the byte is correctable, while if two bits within 
the byte fail, the byte is not correctable. 


Another error correction scheme is to use one “parity” bit 
for every “cell.” Here both EEPROM cells must fail to 
result in a bit fail. 


Row Select Transistor 


XS | Poly-Silican, Level 2s 


- Bit Line 


—— 


Row 
Select 


0.0 volts 
0.0 volts 
0.0 voits 
0.0 volts 


Erase 


0.0 volts 
20.0 volts 
20.0 volts 

0.0 volts 
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FIGURE 2 - SINGLE EEPROM CELL ENDURANCE CHARACTERISTICS 


Failure will occur when either the ERASE or WRITE 
margin crosses the sense amp level 


Sense Amp Level 


Cell Margin 
(Volts) 








1,000,000 
Erase/Write Cycles 





The primary interaction is the amount of TIME at the 
HIGH VOLTAGES that is ultimately applied to the cell. A 
finite amount of time at finite voltages are required to 
achieve “optimal” ERASE and WRITE thresholds. If the 


PROCESS AND DESIGN VARIABLES 
AFFECTING ENDURANCE 


There are many subtle process and design variables 





that have a strong impact on endurance. These interact- 
ing variables will play very different roles depending on 
the different process technologies of various semicon- 


time is too short and the voltage is too low, the EEPROM 
will not program to the proper threshold. Also, if the 
programming ramp time is too fast and the voltage is too 
high, the EEPROM’s endurance will be reduced. Un- 


ductor manufacturers. 
fortunately, there is most often a trade-off between fast 


reliable programming performance or high endurance 
reliability. Some of the significant process and design 
variables are shown below and their impact on pro- 
gramming performance and endurance performance. 


PARAMETER | PROGRAMMING 
Internal High Voltages HIGHER = Faster Programming 
Internal High Voltage Ramp Rate | FASTER = Faster Programming 


LONGER = Improved Voltage 
Margin on the Cell 


TD Oxide thickness | THICKER = Slower Programming 


Temperature LOWER = Faster Programming 





















ENDURANCE 
LOWER 
SLOWER = Increased Endurance 


SHORTER = Less Oxide Stress for 
Increased Reliability 











= Increased Endurance 













Programming Time 









THINNER 
LOWER 


= Reduced Endurance 








= Increased Endurance 
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COMMON MISINTERPRETATIONS 


In examining industry EEPROM literature on the topic of 
endurance, it’s easy to misunderstand or misinterpret 
endurance concepts due to incomplete databook state- 
ments. The following are clarifications to some of the 
common misinterpretations: 


Endurance and Read Cycles 


READ operations are unlimited since they impose virtu- 
ally no stress on the cell. Endurance data apply only to 
E/W cycles. 


Erase/Write Ratings 


E/W ratings are based on each byte in the application, 
not on the number of op codes or control byte commands 
utilized. For example, if a part is rated to 100K E/W 
cycles, then each individual byte can be erased and 
written 100K times. The partis NOT limited to only a total 
of 100K E/W op-codes or control bytes. This is probably 
the most common misinterpretation made by system 
designers. Endurance is thus an interactive application- 
specific reliability parameter. It is not a typical data sheet 
specification, such as a parametric AC/DC specification 
with benchmark standards for measurement. 


Cycles/Da 


In many cases, a serial EEPROM is used for widely 
varying functions in an application. These functions 
have different E/W usage requirements (cycles/day), 
resulting in different endurance requirements and, 
usually, different reliability results for each function. 


For example, assume a given end-product application 
will have a 10-year life. For each function within that 
application, an assumption must be made for the ex- 
pected E/W cycles per day for a given segment of bytes. 
If a function has a segment of bytes cycled 1 time per 
day, then this segment of bytes will have 3,650 cycles in 
its lifetime (865 days per year for 10 years at 1 cycle per 
day and 7 days per week operation). Any given segment 
of bytes would have to cycle 274 times per day everyday 
to reach 1,000,000 E/W cycles in its 10-year application 
lifetime. Such a frequency is, of course, very rare in 
actual applications. 


For reference purposes, Figure 3 indicates typical cycles 
per day for some common applications. Although many 
manufacturers routinely discuss very high numbers of E/ 
W cycles, the amount of applications actually utilizing 1 
million cycles is very small. | 


A further and very important incorrect assumption often 
made is that ALL bits in an application need the same 
number of cycles and endurance ratings. In most 
applications, however, functions that require a high 


FIGURE 3 - TYPICAL SERIAL EEPROM E/W CYCLES/DAY BY APPLICATION 


Maintenance Log 
Last Number Redial 


Electronic Lock Access 
Power Down Storage 
Digital Potentiometer 

Look Up Table 


Tuner Controls 


System Configuration 


Anti-Lock Brakes 
Speed Dial 


Airbag 


0.001 


1 
Cycles/Day 
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number of E/W cycles per day require only a small 
number of bits. Last number redial in a telephone, for 
example, consumes many E/W cycles per day, but 
utilizes only a few bytes for this function. By contrast, 
speed dial storage in that same telephone consumes 
only a fraction of E/W cycles per day, but requires a 
relatively large segment of bits to accommodate the 
many speed dial options. In such an application, the 
same serial EEPROM normally performs both functions 
at different address locations. 


ENDURANCE DATA FROM THE 
CUSTOMER’S PERSPECTIVE 


Unfortunately, an industry standard for an endurance 
test method has yet to be adopted. Since endurance 
data is not baselined, the process of evaluating endur- 
ance becomes that much more complicated for the 
system designer and reliability engineer. 


It is not uncommon for customers to request endurance 
data from many semiconductor vendors. All vendors 
would be expected to comment that they experience a 
low failure rate through 100K E/W cycles. While this can 
be a true statement, it can also be a very incomplete 
statement. It is extremely doubtful that all vendors test 
their components to the same conditions. Yet the 
variables within endurance testing are extremely signifi- 
cant. Small differences in text protocol can have enor- 
mous differences. Pattern, cycling mode, temperature 
and array size, for example, are the most significant 
testing variables. 


First, memory cell failure rates are defect density driven 
up to the intrinsic wear out point. Existing defects in a 
cell, while not causing failure initially, are stressed during 
every transfer of electrons through the TD oxide until 
they eventually cause cell failure. Worst case testing 
would be to erase and write each bit, which is what a 
write all “O’s pattern with an auto-erase of “1” routine will 
perform. Indeed, this write all “O’s test pattern will 
produce very different results than a checkerboard test 
pattern of alternating “1”s and “O’s within a byte, since 
cells are changed more often writing all “O’s than in an 
alternating “1” and “O” write pattern. The resultant failure 
rate differences are indicated on the pattern effect graph 
in Figure 4. 


In actual use, however, a system will experience a 
random pattern much more like the alternating “1”s and 
“O”s pattern than the more stressful all “O”s pattern. The 
key point for system designers is to determine how 
accurate a test routine has been used to determine a 
particular manufacturer's endurance data, and make 
the appropriate judgement on that part’s expected en- 
durance in the application. 


FIGURE 4 - PATTERN EFFECT ON ENDURANCE TESTING 


Byte Write 0 


Pattern 


Cumulative 
Failure Rate 


Alternating "1" 
and "0" Pattern 


Erase/Write Cycles 
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Second, the cycling mode graph in Figure 5 indicates 
that significantly different results can be achieved in 
endurance testing using a block cycle mode than using 
a byte cycle mode. The block mode is commonly used 
by manufacturers to “speed up” the endurance charac- 
terization process. However, endurance results usually 
will appear much better for the block mode than the byte 
mode, due to the high voltage variables discussed 
earlier. The reason is that the voltage ramp rate is 
significantly SLOWER, the high voltages are slightly 


lower, thus less stressful for block cycling since the’ 


capacitive load of the entire array is on the high voltage 
charge pump. The capacitive load is much lower with a 
single row or byte, which thus has a significantly faster 
ramp rate. Also, there is not a polysilicon to polysilicon 
stress for adjacent cells since all cells are at the same 
potential. Most often, these factors combine to yield 
lower failure rates for block cycling than for byte cycling. 
Again, the test conditions must match the system con- 
ditions. 

Finally, increasing temperature also increases stress on 
the cell. Microchip’s endurance characterization data 
indicates that increasing temperature adds an _ activa- 
tion energy (Ea) of 0.12eV on the cell. From a 25°C to 
85°C ambient the acceleration factor is approximately 
2.1. Therefore, the higher the temperature, the higher 
the stress. These results will vary significantly with each 
EEPROM manufacturer. 


RECOMMENDED EEPROM 
ENDURANCE TESTING 


Microchip believes that EEPROM components should 
be endurance tested to reflect system conditions. There- 
fore, units are cycled to an alternating ONE and ZERO 
pattern (checkerboard), then to an alternating ZERO 
and ONE pattern (inverse checkerboard). 


Again, since endurance characterization data indicates 
that a random single bit fail is the primary first order 
failure mode, endurance is defect density (def/cm2 or 
segment of bit size) dependent. Therefore an expected 
failure rate range by density can be established. 


DETERMINING THE RELIABILITY 
CALCULATIONS | 


There are three primary components for the system 
design engineers to use in determining the endurance 
reliability required for a defect density limited applica- 
tion. These three components are: 


¢ Erase/write cycles/day estimated for the the function. 


* The number of bits in the function (or segment size). 


¢ Case operating temperature of the Serial EEPROM. 


Let’s look at three typical examples utilizing the above 
information to predict a cumulative failure rate at differ- 
ent points in a system lifetime. Please note that Industry 
endurance perceptions have improved from a very high 
(> 2%) failure rate expectation to a very low actual PPM 
level failure rate in the past few years. 


FIGURE 5 - CYCLING MODE EFFECT ON ENDURANCE TESTING 


Byte Mode 


Cumulative 
Failure Rate 


Block Mode 


Erase/Write Cycles 
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EXAMPLE #1 - AUTOMOBILE 
ELECTRONIC COMPASS 


A 16-byte (128-bits) segment from a 2K array stores 
data every time the power is turned off in an automobile 
electronic compass. The design engineers expect the 
system to power down an average of 5 times/day over a 
10-year life in an 85°C case temperature environment. 
The projected Microchip cumulative failure rate under 
these conditions at the 10 year point is less than 8 PPM 
or 0.0008% failures in 10 years. The cumulative PPM 
failure rate graph is referenced on Figure 6. 


EXAMPLE #2 FULL-FEATURED 
TELEPHONE 


An 8-byte (64-bit) segment is used to store the last 
number redial on a stationary full feature phone operat- 
ing in a room temperature environment. A 12K bit 
(12,288-bits) segment is used for storage of speed dial 
numbers on the same phone. This application has two 
major functions and therefore it will have two separate 
failure rate calculations. 


The last number redial function is expected to be utilized 
an average of 20 times/day over a 10 year life. Each 
speed dial is expected to be updated an average of 0.1 
times/day over a 10 year life. 


Figure 7, the cumulative failure rate graph for these two 
conditions indicates an extremely low failure rate in the 
projected 10 year lifetime. The failure rate begins be- 
yond 20 years as shown on the attached cumulative 
PPM failure rate graph. 


EXAMPLE #3 - LASER PRINTER 


A serial EEPROM could have many functions in a laser 
printer. A function that would likely require the most 
cycles/day is the maintenance log storage of the pages 
printed (estimated to be 100 cycles/day). Three bytes 
are utilized to store this number. The case temperature 
environment is estimated to be between 55°C and 85°C 


The high number of cycles at an extreme temperature of 
85°C indicate a failure rate of less than 1200 PPM thru 
the first 5 years and 2600 PPM thru the first 10 years. 


This failure rate can be dramatically reduced if the 
operating temperature is reduced to 55°C. The same 5 
and 10 year PPM levels are reduced to 450 PPM and 
1600 PPM at 55°C. 


These failure rates are illustrated on Figure 8. 


SUMMARY 


Microchip Technology Inc. has recognized that increas- 
ing reliability in serial EEPROMs through increased 
endurance is not a function of extending the life of the 
intrinsic erase/write cycle, but depends on reducing 
defect-density failure rates. Design engineers charac- 
terizing EEPROM memory needs for an application and 
evaluating EEPROM components from various manu- 
facturers need to understand not only the relationship 
between the application and expected use and failure 
mechanisms, but also how the manufacturer has arrived 
at published endurance data for its components. 


FIGURE 6 - EXAMPLE #1: THE AUTOMOBILE COMPASS 
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Microchip has developed a program to calculate the 
cumulative PPM failure rates for specific system condi- 
tions, as shown on the previous pages. This program is 
being transferred onto menu driven DOS floppy disks. 
These disks will be available in December 1992 to the 


system designers, reliability engineers, and component 
engineers to project endurance failure rates for specific 
system conditions. These disks will be periodically 
updated to reflect Microchip's most recent endurance 
data. 


FIGURE 7 - EXAMPLE #2: THE FULL FEATURED PHONE 
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0.0000584 
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1.81E-044 
0.0002117 
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FIGURE 8 - EXAMPLE #3: THE LASER PRINTER 
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INTRODUCTION 


Endurance, as it applies to non-volatile memory, refers 
to the number of times an individual memory cell can be 
erased and or written (some architectures do not erase 
before every write). Advances in process technology 
have made it possible to increase these limits and for 
Microchip Technology Inc. to offer new concepts - Total 
Endurance™ and a split architectural design for variable 
endurance. These concepts lead to more reliable prod- 
ucts with more bits per dice, such as the 24C32 and 
24C65. 


TOTAL ENDURANCE™ 


When defining endurance, we need to look at a few 
common definitions and possible misconceptions. En- 
durance with respect to EEPROMs is defined in number 
of Erase/Write (E/W) Cycles and is the most common 
rating referred to when discussing or specifying endur- 
ance. E/Wratings are based on the environmental and 
operating conditions of voltage, temperature, cycling 
mode and rate (for each byte in the application not on the 
number of op codes or control byte commands) and is 
never based on any read functions whether they be a 
data read or configuration read. If apartis rated at 100K 
E/W cycles, then each individual byte can be erased and 
written 100,000 times. This is probably the most com- 
mon misinterpretation made by system designers. En- 
durance is thus an interactive application-specific reli- 
ability parameter. It is not a typical data sheet specifica- 
tion, such as a parametric AC/DC specification with 
benchmark standards for measurement. Microchip has 
done extensive predictive laboratory studies on Micro- 
chip 2- and 3-wire Serial EEPROMs. These studies led 
to the concept of using the computer to predict the 
theoretical wear out of the floating gate and ultimately to 
project the point in time of a products life cycle when the 
first non-volatile memories bit or periphery failure should 
occur. After many man years of data collecting, predict- 
ing and verifying the results, Microchip feels confident in 
publishing and offering for the general technical commu- 
nity this predictive model in the form of IBM® PC- 
compatible software. Microchip has a patent pending on 
this predictive mathematical model. 
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TOTAL ENDURANCE PREDICTIVE 
SOFTWARE 


The predictive software described here originally was 
being developed as a tool for determining endurance 
levels of Microchip non-volatile devices. Upon seeing 
the potential as a design aid, it was decided to develop 
a software tool that could be purchased by the engineer- 
ing community and used as to predict non-volatile en- 
durance parameters for architectural and operating pa- 
rameter trade-offs before the design was completed and 
without subjecting the devices to prolonged incoming 
test for endurance levels. It should be noted that this 
predictive model applies only to Microchip Technology 
Inc. non-volatile devices. 


The program uses a iterative statistical model devel- 
oped by Microchip Technology Inc. physicists. The 
model was first used in a DOS-based text program as a 
proof of concept and for developing the exhaustive 
database needed for such a tool (included on the pro- 
gram disk as enddos.exe). This model was then im- 
ported to a Windows™ -based software package with full 
GUI capabilities and all the normal cut, paste, print, 
viewing properties. The model actually operates as a 
mathematical function which is called from within the 
Windows Visual Basic shell and is passed all of the 
pertinent operational, process, and device information. 
The model then, after calculating the essential data 
points, returns this information to the main program to 
formatted and displayed both textually and graphically. 


Applying the predictive data to the high endurance block 
of the 24C65, using the 24LC04 which has similar 
characteristics, and assuming the following: 

* a five-year life 

* an expected E/W cycles of 10 times per day 

¢ a function of 11 bytes 
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Operational specifications: 


Device —-24C.65 (24LC04B) 
Voltage 5 

Temperature 25C 

Bytes/Cycle 11 

E/W/Day 10 

App. Life (Yr.) 5 

Cycling Mode BYTE 

Data Pattern RANDOM 


The 4K HE block with 1 M E/W cycles typical, in this 
application, should yield the following results: 


FIT 1.0 PPM 6 
Time 5.0 Write cycles 18,250 
FIGURE 1 - 


24L.C04, 25C, 5V, 11bytes, 10cycles/day, RANDOM, BYTE 


PPM =6 





0 
0.000 0.005 0.010 0.015 0.020 


AN562, 18,250 Cycles, 5.0 Yrs 


The results shown are predictive in nature and should 
reflect an accurate representation of the expected re- 
sults. For a more detailed description of endurance, see 
the related application notes AN536 and AN537 con- 
tained elsewhere in this volume. All operation param- 
eters, along with the process technology, effect the 
effective endurance of a non-volatile device. The volt- 
age, temperature, cycles per, bytes per cycle, and even 
the number of times written per day (time between write 
cycles) all have an effect on the oxide breakdown or 
periphery failure rate of a particular non-volatile process. 


Endurance is not a well-defined concept within the 
semiconductor industry. The number of erase/write 
cycles which a particular EEPROM can endure is depen- 
dent not only upon the design of the device but also upon 
the application environment in which it is used. There- 
fore, blanket claims such as “1 million erase/write cycles 
typical” can only be validated based upon the specific 
parameters of each application. Yet until now, there has 
been no tool available for predicting the endurance of a 


particular EEPROM device within a set of application 
parameters. Trade-off analysis can be painfully time- 
consuming and only marginally accurate without spe- 
cific knowledge of the behavior of the device under 
different conditions of use. 


The Microchip Total Endurance Software allows the 
designer to trade off voltage, temperature, write cycles, 
number of bytes written, number of writes per day, PPM 
and FIT rates, and years of use in order to optimize the 
system and accurately predict product lifetime and reli- 
ability. 


The following is an example using the Endurance Soft- 
ware to aid in the design of an electronic phone book/ 
auto-dialer: 


The auto-dialer may have new numbers added or 
changed several times per day; but how can the 
manufacturer specify the life of the unit, and at what 
rate of update of the phone numbers? First, the 
designer must make some assumptions. If we as- 
sume that the average user will change or add 50 
phone numbers per day, and the manufacturer is 
willing to live with a 0.1% failure rate (1,000 PPM) after 
10 years of use, then we have almost enough informa- 
tion to verify whether we are in the ball park given the 
physics of the EEPROM device which will store the 
numbers. We also need to know the operating voltage 
and temperature of the application; we will say that a 
3.3V lithium button battery is powering the unit and the 
temperature range is limited to that for which the LCD 
display will function: 0°C to 70°C. End-of-life voltage 
for the battery is approximately 2.0V; assuming that 
the ASIC or microcontroller in the application will 
operate down to 2.5V, the EEPROM also has a 2.5V 
requirement. The designer would like to be able to 
store 100 phone numbers of 16 bytes each, which 
results in a 1.6K byte requirement for the Serial 
EEPROM. Because 1.6K bytes is equal to 12.8K bits, 
a 16K bit 2-wire Serial EEPROM will more than 
suffice. Specifically, Microchip’s 24LC16B will oper- 
ate down to 2.5V and even includes a write-protect 
feature which can be used to block inadvertent writes 
in a noisy environment. 


Here is a Summary of the application: 


Device 24LC16B 
Voltage | — 2.5V -3.3V 
Temperature 0°C to 70°C (55°C typical) 


Cycles per day 50 
Bytes per cycle 16 
Application life 10 years 
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Once these values are entered into the Total Endurance 
program, it outputs the following: 


for the application life of the product given a 1000 PPM 
failure rate. Here are the results: 


Device Data: Input Parameters 
Device 24LC16B 
Voltage 333 
Temperature 55 
Bytes/Cycle 16 
E/W 50 
App. Life (Yrs) 10 
Cycling Mode BYTE 
Pulse Width (Ms) N/A 
Data Pattern RANDOM 


Device Data: Output Parameters 
FIT 21.0 
PPM 1,842 
Time 10.0 
Write cycles 182,500 


Device Data: Input Parameters 
Device 24LC16B 
Voltage 3.3 
Temperature 55 
Bytes/Cycle 16 
E/W 50 
PPM Level (Yrs} 1000 
Cycling Mode BYTE 
Pulse Width (Ms) N/A 
Data Pattern RANDOM 


Device Data: Output Parameters 
PPM 1,000 
Time 5.97 
Write cycles 109,000 





Both of the lists above were copied directly from the 
Total Endurance program output to the Microsoft® Win- 
dows clipboard and pasted into this document (the Total 
Endurance program has a handy menu click to make this 
easy). 


Unfortunately for our designer, the desired 0.1% failure 
rate has almost doubled to 0.18% (1842 PPM). But 
fortunately for the designer, the Total Endurance pro- 
gram makes trade off analysis very simple and fast. At 
this point there are at least three options: (1) live with 
almost 2000 PPM, or (2) look at the endurance plot and 
check whether there is a reasonable number of E/W 
cycles which will provide a 1000 PPM failure rate, or (3) 
specify a PPM rate to the Total Endurance program and 
let it crank out the number of cycles it will take. 


Below is the endurance plot, again pasted directly from 
the Total Endurance program: 


You can see that by reducing the number of cycles from 
the 182,500 which resulted from our first trial to about 
100,000, we can achieve a PPM rate of about 1000 
(0.1%). But how does 100,000 cycles translate into 
application life or cycles per day? 


By switching the Total Endurance program mode to a 
PPM request mode instead of application life mode, we 
can query the program for this information. Let’s ask it 


Now we have some more options: (1) specify the 
product life at 5 years or (2) trade off other parameters 
of the application such as voltage or temperature, or (3) 
decide which is more important - a 10-year product 
lifetime, or the ability to change 50 numbers every single 
day. Maybe this analysis has caused our designer to re- 
evaluate the 50 cycle-per-day requirement. Will the user 
really change or add that many numbers per day - half 
of the unit’s total capacity? Maybe 20 or even 10 is a 
more practical figure. Realistically, a user may enter or 
change quite a few numbers the first week or two of the 
application, and after that the unit will be used mostly for 
reading and dialing numbers. 


Changing the number of erase/write cycles to 20 per day 
gives us the following results: 


Device Data: Input Parameters 
Device 24LC16B 
Voltage 3.3 
Temperature 55 
Bytes/Cycle 16 
E/W 20 
PPM Level (Yrs) 1000 
Cycling Mode BYTE 
Pulse Width (Ms) N/A 
Data Pattern RANDOM 


—$ eee : 
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Device Data: Output Parameters — 
PPM 1,000 
Time 14.93 
Write cycles 109,000 


Wow! Reducing the number of cycles per day not only 
brought us back to a 10-year life, it gave us some margin 
on that, too. Keeping all the other parameters the same 
and forcing a 10-year lifetime gives us the following final 
results: 


Device Data: Output Parameters 
FIT 7.1 
PPM 625 
Time 10.0 
Write cycles 73,000 


The new PPM rate of 625 gives our triumphant designer 
more than 30% margin on his PPM target of 1000. 


This example shows the significant reduction in time for 
design trade off analysis and time-to-market which can 
be achieved with a useful tool like the Microchip Total 
Endurance Disk. In addition, it demonstrates the in- 
crease in robustness of the system design by providing 
known quantities and readily accessible handles to 
modify those quantities in the trade-off analysis. This 
tool can literally reduce weeks of effort into a few minutes 
of point and click. 


AUTHORS: Peter Sorrells 
Memory Products Division 


Richard J. Fisher 
Memory Products Division 
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INTRODUCTION 


The 241 CXXB Serial EEPROMs from Microchip Tech- 
nology are |?C™ compatible, will operate in the standard 
100 kHz and the 400 kHz Fast Mode. When using any 
serial protocol with a general microcontroller that does 
not have a dedicated protocol specific serial port, the 
designer must generate the specific code routines to 
accomplish the several memory access functions that 
the microcontroller will perform. The PIC16CXX prod- 
ucts from Microchip are both versatile and efficient to 
program. This application note is aseries of stand-alone 
programs to perform the basic I°C interface functions on 
a PIC16C54 running at 4 MHz in XT mode. This 
configuration will provide a 60 kHz serial bus rate. Atthis 
speed, the interface does not meet the 100 KHz speci- 
fication. If a higher clock rate is desired, the HS crystal 
oscillator must be used, which has a maximum fre- 


quency of 20 MHz. NOTE THAT THE TIMING ROU- 
TINES MUST BE REWRITTEN TO RUN AT THESE 
FASTER CLOCK RATES. The user must consult all 
applicable data sheets for design details. These pro- 
grams have been fully tested and are being made 
available for general use. Figure 1 demonstrates the 
tested configuration of PIC16C54 and the 24LCXXB 
device. 


This application note includes the following programs. 


— 2-Wire Byte Read 

— 2-Wire Byte Write 

— 2-Wire Byte Write with Data Polling 
— 2-Wire Page Write 

— 2-Wire Sequential Read 


FIGURE 1 - TESTED CONFIGURATION OF THE PIC16C54 AND THE 24LCXXB DEVICE 
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LIST P=16C54 


HARKER KR ERA IIIA KAKI KEI IIE ASE IIIA IESE II AES III IAS AIA 
2~Wire Byte Read Program (118 bytes) 


This program demonstrates howto interface a 
Microchip PIC16C54 to a 24LCXXB Serial EE device 
and perform a random read operation. This program 
will read 8 consecutive addresses inthe ‘random 

read’ mode. This entails setting the address pointer 
before doing read command for every address. 


Another, more efficient method of reading consecutive 
addresses is the ‘sequential read’ mode. This involves 
sending the control byte and address for the first byte 
to read, then continuing to provide clocks for the next 
addresses. The device will automatically increment the 
address. An example of the sequential read mode is 
provided inthe ‘2wseqr.asm’ file. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 60 Khz forthis setup. 


As an option, the user may connect a LED to pin 18 

on the PIC16CXX (use about a 1K resistor in series) as an 
acknowledge fail indicator. This LED will come onif 

the serial EE fails to acknowledge correctly. 


PIC16CXX to Serial EE Connections: 
PIC16CXX Serial EE 


eee eee ee — ee ee 


Pin 12 (RB6) —> SCLK 
Pin 13 (RB7) —> SDATA 


PIN 18 (RA1) —> Acknowledge fail LED (Optional) 


KAKKKKEKEKEKEK KKK KE EKK KEKE KKK EKER KEKE KEKE KEKE KEK KEKE KEKE EEK 


~s “se “c sas “se “es “es “se Se Se Sa “SE MR Ys Me MS “eo Me “2 “se Te Te ws Me MH YH MH MS SS ME YS MH TH MH TH Vs TH MS TE 


Register Definitions 
gE KRKKKKK KERR EKER REE K KKK KER EK KK EKER KK EK KKK RRR KK KK KEK ERK KEK KER 
port_a equ Sh ; port. 5 (port a) used for LED display 
port_b equ 6h ; port 6 (port b) used for data and 
; clock lines 
eeprom equ 0Oah ; bit buffer 
bycnt equ Obh ; byte counter for read mode 
addr equ. Och ; address counter 
datai equ Odh ; data input register 
datao equ Oeh ; data output register 
slave equ Ofh ; device address 1010xxx0) 
txbuf equ 10h ; transmit buffer 
count equ. ilih ; bit counter 
beount equ i12h 7 byte counter 
loops equ. 15h ; delay loop counter 
loops2 equ 16h ; delay loop counter 


pRRKRKRKRK RIE EKER EKER KKK KEK KKK EKER EKER KR EK KEK EK EEK KKK KEKKK 
- Bit Definitions 
KKK KKK KK KK KEK KKK KKK KK KKK KEKE KK KKK KKK KK KKK KKK KKK KKK KEKEKKEKEK 


d. equ 7 


? eeprom input bit 
do equ. 6 ? eeprom output bit 
sdata equ) 7 ; serial EE data line (port_b, pin 13) 
sclk equ 6 ; serail EEclock line (port_b,pin12) 
ackf equ l 7 acknowledge fail LED (port_a) 


£ KKKKKKKERRKKKERE KER KR EK EEK RE RE KEK EERE KEKE RR EK KE KEK KKK KKEEKK 


org Olffh : ; set reset vector 


goto PWRUP 
org 000h ; 


goto PWRUP 
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. 
, 


PRA KKKKKKKKK KKK KKK RK KKK KAKA KK KK KKK KKK KKK KKK KK KK KKK KK KK KKK KK KK KKK 


7 Start Bit Subroutine 


: this routine generates a start bit 


: (Low going data line while clock is high) 
PRK KRK KKK KKK RK KKK KKK KK RK KK KK KKK KKK KKK KKK KK KKK KK KK KK KK KR KKK KK KKK 


BoOLARL 
bsf port_b,sdata 
movlw b’00111111' 
tris port_b 
bet port_b, sclk 
nop 

psf poct_b,sclk 

nop 

nop 

nop 

nop 

nop 

bef port_b,sdata 


nop 
nop 

nop 

nop 

nop 

bef port_b, sclk 
nop 

nop 

retlw 0 


° 
, 


; make sure data is high 


; set data and clock lines for output 
; make sure clock is low 


; Set Clock high 


; data line goes low during 
; high clock for start bit 


; timing adjustment 
; start clock train 


PRAAKKKRKKK KKK KKK KKK KAKA KR KKK KKK KKK KK KKK KK KKK KKK KKK KK KKK KKK KK 


: Stop Bit Subroutine 
; This routine generates a stop bit 
j (High going data line while clock is high) 
pRAKRRK KK KKK KKK KKK KK KK KKK KK KK KK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KK 
BSTOP . 
bef port_b, sdata ; make sure data line is low 
movlw b’00111111' 
tris port_b ; set data/clock lines as outputs 
bef port_b,sdata ; make sure data line is low 
nop 
nop 
nop 
bsf port_b, sclk ; set clock high 
nop 
nop 
nop 
bsf port_b,sdata ; data goes high while clock high 
; for ston bit 
nop 
nop 
bef port_b, sclk ; set clock low again 
nop 
nop 
nop 
retlw 0 


. 
, 


PRRKRR KK KKK RK KKK RRR KR KKK KKK KKK KK KKK KKK KR KK KKK KKK K KKK KKK KK KKK KKK 


; BITOUT routine takes the bit of data in ‘do’ and 
u transmits it to the serial EE device 
PRRAR KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK 
BITOUT 
moviw b’00111111' ; set data,clock as outputs 
tris port _b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow ; Low? go set data line low 
bsf port_b,sdata ; high? set data line high 
goto clkout 7; go toggle the clock 


rere ermenarenermaewaisetntitr seen RS ER RA NRA NN nts 
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bitlow bef port_b,sdata ; Output a low bit 
clkout bsf port_b,sclk 7 set clock line high 
nop 
nop 
nop 
nop 
bef port_b,sclk ; return clock line low 
retlw 0 


, 
[RRR RKKKKAKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KRKKK 


‘. BITIN routine reads one bit of data fromthe 


: serial EE device and stores it inthebit ‘di’ 
PORK RAK RK RK RR KK IKK KK RK KK KK KI KK KK KK I KK I II KK KK IK KKK KK IK 
BITIN 
bsf eeprom, di ; assume input bit is high 
movlw b’10111111' ; Make sdata an input line 
tris port _b 
bsf port_b, sdata ; set sdata line for input 
bsf port _b,sclk ; set clock line high 
nop ; Just sit here asec 
nop 
nop 
nop 
nop ; 
btfss port_b,sdata ; read the data bit 
bcf eeprom, di ; input bit was low, set ‘di’ accordingly 
bcf port _b,sclk ; set clock line low 
retlw 0 : 


ERRATIC ORS I 
4 Transmit Data Subroutine 

: This routine takes the byte of data stored inthe 

; ‘datao’ register andtransmits it to the serial EE device. 

: It will then send 1 more clock to the serial EE for the 

; acknowledge bit. If the ack bit fromthe part was low 


; then the transmission was sucessful. If it is high, then 
the device did not send a proper ack bit and the ack 

ri fail LED will be turnedon. 

PRKRRR KKK KK KK KEK KK KKK KKK KKK KKK KK KKK KK KKK KKK KK KKK KK KK KK KK KKK KKK KKK 
TX 


movilw 8 


movwf count ; set the #bits to 8 


~ 


TXLP 
bef eeprom, do 7; assume bit out is low 
btfsc txbuf, 7 ; is bit out really low? 
bsf eeprom, do ; no, set it high 
call BITOUT ; send the bit to serial EE 
xf txbuf ; rotate txbuf left 


; 8 bits done? 
no - go again 


decfsz count 
goto TXLP 


~ 


“e 


call BITIN 7; readack bit 

btfsc eeprom, di ; check ack bit 

bsf port_a,ackf 7 set acknowledge fail LED if the 
; device did not pull data low 

retlw 0 


: 
PRRRKK KKK KAKA KKK KK KKK KKK KKK KKK KKK KR KK KK KK KKK KKK KKK KK KKK KK KKK KK KKK 
: Receive data routine 

, This routine reads one byte of data fromthe part 

7 into the ‘datai’ register. It then sends ahigh 


; ack bit to indicate that no more data is to be read 
PRAKKKKKKK KKK KK KK KKK KK KKK KKK KEK KK KKK KK KK KKK KKK KK KKK KKK KKK KKKKKK KK 
RX 

cirft datai ; Clear input buffer 

moviw  .8 ; set #bits to 8 
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movwf count 





RXLP nf datai ; rotate datai 1 bit left 
call BITIN ; readabit 
btfsc eeprom, di 
bsf datai, 0 ; set bit 0 if necessary 
decfsz count ; 8bits done? 
goto RXLP ; no, do another 
bsf eeprom, do ; set ack bit =1 
call BITOUT ; to finish transmission 
retlw 0 


, 

DOO CII ICICI IOC IOI IOI CII ICI ICI II IORI IO IORI TOK I KA I I TOK 
; Power up routine 

; This is the programentry point. I/O line status is 

F set for port Ahere. 

DOO IIIS ICI ICI ICICI IO IOI ICICI ICICI IO IOI TOI OR TOK TO I IA TOR I A TOK IK 


PWRUP 
movlw b’00000000' 
tos port a ; set port Aas all output 
clrf port_a ; all output lines low 
goto READ 


FEE USED ERO U IASI I OT ISIE IUFRO II TOI IARI RII 
; READ (read routine) 

: This routine reads 8 consecutive addresses of the 

; serial EE device starting at address 00 inthe 


; random access mode (non-sequential read) . Reading 
. the device using the random access mode 
; requires that the address pointer be set for every 
; byte before the read takes place. The address pointer 
: is set by sending a ‘write mode’ control byte with the 
‘ address of the location to read. 
PR AKKKK KKK KR KKK KK KK KKK KK KKK KK KK AK KK KK KKK KKK KK RRA KKK KK KK KKK KK KKK KK 
READ 
bef port_a,ackf ; Clear the ack fail LED if on 


movlw  .8 ; set number of bytes to readas 8 
movwf bcount ; 
clrf addr ; set starting address to 00 


~ 


~ 


rbyte call BSTART ; generate start bit 


~ 


~ 


; now send the write control byte and 
; address to set the pointer 


~ 


movlw b’10100000' 
movwf txbuf 


; get slave address (write mode) 
; into transmit buffer 


~ 


~ 





call TX ; and send it 
movft addr, w ; get word address 
movwf txbuf ; intotransmit buffer 
call TX ; andsendit 
; now read one byte from the part 
cll BSTART ; generate start bit 


moviw b’10100001' 
movwf  txbuf 


; get slave address and read mode 
; intotransmit buffer 


~ 


_ 


call TX ; andtransmit it 

call. RX ; read 1 byte from serial EE 

call. Bo roOP ; send stop bit to end transmission 
incf addr ; add 1 to address counter 


decfsz bcount ; yes, are all 8 bytes read? 
goto rbyte no, do another byte 
goto READ 7 yes, start all over 


~ 


“eo 


END 
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LIST P=16C54 | 
KKK KKK KKK KEE KK KKK KKK KKK KEK KKKK KKK KKK EK KK KEK KKK KK KK EERE 


2-Wire Byte Write Program (123 bytes) 


This program demonstrates howto interface a 
Microchip PIC16C54 to a 24LCXX Serial EE device 
and perform a byte write operation on 8 consecutive 
addresses. 


This routine waits approximately 10mS for the write 
cycle time, which is enough time for any of the 

241Cxx devices to complete awrite. Amore efficient 
method of determining when the write cycle is complete 
is called “data polling.” The data polling method is 
explained in the program “2wdpoll.asm.” That 
particular programuses data polling in a byte write 

mode but it can be used in exactly the same way for 

a page mode write. 


As an option, the user may connect a LED to pin 18 

on the PICI6CXX (use about a 1K resistor in series) as an 
acknowledge fail indicator. This LED will come on if 

the serial EE fails to acknowledge correctly. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 60 Khz forthis setup. 


PICI6CXX to Serial EE Connections: 


PIC1L6CXX Serial EE 


Pin 12 (RB6) —> SCLK 
Pin 13 (RB7) —> SDATA 


PIN 18 (RA1) —> Acknowledge fail LED (Optional) 


KEKKKKK KEE KK KKK KKK K KKK KKK EK KEK KEK KK KKK KER KEK KKEKKKKEKKKEKKKEKKE 


Register Definitions 
KEKKK KKK KKK KE KEK KK KKK KKK KKK KKK KEK KK KKK KKK KKEKKKEK EEK KKEKKKKEKE 


7.2 es Ss te *e *e TSE Te VE -s se Ve Te ws -¢ =a es @~se “8 ~a “se 7s *# 8 “ses 29 8 “2 *s Ys “Ss “5 “ese "8 “8 “SH YO *S * 


port_a equ Sh 7; port 5 (port_a) used for LEDs 

port_b equ 6h ; port 6 (port b) used for data and 
; clock lines 

eeprom equ 0Oah ; bit buffer 

bycnt equ. Obh 7; byte counter for read mode 

addr equ Och ; address counter 


datai equ Odh ; Gata input register 
datao equ Oeh ; data output register 


slave equ. Ofh ; device address 
; (1010xxx0) 
txbuf equ 10h + transmit buffer 
count equ ilih ; bit counter 
beount equ 12h ; byte counter 
loops equ 15h ; delay loop counter 
loops2 equ 16h ; delay loop counter 
go ERIK REA K KKK KEK RAK KKK KKK KEK KEK KK ERK K HEE KEK KK EK KKK KKK ERK KKK 
| Bit Definitions 
gH KKKK KKK KEKE KKK KEK KEK KKK IK KEK KK KKK KKK KKK EK KKK KKK KK KKK EK KK KKH 
ok equ 7 ; eeprom input bit 
do equ 6 7; eeprom output bit 
sdata equ 7 ; serial EE data line (port_b,pin 13) 
sclk equ 6 7 serail EE clock line (port_b,pin 12) 


ackf equ 1 ; acknowledge fail LED (port_a,pin 18) 


KEKKKEKKKEKEKRKEKEEREKK KERR EEK KEKKRK KKK EKEKEKEKEKEKEKKEEKKERKKEKEKKEEK 


org O1ffh ; set reset vector 
goto PWRUP 
org 00Oh ; 


goto | PWRUP 


& 
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; 
PRAKRKKKKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KK KK IK KKK KK KK KK 


7 DELAY ROUTINE 


: This routine takes the value in ‘loops’ 
; andmultiplies it times 1 millisecond to 
7 determine delay time. 


PRRKKKK KK KKK KKK KR KKK KK KKK KKK KKK KKK KR KKK RK RIK KR KKK RR KK KKK KKK KK KK 
WAIT 
; 
top movlw  .110 ; timing adjustment variable 
movwf loops2 


top2 nop sit and wait 


=e 


decfsz loops2 ; inner loops complete? 
goto top2 no, go again 


‘Ne 


decfsz loops ; outer loops complete? 
goto top ; no, go again 
retlw 0 ; yes, return from sub 


s 


~ 


; 

PRR RK KKK AK KKK KKK KK KK KKK KK KKK KKK KKK KKK KK KK KKK KK KR KKK KEK KK KKK KKK 
; Start Bit Subroutine 

: this routine generates a start bit 

; (Low going data line while clock is high) 

PRARKKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KEK KK KKK KKK 


e 
, 


BSTART 
bsf port_b,sdata ; make sure data is high 
movlw b’00111111' 
tis port_b ; set data and clock lines for output 
bet port _b, sclk ; make sure clock is low 
nop 
bsf port_b,sclk ; set clock high 
nop 
nop 
nop 
nop 
nop 
bef port _b, sdata ; data line goes low during 
; high clock for start bit 
nop 
nop 
nop 
nop 
nop 7; timing adjustment 
bef port .b, sclk ; start clock train 
nop 
nop 
retlw 0 
; End of Subroutine 
PRAAKKKKK KKK KKK KR KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK 
; Stop Bit Subroutine 
; This routine generates a stop bit 
s (High going data line while clock is high) 


PRR RRR KKK AK K KKK KK KKK KK KKK KKK KK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK 


BSTOP 
movlw b’00111111' ; 
tris port _b ; set data/clock lines as outputs 
bef port_b, sdata ; make sure data line is low 
nop 
nop 
nop 
bsf port b,sclk 7 set clock high 
nop 
nop 
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nop 
bsf port_b,sdata ; data goes high while clock high 
; for stopbit 
nop 
nop 
bef port_b,sclk ; set clock low again 
nop 
nop 
nop 
retlw 0 
; End of Subroutine 
PARK KRRKK RK KKK KK KKK KKK KK KKK KKK KKK RK KKK KKK KKK KK KKK KK KKK KKK KKK KKK 
: BITOUT routine takes one bit of datain ‘do’ and 
; transmits it to the serial EE device 
PRK KARR KR KKK KKK KKK KKK KK KKK KKK KKK KK KK KKK KK KEK KK KKK KK KKK KK KKK KK KK 
BITOUT 
movlw b’00111111' ; set data, clock as outputs 
tris port_b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow - 
bsf port_b,sdata ; set data line high 
goto clkout 7; go toggle the clock 
bitlow bcf port_b,sdata ; output a lowbit 
clkout bsf port_b,sclk ; set clock line high 
nop 
nop 
nop 
nop 
bor port_b,sclk 7 return clock line low 
retlw 0 
; End of Subroutine 


; 
p RRR K KKK K KR KK KKK KKK KKK KKK KKK KKK KKK KKK KEK KK KK KKK KKK KKK KKK K KKK KKK 


; BITIN routine reads one bit of data fromthe 
: serial EE device and stores it in ‘di’ 
PRAKAKRKAKKK KKK KKK KK RRR KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KK KKK KK 
BITIN 
bsf eeprom, di ; assume input bit is high 
movilw b’10111111' ; make sdata an input line 
tris port_b 
bsf port_b, sdata ; set sdata line for input 
bsf port_b,sclk ; set clock line high 
nop ; just sit here a sec 
nop 
nop 
nop 
nop ; 
btfss port_b,sdata ; read the data bit 
Der eeprom, di ; input bit was low 
bef port_b, sclk 7 set clock line low 
retlw 0 ; 


shVEAGu RHE UNE SA ee 
Transmit Data Subroutine 

This routine takes the byte of data stored in the 

: ‘datao’ register andtransmits it to the serial EE device. 

; It will then send 1 more clock to the serial EE for the 

; acknowledge bit. Ifthe ack bit fromthe part was low 


~e 


; then the transmission was sucessful. If it is high, then 

; the device did not send a proper ack bit and the ack 

; fail LED will be turnedon. 

pRKKKKKRK KKK KARR KKK KKK KK KK KKK KK KK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KK KK 
TX 


moviw 8 
movwf count ; set the #bits to 8 


ERE eg A ON SE PB TC a I TT a ee ee ea a RT 
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TXLP 


decfsz 
goto 
call 
btfsc 
bsf 


retlw 


ry 
y 


eeprom, do 
txbuf, 7 
eeprom, do 
BITOUT 
txbuf 
count 

TXLP 

BITIN 
eeprom, di 
Port. a, ackt 


0 


~ ‘eo Of ~ _ 


‘oe 


‘Ne 


~ 


; assume bit out is low 
; isbit out really low? 
; otherwise data bit =1 


serial data out 


; rotate txbuf left 


8 bits done? 
no —- go again 
read ack bit 


; check ack bit 
; set acknowledge fail LED if the 


PORK RRR KKK KR KKK KR KKK KK IK KK KKK KK KKK KK RK KKK KKK KKK KKK KK KKK KKK KKK KKK K 


: Power up routine 
: This is the program entry point, which in this case simply 
; sets the port aI/O lines and directs control to the 


; byte write routine. 
PRK IRR KKK RK KKK KKK KKK KKK KKK KKK KK KR KK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK 


PWRUP 
moviw 
tris 
clrf 
goto 


b’ 00000000! 
port_a 
port a 
WRBYTE 


. 
, 


° 
, 


set port Aas all output 
all output lines low 


PARK KKKK KK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KK KK KKK 


; Byte Write Routine 
i This routine writes the data in “datao” to 
; 8 consecutive bytes in the serial EE device starting 


; at address 00. This routine waits 10mS after every 
; byte to give the device time to do the write. This 
; program repeats forever. 


PRA KK KKK KK KKK KK KK KKK KKK KKK KK RK KK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KK KK KK 


WRBYTE 


. 
, 


movilw 
movwft 
movilw 
movwft 


moviw 
movwft 


byte cll 
movt 
movwft 


movet 
movwft 


movt 
movwt 


movilw 
movwft 
call 
incf 
‘decfsz 
goto 


goto 


END 


port_a 

b* 10100000! 
slave 

bP O10 L010 1? 
datao 


Rs 
bcount 
addr 


BSTART 
slave,w 
txbuf 
TX 
addr, w 
txbuf 
TX 
datao,w 
txbuf 
TX 
BSTOP 


+10 
loops 
WAIT 
addr 
bcount 
byte 


wrbyte 


Ne 


Ne 


Ne 


“oe Ne 


‘ee 


SS eS ee ee | ee ONe 


“e 


te 


“ee “oe “eo ™e 


=e 


“eo 


clear all LEDs 
set slave address and write mode 


set data to write as 55h 
set number of bytes 
to write as to 8 


set starting address to 00 


generate start bit 
move slave address 


; into transmit buffer 


and send it 

move word address 
into transmit buffer 
and send it 

move data byte 

to tranmit buffer 
andtransmit it 
generate stop bit 


set delay time to give 

10 ms wait after every byte 
add 1 to address counter 
all 8 bytes written? 

no, do another byte 


start over 
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LIST P=16C54 


LED (pin 1) high. 


PIC16CXX 


Pin 12 (RB6) —> 
Pin 13 (RB7) —> 


Pin 1 (RA2) —> 


Sy eT eT eT ee) ey en eS eT ee) nT a Dd id a Ll dd id ad ad ad ad ad ad ad nd ad dd ad id ad 


port_a equ sh 
port_b equ 6h 


eeprom equ Oah 
byent equ Obh 
addr equ Och 
datai equ Odh 
datao equ Oeh 
slave equ) Ofh 

txbuf equ) 10h 
count equ iih 
beount equ 12h 
loops equ 15h 
loops2 equ 16h 
pollent equ i7h 


F REKKKEKE KEK KERR KERR EKER ER ERE KK EK KERR ERK KK KKK KEK KEKE RERAEKEKK 


: Bit Definitions 
da equ 7 
do equ. 6 


sdata equ 7 


KAKKKKEKKEKKKK KEKE KEKE KK KEK KK EEK KKEK EKER KKK KK EKKKKKKKE 


2-Wire Byte Write With Data Polling Program (129 bytes) 


This program demonstrates howto interface a 
Microchip PIC16C54 to a 24LCXX Serial EE device. 
This program performs a byte write operation on 8 
consecutive addresses using the data polling method 
to determine when the write cycle is complete. 


When writing toa serial E? device, there are 2 

ways to handle the internal timed write cycle 

time of the device. The simplest method is 

simply to wait until the maximumcycle time 

is exceeded before attempting another command. 
The other, more efficient method is known as “data 
polling.” Data polling is done by sending a start 

bit and control byte to the part after the write 
cycle has been initiated bya stopbit. If the ack bit 
is low, then the device is through writing, otherwise 
the the sequence is repeated. If no low acknowledge 
is found within 40 attempts (about 10 milliseconds) 
then the routine times out and sets the timeout 


As an option, the user can connect a LEDtopinl 
on the PIC16CXX (use about a 1K resistor in series) as a 
timeout indicator. This LED will come on if the 

data polling is unsuccessful and the device being 
programmed does not respond. This can be tested by 
simply running the program with no part inthe socket. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 40 Khz forthis setup. 


PIC16CXX to Serial EE Connections: 


Serial EE 


Write cycle timeout fail LED (optional) 


° 
8 


7 port 6 (port_b) used for data and 


KKKKKKEKKKKEKKKKKK KKK EEK KEK KKK EKER KK KKK KKK KEK KEKE KKKKK 


Register Definitions 
gRKKKKKKKE REE REE KEK EK KK KKK KKK EEK KEK EK RE KE KKK KERR ERK REEKE RE 


port 5 (port_a) used LEDs 


7 clock lines 


e 
s 
id 
e 
, 


; bit buffer 


byte counter for read mode 
address counter 


; data input register 
; data output register 


s 
, 


device address (1010xxx0) 


2 transmit buffer 
¢ bit counter 


° 
’ 
° 
’ 


e 
‘ 


byte counter 
delay loop counter 
delay loop counter 


; data pollingcounter 


s 
‘ 
. 
‘ 
e 
‘ 


KEKKKEKKKKEEKKEKKE KEKE EKER KRKK KEK KKK KKK KEKKKEKKKEKKKEKKKKEK 


eeprom input bit 
eeprom output bit 
serial EE data line (port_b,pin 13) 
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sclk equ 6 ; serail EEclock line (port _b,pin12) 
timeout equ 2 ; write cycle timeout fail LED, port_a (pin1) 
ackf equ 1 ; acknowledge fail LED, port_a (pin 18) 


PRR RRR RR KKK KKK KK RK KK KKK KKK KK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK 


. 
v 


org Olffh ; set reset vector 
goto PWRUP 
org 000h ; 


goto PWRUP 


PRK RR KR K AK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KK KKK KKK KK KKK KK KKK KK KK KK 


7 DELAY ROUTINE 
; This routine takes the value in ‘loops’ 
; and multiplies it times 1 millisecond to 
; determine delay time. 
P RRR KRKKKK KKK KKK KKK KKK KKK KKK KKK KKK KAR KKK KR KKK K KK KKK KK KKK KK KK KK 
WAIT 
top movlw  .110 ; timing adjustment variable 
movwfi loops2 
top2 nop 7 Sit andwait 
nop 
nop 
nop 
nop 
nop 
decfsz loops2 ; inner loops complete? 
goto top2 7; no, go again 
decfsz loops ; outer loops complete? 
goto top ; no, go again 
retlw 0 ; yes, return from sub 


; 
pRRRK KAR KKK KKK KK KKK KKK KK KK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK 


; Start Bit Subroutine 
; this routine generates a start bit 
: (Low going data line while clock is high) 


PRRRRERKK KK KK KKK KKK KKK KKK KKK KK KK KKK RK KK KKK KKK KKK KARR KKK KKK KK KKK 
BSTART 

bsf port_b, sdata ; make sure data is high 

moviw b’00111111' 

tris port b | ; set data and clock lines for output 

bcf port_b, sclk ; make sure clock is low 

nop 

bsf port_b,sclk 7 set clock high 

nop 

nop 

nop 

nop 

nop 

ber port b, sdata ; data line goes low during 

; high clock for start bit 





nop 
nop 
nop 
nop 
nop ; timing adjustment 
bef port_b,sclk ; start clock train 
nop 
nop 
retlw 0 
; 
P RRR RRR KKK KK KKK KK KKK KA KKK KKK KKK KKK KK KKK KK KKK KKK RK KK KKK KK KK KKK 


; Stop Bit Subroutine 

; This routine generates a stop bit 

; (High going data line while clock is high) 

PRKR RRR KKK KKK AK KKK KKK KKK KK KKK KK KKK KKK KKK RK KKK KKK KKK KKK KK KK KKK 
BSTOP 


A RE Fc TS 2S I SE I a EL a ee a 
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movlw b’00111111' o 
tris port_b ; set data/clock lines as outputs 
bef port_b,sdata ; make sure data line is low 
nop 
nop 
nop 
bsf port_b, sclk ; set clock high 
nop 
nop 
nop 
bsf port _b,sdata ; data goes high while clock high 
; for stopbit 
nop 
nop 
ber port_b, sclk ; set clock low again 
nop 
nop 
nop 
retlw 0 
TIE IN YI IRIS IO GSO IIS IASI ISIS TEI IO IIASA IR 


: BITOUT routine takes one bit of datain ‘do’ and 


;: transmits it to the serial EE device 
PARRA KKK KARR KK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KK 
BITOUT 
movlw b’00111111' ; set data, clock as outputs 
tris port_b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow ; 
bsf port_b,sdata ; set data line high 


goto clkout go toggle the clock 


“=e 


bitlow bcf port_b,sdata ; output a lowbit 
clkout bsf port_b, sclk ; set clock line high 
nop 
nop 
nop 
nop 
bef port_b, sclk ; return clock line low 
retlw 0 


: End of Subroutine 


PRK KKK KK ARK KKK KK KKK KKK AK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KK KK 


; BITIN routine reads one bit of data fromthe 
; serial EE device and stores it in ‘di’ 
PRAKKKKK KAR KK AK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK AK K KKK 
BITIN 
bsf eeprom, di ; assume input bit is high 
moviw ob’ 1O1li1i1t" ; make sdata an input line 
tris port_b 
bsf port_b,sdata ; set sdata line for input 
bsf port_b, sclk 7 set clock line high 
nop ; Just sit here asec 
nop 
nop 
nop 
nop ; 
btfss port_b,sdata ; readthe data bit 
bet eeprom, di ; input bit was low 
bee port_b, sclk ; set clock line low 
retlw 0 ; 


. 
, 


PRRKRK KKK RK KEK KKK KKK RK KKK KK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KK 


: Transmit Data Subroutine 

; This routine takes the byte of data stored in the 

F ‘datao’ register andtransmits it to the serial EE device. 
; It will then send 1 more clock to the serial EE for the 

; acknowledge bit. If the ack bit fromthe part was low 


aT A PAT iS SS A SS SEE 
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; then the transmission was sucessful. If it is high, then 

; the device did not send a proper ack bit and the ack 

; fail LED will be turnedon. 

PRAARKKKKK KKK KKK KKK KKK KKK KKK RR KR KKK KKK KKK KKK KK KKK KKK KK KKK KKK KK KKK 
TX 


moviw 8 


movwf count set the #bits to 8 


‘Ne 


. TXLP 
bcf eeprom, do ; assume bit out is low 
btfsc txbuf,7 ; isbit out really low? 
bsf eeprom, do ; otherwise data bit =1 
call BITOUT ; serial data out 
xf txbuf ; rotate txbuf left 


8 bits done? 
no - go again 
read ack bit 


decfsz count 
goto TXLP 
call BITIN 
; 

retlw 0 

; ; 
PRK RRR KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KK KK KKK KK 


te Ne 


Se 


Power up routine 
; This is the program entry point, which inthis case simply 
; sets the port_aI/O lines and directs control to the 


; write routine. 
J RARRKKKKKK KKK KKK KKK AK KKK KK KKK KK KK KKK KK KKK KKK KK KKK KKK KKK KK KKK KKK KK 
PWRUP 

moviw b’00000000' 

tos port a ; set port Aas all output 

clrf port_a ; all output lines low 


goto WRBYTE 


J RARKKKRKKK KKK KKK KR RRR KKK KKK KK KKK KKK KKK KKK KKK RRR KE REK KKK KK KKK AKER 


: Byte Write Routine with data polling technique 

; This routine writes the data in “datao” to 

; 8 consecutive bytes in the serial EE device starting 

i; at address 00. To determine when the write cycle time 

; of the device, the ‘data polling’ method is used. This 

H involves sending a start bit and control byte to the part 

; and checking for an acknowledge. If the ack bit is low, then 
: the device is through writing, otherwise the the sequence 
; is repeated. If no low acknowledge is found within 40 

; attempts (about 10 milliseconds) then the routine times 

: out and sets the timeout LED (pin18) high. This program 
: will repeat forever. 


; 

PRR KKK RK RK KK KKK KR RK KK KKK KKK KK KKK KKK KKK KKK IK KKK KK KKK KER KEKE KKK KKK KKK 
WRBYTE 

; 

; all LEDs off 

set slave address and write mode 


~ 


clr port_a 
movilw b’10100000'! 
movwf_ slave 

movlw b’10101010' 
movwf datao 

movlw  .8 

movwf bcount 





se 


; set data to write as AAh 


~ 


Se 


set number of bytes 
to write as to 8 


Se 


clrf addr ; set starting address to 00 
byte call BSTART ; generate start bit 
movft slave,w 7 move slave address 


movwf  txbuf into transmit buffer 


‘we 


cll TX 7; and send it 

movft addr, w ; move word address 
movwf txbuf ; into transmit buffer 
call TX ; and send it 

movft datao,w 7 move data byte 
movwf  txbuf ; totranmit buffer 
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and transmit it 
call. BSTOP generate stopbit 
now start polling for a low ack bit 


movlw  .40 


movwf  polient set max number of times to poll as 40 


7e 7s te Fe 6Fe8lUMlU FM RlUMlUMlUlUM CU 


poll call BSTART generate start bit 
movlw b’10100000' move slave address (write mode) 
movwf txbuf into transmit buffer 
call TX and send it 
btfss eeprom, di was the ack bit low? 
goto exitpoll 7 yes, do another byte 


decfsz  policnt ; 1s poll counter down to zero? 

goto poll 7 no, pollagain. Other wise the part is 

bsf port_a,timeout 7 not responding in time so set timeout 
; LED and continue on 


exitpoll icf addr 3 add 1 to address counter 
decfsz bcount ¢ all 8 bytes written? 
goto byte 7 no, do another byte 
goto WRBYTE ; yes, start over 

END 
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LIST P=16C54 
OCICS CIO ICICI CII COCO CICIC ICICI CII CIC IC ICR ICICK IK IKK 


; 2-Wire Page Write Program (122 bytes) 


; This program demonstrates how to interface a 

: Microchip PIC 16C54 to a 24LCXX Serial EE device 

; and perform a page write operation on 8 consecutive 
; addresses. 


: All of Microchip’ s 2-wire serial ES devices have a 

; buffer or ‘page’ that can be used as amore efficient 
; method of writing to consecutive addresses. Some 
; devices have page lengths of 2 bytes, others have 

; page lengths of 4,8,16 or 64 bytes. Please consult 
‘ the databook for the page length of the device you 
; are uSing. THIS ROUTINE IS WRITTEN FOR A DEVICE 
; WITH A PAGE LENGTH OF 8 OR MORE BYTES. 


: When using page mode, the control byte and address 

; are sent for the first address only. After the data 

; byte for the first address is sent, the data for the 

; next consecutive address is clockedin. This is 

; repeated as many times as needed (as long as the page 
Z length is not exceeded) and then a stop bit is sent. 

; The device will still acknowledge between every byte of 
: data. Afterthe stopbit is sent, the part will 

; initiate the self timedwrite cycle. Forallof 

; Microchip’ s 24LCxx devices, the cycle time for 

; a byte write anda page write is the same. Therefore, 

: writing 8 bytes in byte mode with atypical 5ms write 

; cycle consumes 40ms of wait time, while the same data 
: written in page mode would consume only 5ms of wait time. 


This routine waits approximately 10mS for the write 

; cycle time, which is enough time for any of the 

; 24LCxx devices to complete awrite. Amore efficient 

; method of determining when the write cycle is complete 
Es is called “data polling.” The data polling method is 

: explained in the program “2wdpoll.asm.” That 

; particular program uses data polling inabyte write 

; mode but it can be used in exactly the same way for 

; a page mode write. 


? As an option, the user can connect a LED to pin 18 
i onthe PIC (use about alK resistor in series) asa 

; acknowledge fail indicator. This LED will come on 

} if the device being programmed does not send a low 
; acknowledge bit at the proper times. This can be 

7 tested by simply running the program with no part 

: inthe socket. 


; Timing is based on using the PIC in ‘XT’ mode 
: using a 4Mhz crystal. Clock speeds to the serial EE 
; will be approximately 40 Khz for this setup. 





: PIC to Serial EE Connections: 
: PIC Serial EE 
; Pin 12 (RB6) —> SCLK 

; Pin 13 (RB7) —> SDATA 


; PIN 18 (RA1) — Acknowledge fail LED (Optional) 

, 

; 

PR RIK RK KKK KK KK AK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK 
F Register Definitions 

PRR KRKK KKK KKK KKK KKK KKK KK KK KR KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK 
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port_a equ 5h ; port 5 (port a) used for LED outputs 

port_b equ 6h ; port 6 (port b) used for data and 
; clock lines 

eeprom equ Oah ; bit buffer 

addr equ Och ; address counter 

datao equ Oeh ; data output register 

slave equ. Ofh ; device address (1010xxx0) 

txbuf equ 10h ; transmit buffer 

count equ 11h ; bit counter 

beount equ ih ; byte counter 

Loops equ 15h ; delay loop counter 

loops2 equ 16h ; delay loop counter 

PRK KKARKK KK KK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKKKK KK KKK 

; Bit Definitions 

PRKKKA KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK 

dh equ 7 ; eeprom input bit 

do equ 6 7; eeprom output bit 

sdata equ 7 ; serial EE data line (port_b,pin 13) 

sclk equ 6 ; serail EE clock line (port_b,pin12) 

ackf equ l ; acknowledge fail LED, port_a (pin 18) 


PRRAKKKKKKKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KK 
, 


. 
, 


org O1lffh ; set reset vector 
goto PWRUP 
org 000h ; 


goto PWRUP 
; 
PRR ARR RAK KKK KKK KKK KK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK 
; DELAY ROUTINE 


; This routine takes the value in ‘loops’ 
: andmultiplies it times 1 millisecond to 
; determine delay time. 


pRKKARKR KKK KKK RRR KEK KKK KKK KKK KK RK KKK KK KKK KKK KK KK KKK KKKRKK KKK KK 
WAIT 
top movlw  .110 ; timing adjustment variable 
movwf loops2 
top2 nop 
nop 
nop 
nop 
nop 
nop 
decfsz loops2_ 
goto top2 


sit and wait 


“ee 


inner loops complete? 
no, go again 


“ee 


=e 


decfsz loops ; outer loops complete? 
goto top ; no, go again 
ret lw 0 ; yes, return from sub 


HE UH ESE HONS IEE IO ETO TSI DEE II ISO SOI IAI IAI I 
; Start Bit Subroutine 

; this routine generates a start bit 

: (Low going data line while clock is high) 


pRKKRRK RK KK KKK KKK KKK KKK KK KKK KK KK KKK KKK KK KKK KKK KKK KK KK KKK KKK KK KK 


. 
, 


BSTART 
bsf port_b,sdata ; make sure data is high 
moviw b’00111111' 
tos port Dp ; set data and clock lines for output 
bef port_b,sclk ; make sure clock is low 
nop 
bsf port_b,sclk ; set clock high 
nop 
nop 
nop 
nop 
nop 
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bet port_b, sdata ; data line goes low during 
; high clock for start bit 
nop 
nop 
nop 
nop 
nop ; timing adjustment 
bef port_b,sclk 7 Start clock train 
nop 
nop 
retlw 0 
: End of Subroutine 
KKKKKKKEKK KK KKK KKK KK KKK KK KKK KKK KA KKK KKAKKK KK KAKKKKRKEKKKKKEKKKK 
Stop Bit Subroutine 
; This routine generates a stop bit 
F (High going data line while clock is high) 
PRK KKKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KK KK KKK KK KK KKK 
BSTOP 
movlw b’00111111' ; 
tris pork. ; set data/clock lines as outputs 
bef port_b, sdata ; make sure data line is low 
nop 
nop 
nop 
bsf port_b,sclk ; set clock high 
nop 
nop 
nop 
bsf port_b, sdata ; data goes high while clock high 
; for stop bit 
nop 
nop 
bef port_b, sclk ; set clock low again 
nop 
nop 
nop 
retlw 0 
; End of Subroutine 
PARKA KRAKR KKK KR KK KR KK KK KK RK KKK KKK KKK KKK KKK KKK KR KK KK KKK KK KK RR KK KK 
7 BITOUT routine 
; This routine takes one bit of data in ‘do’ and 
; transmits it tothe serial EE device 
PRKKKKKKR KR KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KK KK KKK KK 
BITOUT 
moviw b’00111111' ; set data, clock as outputs 
tris port_b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow - 
bsf port_b,sdata ; set data line high 
goto clkout 7; go toggle the clock 
bitlow  bcf port_b,sdata ; output a lowbit 
clkout bsf port _b,sclk ; set clock line high 
nop 
nop 
nop 
nop 
bocf port _b,sclk ; return clock line low 
retlw 0 
i End of Subroutine 


, 
PRR ARR RK KKK KKK KKK KK KK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KK KKK KKK KK KK KK 


; BITIN routine reads one bit of data fromthe 

: serial EE device and stores it in ‘di’ 

J RKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKKK KKK KKK 
BITIN 


STS A LEC WE CI SE SS A SE OC A SE AT ART 
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bsf eeprom, di ; assume input bit is high 
moviw b’10111111' ; make sdata an input line 
tris port_b 

bsf port_b, sdata 7 set sdata line for input 
bsf port_b,sclk 7 set clock line high 

nop ; just sit here asec 

nop 

nop 

nop 

nop ; 

btfss port_b, sdata ; readthe data bit 

bef eeprom, di ; input bit was low 

bcf port_b, sclk ; set clock line low 

retlw 0 ; 


, 
ZRH RRK RK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KK KK KKK KKK KKK 


: Transmit Data Subroutine 

This routine takes the byte of data stored in the 

; ‘datao’ register andtransmits it to the serial EE device. 

: It will then send 1 more clock to the serial EE for the 

; acknowledge bit. If the ack bit fromthe part was low 

; then the transmission was sucessful. If it is high, then 

; the device did not send a proper ack bit and the ack 

; fail LED will be turnedon. 

PRRARRKAKKKRKK KKK RK KK RK RK RR KKK KKK KKK KKK KK KKK KKK KKK KK RK KKK KKK KKK KK 
TX 


movilw 8 


movwf count set the #bits to 8 


we 


TXLP 
bef eeprom, do 7; assume bit out is low 
btfsc txbuf,7 ; isbit out really low? 
bsf eeprom, do ; otherwise data bit =1 
call BITOUT ; serial data out 
nf txbuf ; rotate txbuf left 


8 bits done? 
no - go again 


decfsz count 
goto TXLP 


ne 


“ee 


call BITIN ; readack bit 

btfsc eeprom, di ; check ack bit 

bsf port_a,ackf ; set acknowledge fail LED if the 
; device did not pull data low 

retlw 0 


, 
PRA RRKKK KKK KKK KKK KKK KKK RK KEK KKK KEK KK KKK KKK KKK KK KK KKK KKK KK KK KKK KK 


; Power up routine 
: This is the program entry point, which in this case simply 
; sets the port_aI/O lines and directs control to the Page 
; write routine. 
PRARKKKAKKK KKK KKK KKK KKK KKK KKK KKK KR KK KKK KKK KKK KKK KKK KKK KKK KKK K KKK KK 
PWRUP 
moviw b’00000000' 
tris port_a ; set port Aas all output 
clrf port_a ; all output lines low 


goto WRPAGE 


PRRKKKKRK KEKE KKK KKK KK KEK KKK EK KKK KKK KKK KKK KKK KKK KE KK KEKE KKKK KKK KK 


; Page Write Routine 

; This routine uses page mode to write the data in “datao” to 
; 8 consecutive bytes in the serial EE device starting 

at address 00. This routine waits 10mS after every 

; page to give the device time todo the write. This 

; routine executes forever 


pRAKKKKKKKRKRRKK KKK KK KK RK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KK RK KK 


WRPAGE 


, 


AT EE FT TOE ST PE SE CCE SS NT ST EE TOTES 
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; clear all LEDs 
set slave address and write mode 


~ 


chef port a 
movlw b’10100000' 
movwf slave 

movlw b’01010101' 
movwf datao 


“ee 


; set data to write as 55h 


~ 


movilw 8 
movwt bcount 


“eo 


set number of bytes 
to write as to 8 


Ne 


clrf addr ; set starting address to 00 
call BSTART ; generate start bit 

movet slave,w ; move slave address 
movwf  txbuf ; into transmit buffer 

call TX ; and send it 

movf addr,w ; move word address 


movwf txbuf into transmit buffer 


“ee 


call TX ; and send it 

byte move datao,w 7; move data byte 
movwf txbuf ; totranmit buffer 
call TX ; andtransmit it 


decfsz bcount 
goto byte 


all 8 bytes written? 
no, do another 


“ee 


“e 


call BSTOP ; yes,generate stop bit 
movlw  .10 

movwf loops ; set delay time to give 

call WAIT ; 10 ms wait after every byte 
goto wrpage ; Start over 


END 





A RS SET ED ES PUA RTD il SA SS OA TE OO RETO 
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LIST P=16C54 


KKK KKKK KK KKK KEK KEKE KEKE KKK KEK KKK KK KKK KEK KEKE KKKKKKKEEKKKEKKKK 


2-Wire Sequential Read Program (120 bytes) 


This program demonstrates howto interface a 
Microchip PIC16C54 to a 24LCXX Serial EE device 
and performa sequential read operation. Asequential 
read involves setting the address pointer once and then 
using the auto-increment ability of the part to read 
consecut ive addresses by simply providing more clocks. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 60 Khz forthis setup. 


As an option, the user may connect a LED to pin 18 

on the PIC16CXX (use about a 1K resistor in series) as an 
acknowledge fail indicator. This LED will come on if 

the serial EE fails to acknowledge correctly. 


PIC16CXX to Serial BFE Connections: 
PIC16CXX Serial EE 


Pin 12 (RB6) —> SCLK 
Pin 13 (RB7) —> SDATA 


PIN 18 (RA1) —> Acknowledge fail LED (Optional) 


HHKK KI KKK KKK KK KKK KEK KK KK KK KKK KKK KKK KEKE KKK KEKE KKKK KKK KKK 


“a se Se 7e Ye Ms Te 2 Te Te MS “8 TS MS Ys MS Ve Ms S82 Ss Me Me Fe TR te UME Ue lM UF Fe ON 


Register Definitions 

KEKK KKK KK KKK KKK KK IKKE KK KK IKKE KKK EK KKKKKKKEKKHEKKKKKKKK KK KKK KK 
port_a equ Sh ; port 5 (port_a) used for LEDs 
port_b equ 6h ; port 6 (port b) used for data and 

; clock lines 

eeprom equ (Oah ; bit buffer 
byent equ Obh ; byte counter for read mode 
addr equ. Och ; address counter 
Catal equ Odh ; data input register 
datao equ 0eh ; data output register 
slave equ Ofh ; device address (1010xxx0) 
txbuf equ 10h ; transmit buffer 
count equ 11h ; bit counter 
beount equ 12h ; byte counter 
loops equ 15h ; delay loop counter 
loops2 equ 16h 7; delay loop counter 
g HKK KK KEK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KEK KEK EK KEK KK KEKK KKK 
; Bit Definitions 
gE KKKKKK KK KKK KKK ERK EK KK KKK KKK KKK KKK KKK KK KK KK KKK KK KK KEE KKK 
d equ 7 7; eeprom input bit 
do equ 6 ; eeprom output bit 
sdata equ 7 ; serial EE data line (port_b,pin13) 
sclk equ 6 ; serail EE clock line (port_b,pin 12) 


ackf equ 1 ; acknowledge fail LED, port_a 
gp KHKRK KKK KEE KK AE KK KEKE IKK KEKE RIKER KKK KERR KEK KEK KK EAE KEKE RE K 


“=e 


org 01ffh ; set reset vector 
goto PWRUP 
org 000h ; 


goto PWRUP 


KEKKKKKK KKK KKK KA KKK KKK IKK KKK KKK KEK KKK KEK KEKE KK KK KEK 


Start Bit Subroutine 
this routine generates a start bit 


(Low going data line while clock is high) 
KKKKKKKKKKKKKE KKK KKK KKK KEKE KKK KK KKK KKK KKK KEKKKKKKKREKEKEEKKK 


~s ~s “es “es “ses se ~e 


BSTART 
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bsf port _b,sdata ; make sure data is high 
moviw b’00111111' 
tris port_b ; set data and clock lines for output 
bef port_b,sclk ; make sure clock is low 
nop 
bsf port b,sclk ; set clock high 
nop 
nop 
nop 
nop 
nop 
bcf port _b,sdata ; data line goes low during 
; high clock for start bit 
nop 
nop 
nop 
nop 
nop ; timing adjustment 
bef port_b, sclk ; start clock train 
nop 
nop 
retlw 0 
: End of Subroutine 
PRK RR KKK KK KK KR KK KK KK KKK KK IK KKK KKK KK KKK KK KKK KKK RK KK KKK KKK KK KK 
: Stop Bit Subroutine 
: This routine generates a stop bit 


: (High going data line while clock is high) 
PRR KKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKKKK KKK KK KK 
BSTOP 
movlw b’00111111' ; 
tds port_b ; set data/clock lines as outputs 
bef port_b,sdata ; make sure data line is low 
nop 
nop 
nop 
bsf port_b,sclk ; set clock high 
nop 
nop 
nop 
bsf port_b,sdata ; data goes high while clock high 
; for stopbit 
nop 
nop 
bcf port_b,sclk 7 set clock low again 
nop 
nop 
nop 
retlw 0 


; 

; End of Subroutine 

PR RRR KR KKK KK KKK KKK KKK KK KK KK KR KK KK KKK KK KK KKK KKK RK KKK KK KKK KR KK KK 
: BITOUT routine takes one bit of data in ‘do’ and 


: transmits it tothe serial EE device 
PARARKKKKKKKKK KKK KKK KKK KK KKK KK KKK KK KKK KK KKK KKK KKK KK KKK KKKKKKEKK KK 





BITOUT 
movilw b’00111111' ; set data, clock as outputs 
tris port_b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow : 
bsf port_b,sdata ; set data line high 
goto clkout 7 go toggle the clock 
bitlow bef port_b,sdata ; output a lowbit 
clkout bsf port_b,sclk ; set clock line high 
nop 
nop 
nop 
nop 


Ss a ge ee ee ee 
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bef port_b,sclk ; returnclock line low 


retlw 0 
. End of Subroutine 


; 
pK RAK KR KKK KK RK KKK KARR KKK KK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KK KKK KKK 
: BITIN routine reads one bit of data fromthe 


. serial EE device and stores it in ‘di’ 
J RR RKRRKEK KKK KKK KKK KKK KKK RK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KK KK 


BITIN 
bsf eeprom, di ; assume input bit is high 
movlw be LOLLIaT ; make sdata an input line 
tris port _b . 
bsf port_b,sdata 7 set sdata line for input 
bsf port_b,sclk 7 set clock line high 
nop ; Just sit here a sec 
nop 
nop 
nop 
nop ; 
btfss port_b,sdata ; read the data bit 
bcf eeprom, di ; input bit was low, set ‘di’ accordingly 
bet port_b,sclk ; set clock line low 
retlw 0 


7 

pRKRRR RK RK RK KKK KKK KK IKK KK KKK KKK KKK KK KKK KK KK KKK KKK KKK KKK KKK KK KKK KK 
Transmit Data Subroutine 

This routine takes the byte of data stored in the 

‘datao’ register andtransmits it to the serial EE device. 


we Ne 


“eo 


It will then send 1 more clock to the serial EE for the 
: acknowledge bit. If the ack bit fromthe part was low 
; then the transmission was sucessful. If it is high, then 
: the device did not send a proper ack bit and the ack 
fail LED will be turnedon. 
PRK KAR RIK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KK KK KK KKK KKK KKK KK KKK KKK KKK 
TX 
movlw .8 
movwf count ; set the #bits to 8 
TXLP 
bet eeprom, do ; assume bit out is low 
btfsc txbuf, 7 ; isbit out really low? 
bsf eeprom, do 7 no, set it high 
cll BITOUT ; send the bit to serial EE 
xf txbuf ; rotate txbuf left 


8 bits done? 
no - go again 


decfsz count 
goto TXLP 


‘eo 


=e 


call BITIN ; read ack bit 

btfsc eeprom, di ; check ack bit 

bsf port_a,ackf © 7; set acknowledge fail LED if the 
; device did not pull data low 

retlw 0 


; 
pRRARKRK RK KR KKK KK KKK KKK KKK KKK KKK KKK KKK KR KKK KK KK KKK KKK KK KKK KKK KKK KKK 


; Receive data Routine 
: This routine reads one byte of data fromthe part 
; into the ‘datai’ register. It then sends a high 
; ack bit to indicate that no more data is to be read 
PRA KAKAK KKK KK ERK RK KKK KKK KKK RK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK 
RX 

moviw  .8 ; set #bits to 8 

movwf count 
RXLP xf datai ; rotate datail bit left 

call BITIN ; readabit 

btfsc eeprom, di 
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bsf datai,0 ; set bit 0 if necessary 
decfsz count ; 8 bits done? 

goto RXLP 7 no, do another 
retlw 0 


PIR III TK I I KTR I RII IK TI IT III IKI AIK II III ISI A III AA IIIA SI AI IAAI I 
Power up routine 


This is the programentry point, whichinthis case simply 
sets the port_a I/O lines and directs control to the 


rg =p @s ~s “se se Te Ww 


Read routine. 
KKKAKAKKKAKREKEKEKAKK KEKE KKKKKKKK KKK KEKE KEKKEKKKEKEEKAEKKKEKKEKEKKKKKKE 
WRUP 

movlw b’ 00000000! 
tris port_a 7; set port Aas all output 
clrf port_a ? all output lines low 
goto READ 


KAKKKRKKKKKK KKK KA KKK AK KKK KEI KK KEKE KEKE KKK IKKE KEK KEKE 


READ (sequential read routine) 


This routine reads 8 consecutive addresses of the 
serial EE device starting at address 00 inthe 

sequential read mode. Reading in this mode is more 
efficient than the random read mode as the control byte 
and address have to be sent only once at the beginning 
of the sequence. As many consecutive addresses as 
needed can then be read fromthe part until a stop bit is 
sent. In the read mode, the PIC16CXX must send the acknowledge 
bit after every 8 data bits fromthe device. When the 
last byte needed has been read, then the controller will 
send a high acknowledge bit and then a stop bit to halt 


transmission fromthe device. 
KIKI AKA KAKA KI K KKK KKK KKK KKK KKK KKAKKKKKKEKKEKKKKKKKKKKEK 


=e “s ~s ee ws ~s Te Ve Te TS “SB RH MH Tse TSA WH WB 


READ 
bef port_a,ackf ; clear the ack fail LED if on 
moviw 8 
movwf bcount ; set number of bytes to read as 8 
movlw b’10100000' 7 set slave address and write mode 
movwf slave 
cht addr ; set starting address to 00 
call BSTART 7 generate start bit 
movf slave,w ; get slave address 
movwf txbuf ; into transmit buffer 
call TX 3 and send it 
movft addr, w ; get word address 
movwf txbuf ; into transmit buffer 
call TX 7 and send it 
call BSTART ; generate start bit 
movilw b’10100001' 7 get slave address and read mode 
movwf txbuf ; into transmit buffer 
call TX ; andtransmit it 
rbyte call RX ; read 1 byte fromdevice 
decfsz bcount ; are all 8 bytes read? 
goto lowack ; no, send low ack and do another 
bsf eeprom, do 7 yes, sendhigh ack bit 
call BITOUT ; to stop tranxmission 
call BSTOP 7 and senda stop bit 
goto READ ; start all over 
lowack bcf eeprom, do 7 send low ack bit 
call BITOUT ; to continue transmission 
goto rbyte ; and read another byte 
END 
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USING THE SMART SERIAL™ 
SERIES 


With the advent of CMOS silicon devices came the 
battery powered application. The battery powered 
application required more functionality and thus more 
power from the microcontroller which required more 
power from the batteries which cost more. Just as 
nature has a definite cycle, so it seems, does the 
portable application. Nowhere has this been more evi- 
dent than in the areas of personal communication and 
data acquisition. Never before in the history of the 
industrial revolution have the type of applications seen 
emerging today been possible. Every man-made object 
that requires human or machine interface, has the 
potential to be controlled by embedded circuits and to be 
powered by the advanced technology batteries avail- 
able today. Along with this increased functionality 
comes the requirement for MORE MEMORY. More ina 
smaller package, at a better price requiring less power. 
The majority of the hand-held embedded applications 
either use what little non-volatile memory that is avail- 
able on the controllers or they use external devices. 
Parallel EEPROMs require too many I/O connects, 
which is the major source of device active current. Serial 
EEPROMs are typically the. answer for these applica- 
tions and the industry standard |?C™ is the industry 
leader (>70 % worldwide). The l?C standard specifies 
a maximum 16k bit address space. How does the 
personal communications system designer, who re- 
quires more memory, solve this problem? 


THE ?C DILEMMA 


The I?C serial bus has many advantages over other 
common serial interfaces for serial embedded devices. 
The I?C bus with level-triggered inputs offers better noise 
immunity over edge triggered technology. Op codes are 
not needed to communicate with storage devices be- 
cause all interfaces are intuitive and comparable to 
parallel devices. The I?C protocol assigns a slave 
address for each unique device or device family. Micro- 
chip Technology, and most non-volatile suppliers, use 
the slave address of 1010 for serial electrical erasable 
programmable read only memory (Serial E?7PROM). 
The protocol also facilitates up to a maximum of 16K 
bytes of memory on the bus via the 8-bit address and the 
three device or memory block select pins AO, A1, and 
A2. Here lies the dilemma: with the advent of the more 
sophisticated personal communication devices such as 
cellular and full featured phones, personal digital assis- 
tants and palm-top computers, 16K bytes is not enough! 


Smart Serial Products 


The Smart Serial concept grew from the industry need 
for increased memory requirements in l2C embedded 
applications, smarter endurance performance, security 
needs, and the need for more functionality at lower 
power demands. Currently, Microchip Technology Inc. 
has the 24C65 and 24C32 devices available. All com- 
ments in this application note pertain primarily to the 
24C65 but the routines and general architectural com- 
ments apply to the 24C32 as well. 


The user should reference the individual data sheets for 
specific differences. 


The Microchip Technology Inc. 24C65 is aserial memory 
device with 64K bits (8Kx8) capacity and additional 
patent pending unique features not found any where 
else. First let's look at the current I?C addressing 
scheme, the cascadable solution, and finally the Micro- 
chip total embedded systems solution. 


?C ADDRESSING 


The 1?C protocol utilizes a master/slave bi-directional 
communication bus. The master, usually a microcon- 
troller, which controls the bus, generates the serial clock 
(SCL) originates the start and stop conditions. A Serial 
EEPROM is considered a slave device and is defined as 
a transmitter during read operations and generates 
acknowledges when receiving data from the master. 
The start and stop bits are utilized to control the bus. 
Normal operation begins with a start bit and ends with a 
stop bit. Following a start, commands begin with an 8 
bit ‘control’ byte originated by the master. The control 
byte identifies the slave device to be addressed and 
defines the operation to take place. A typical control byte 
for a Serial EEPROM (slave address = 1010) is shown 
in figure 1. The control byte, therefore, consists of a start 
bit, a four-bit slave address, a read/write bit and an 
acknowledge. The slave address consists of the 1010 
identifying address plus the three block or chip select 
bits. 
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FIGURE 1- CONTROL BYTE 
ALLOCATION 


' START READ/WRITE 


|| SLAVE ADDRESS 
/ \ 


\ 
Z- \ 


All memory and peripheral devices on the I?C bus 
conform to this sequence for identification and selection. 
There are 128 assigned slave addresses in the standard 
protocol. There is a 10-bit extension to the protocol for 
1024 additional slave addresses. 


THE CASCADABLE SOLUTION 


Cascading is an addressing scheme used in the 24164 
(2Kx8 SEEPROM) to enable using more than the 16K 
limit set forth by the standard. In this method the AO, A1, 
and A2 pins are mapped into bits 2, 3, and 4 of the 8-bit 
slave address. This approach allows the system de- 
signer to use the non-standard 24164 to increase the 
total memory of a given memory subsystem. This 
solution is definitely workable, but does not offer the user 
the system design flexibility needed for the newer and 
more complex systems. Most system architects would 
prefer to have a linear address space for program and 
data memory. Programmers also find the linear solution 
more attractive. The overhead required for bank switch- 
ing and chip selection usually requires additional over- 
head and hardware. 


THE ULTIMATE SOLUTION BY 
MICROCHIP 


Microchip Technology Inc. has designed an addressing 
scheme based on the standard |?C protocol and device 
addresses but incorporating an additional address byte 
for enabling the designer to use up to 256K bits per 
device and add from 1 to 8 devices on the system bus. 
This flexibility allows for future memory expansion and 
more advanced features in a smaller, more cost effec- 
tive, design. This enhanced addressing combined with 
the many advanced and patent pending features of the 
24C65 make the 24C65 an exciting and innovative 
device. It is the first in a family of sophisticated Smart 
Serials™ EEPROMs from Microchip Technology Inc. 





24C65 Features 


The 24C65 has an advanced architecture with the 
following features: 


* 15-bit, 2-byte address field (14 bit for the 24C32) 


¢ 4K-bit High Endurance Block - 1 Million E/W cycles 
typical (Fixed at the last 4k bit block in the array) 


¢ Programmable write protect security features with up 
to a 15 blocks of 4K bits 


¢ 8 byte by 8 line input write cache for I?C Fast Mode, 
burst mode capability, and use as a capture buffer 


24C65 Addressing 


For the first byte or control byte, the 24C65 adheres to 
the I?C protocol (reference figure 2). This is the first byte 
received following the start condition from the master 
device. The control byte consists of a four-bit control 
code for the 24C65 (this is assigned as 1010 binary for 
read and write operations). The next three bits of the 
control byte are the device select bits (A2, A1, AO). They 
are used by the master device to select which of the eight 
devices are to be accessed. These bits are in effect the 
three most significant bits of the word address. The last 
bit of the control byte defines the operation to be per- 
formed. When set to a one a read operation is selected, 
when set to a zero awrite operation is selected. The least 
significant 13 bits of the next 2 bytes define the address 
of the first byte within the 8K block. The most significant 
byte is transferred first. Following the start condition, 
the 24C65 monitors the SDA bus, checking the device 
type identifier being transmitted, upon receiving a 1010 
code and appropriate device select bits, the slave device 
outputs an acknowledge signal on the SDA line. De- 
pending on the state of the R/W bit, the 24C65 will select 
a read or write operation. 


The addressing scheme uses the standard first byte 
slave address format of the I?C standard with the Micro- 
chip Technology-assigned 1010 slave address. The 
internal bus controller scans the next byte for bit 7 to be 
asserted indicating that a security operation is to take 
place. This will be further explained later. The remain- 
der of the byte is composed of the most significant 
address bits. The next byte is the least significant 
address byte. See figure 2 for graphical representation 
of this sequence. After receiving a valid 2 byte address 
and a stop bit, the 24C65 will process this address 
according to bit zero of the control byte and either wait 
for data to be written, if in a write sequence, or present 
the requested data if in a read sequence. 


ADVANCED FEATURES 


Programmable security — 


The 24C65 has a sophisticated security mechanism by 
which selected blocks of memory may be write protected 
by the user. The write sequence includes a bit for 
enabling the security protection scheme, bit 7 of the first 
address byte. When this bit is set to a one, the first byte 
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following the address during a write sequence defines 
the security block. This includes a pointer to the starting 
4K block to be protected (the write address), a write/ 
erase flag, and anon zero four bit code for determining 
the number of 4K blocks to protect up to the maximum 
of 15 (60K). The 4K blocks must be contiguous. The 
high endurance block cannot be protected. In anormal 
application the security block or blocks would be set after 
all code or look-up table data has been finalized. THIS 
OPERATION CAN ONLY BE PERFORMED ONCE. 
(See Figures 2 and 3.) 


Total Endurance™ 


When defining endurance, we need to look at a few 
common definitions and possible misconceptions. 
Endurance with respect to EEPROMs is defined in 
number of Erase/Write (E/W) Cycles and is the most 
common rating referred to when discussing or specify- 
ing endurance. E/W ratings are based on the environ- 
mental and operating conditions of voltage, tempera- 
ture, cycling mode and rate, for each byte in the applica- 
tion, not on the number of op codes or control byte 
commands, and is never based on any read functions 
whether they be a data read or configuration read. If a 


FIGURE 2 - CONTROL BYTE ALLOCATION 


START READ/WRITE 


A “ 


_ SLAVE ADDRESS 
pt fo ft fo faef a] ao 


FIGURES - BYTE WRITE 
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SDA LINE il 


BUS ACTIVITY 
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K 


BYTE ADDRESS (1) 
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A 
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f 
BUS ACTIVITY: A CONTROL WORD 
R 
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part is rated at 100K E/W cycles, then each individual 
byte can be erased and written 100,000 times. This is 
probably the most common misinterpretation made by 
system designers. Endurance is thus an interactive 
application-specific reliability parameter. It is not a 
typical data sheet specification, such as a parametric 
AC/DC specification with benchmark standards for mea- 
surement. Microchip has done extensive predictive 
laboratory studies on Microchip 2- and 3-wire Serial 
EEPROMs. Applying the predictive data, from the 
24LC04 which has similar characteristics, to the 4K high 
endurance block and assuming the following: 


* a five-year life for a personal communication device 
* an expected E/W cycles of 10 times per day 
¢ a last number redial function of 11 bytes 


Operational specifications: 


Device 24C65 
Voltage 5 
Temperature 25C 
Bytes/Cycle 11 
E/W/Day 10 

App. Life (Yr.) 5 
Cycling Mode BYTE 
Data Pattern RANDOM 


The 4k HE block with 1 M E/W cycles typical, in this 
application, should yield the following results: 


FIT 1.0 
PPM 6 
Time 5.0 


Write cycles 18,250 


WORD 
ADDRESS (0) 


A 
C 
K 





A EE 
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FIGURE 4 - PPM RATE IN MILLIONS OF 
CYCLES ~ 
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The results shown are predictive in nature and should 
reflect an accurate representation of the expected re- 
sults. For a more detailed description of endurance see 


the related application notes AN537 and AN562 con- 


tained in this volume. (See Figure 4.) 
64 Byte Write Cache 


The cache is arranged in 8-byte pages by 8 lines each. 
This yields a total of 64 bytes. The interface to the 24C65 
supports both the standard 100 kHz mode and FAST 
mode at 400 KHz. The input cache can therefore support 
a burst write option of up to 64 bytes. When using the I?C 
protocol, an end of a page is defined by the transmission 
of a stop bit by the master. This sequence in the 24C65 
could be used to define pages from 8 to 64 bytes in 
length. The 8 byte by 8 line cache will roll over if a write 
is attempted past byte 8 of line 8, thus it can be used as 


a 64 byte capture or snapshot buffer. Each line is over 
written during a subsequent write to the same line. 
Faster memory and controller interfaces will become 
increasingly important in applications incorporating the 
ACCESS.bus interface standard. . | 


Power Management 


Increasingly, power management is becoming a pre- 
dominant requirement for hand-held devices where a 
limited amount of power is available from the total power 
budget for a particular function. The 24C65 has built- 
in power saving features such that the entire device is 
put into standby mode upon receiving a stop bit or an 
abort when in aread sequence, and after the completion 
of writing the data in the cache lines to the array when in 
a erase/write sequence. When the device is in standby 
mode, the only active circuit is the input circuit for the I?C 
clock. This yields a standby current that is the current 
consumption of this lone input and the normal leakage 
current of the silicon and typically will be less than 2 LA. 


The 24C65 is the first device available in the Smart 
Serial product line. The features and capabilities initi- 
ated with this device will become standard on all future 
Microchip Technology Inc. serials and some features 
will be enhanced, such as the security options. 


Appendix A of this application note contains the required 
PIC16C54 assembly routines for setting the security 
function, addressing the Smart Serial devices and using 
the most common addressing, read, write, and data 
polling functions for the I?C bus. 


All of the list programs are complete stand-alone pro- 
grams. 


AUTHORS: Richard J. Fisher 
Memory Products Division 


Bruce Negley | 
Memory Products Division 
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FIGURE 5 - CACHE WRITE 
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APPENDIX A 


LIST P=16C54 
KKK KAKA IKE KKK KE KIKI IKK AKER EEE ERIK RII KI IN IKI I IK AIA 


64K Byte Read Program (138 bytes) 


This program demonstrates howto interface a 
Microchip PIC16C54 to a 24LC65 Serial E2 device 
and performa random read operation. This program 
will read 8 consecutive addresses inthe ‘random 
read’ mode. This entails setting the address pointer 
before doing the read command for each address. 


Another, more efficient method of reading consecutive 
addresses is the ‘sequential read’ mode. This involves 
sending the control byte and address for the first byte 
to read, then continuing to provide clocks for the next 
addresses. The device will automatically increment the 
address. An example of the sequential read mode is 
provided in the ’ 64kseqr.asm’ file. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 60 Khz for this setup. 


As an option, the user may connect a LED to pin 18 

on the PIC16CXX (use about a 1K resistor in series) as an 
acknowledge fail indicator. This LED will come on if 

the serial EE fails to acknowledge correctly. 


PIC16CXX to Serial EE Connections: 
PIC16CXX Serial EE 


Pin 12 (RB6) —> SCLK 
Pin 13 (RB7) —> SDATA 


PIN 18 (RA1) —> Acknowledge fail LED (Optional) 


KKK KKK KK IKK IKK KKK KA KKK KKK KKK KEKE KKK KKK AKKEEKKKKKKKKKKKKK 


™s Se ~s ~s “co “ao ~e ee “se %e es ~“s We Me Me Me Te Ye 8S Ve “2 “se WS Te Tse Te MS WE TSA VS “se WS Ve Ws Ve VO “SG Ws ws 


Register Definitions 
9 RRA KKKK KKK KK KK KK KK EKER KH IKK KEK KEK KKK KIT KIKI KEKE KKK KEK KAIBA 
port_a equ Sh ? port 5 (port a) used for LED display 
port_b equ 6h ; port 6 (port b) used for data and 
; clock lines 
eeprom equ Oah © ; bit buffer 
byent equ) Obh 7 byte counter for read mode 
addr equ. Och ; word 0 address counter 
datai equ. Odh ; data input register 
datao equ Oeh ; data output register 
slave equ Ofh ; device address 1010xxx0) 
txbuf equ. 10h ; transmit buffer 
count equ ilih . ; bit counter 
beount equ 12h ; byte counter 
loops equ 15h ; delay loop counter 
loops2 equ 16h ; delay loop counter 
addrl equ 17h ; word 1 address counter 
g KKKK KKK KKK KK KK RI KK EK KKK KK KIRKE KIKI KIKI KEITH EI KARI 
: Bit Definitions 
g KAKA KKK RK KEK KK RK KE KKK KEKE K KKK KEK KKK KK KKK KEK KK KKK KKEKKKEA 
d equ 7 ; eeprom input bit 
do equ. 6 7; eeprom output bit 
sdata equ 7 ; serial EE data line (port_b,pin 13) 
sclk equ. 6 ; serail EEclock line (port_b,pin12) 


ackf equ il ; acknowledge fail LED (port_a) 
fK III II RIKKI KIKI KI KIKI A IIR IIIA IK IIIA II IIIA IIA IIIA I IK 
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org OLE Eh ; set reset vector 
goto PWRUP 
org 000h ; 


goto PWRUP 


PRK KR KR RK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK 


; DELAY ROUTINE 
; This routine takes the value in ‘loops’ 
: andmultiplies it times 1 millisecond to 
; determine delay time. 
PRK KARR KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK RK KKK KK KKK KKK KK KKK KKK KKK 
WAIT 
Lop movlw mel ty ©) ; timing adjustment variable 
movwf loops2 
top2 nop ; Sit andwait 
nop 
nop 
nop 
nop 
nop 


decfsz  loops2 
goto top2 


; inner loops complete? 
no, go again 


~ 


se 


decfsz loops 
goto top 
retlw 0 


; outer loops complete? 
no, go again 
yes, return from sub 


se Of 


‘e 


° 
v 


PRK RRR RRR KKK KKK KK KK KKK KKK KKK KKK KKK KK KKK KKK KK AK KK KKK KK KKK KK KK KK 


; Start Bit Subroutine 
; this routine generates a start bit 
; (Low going data line while clock is high) 


P RAR KKK RK KKK KKK KKK KKK RK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK 
BSTART 

bsf port_b,sdata ; make sure data is high 

movlw b’00111111' 

tris port _b ; set data and clock lines for output 

bef port_b, sclk ; make sure clock is low 

nop 

bsf port_b, sclk ; set clock high 

nop 

nop 

nop 

nop 

nop 

DCE port _b,sdata ; data line goes low during 
; high clock for start bit 

nop 

nop 

nop 

nop 

nop ; timing adjustment 

bef port_b, sclk ; Start clock train 

nop 

nop 

retlw 0 


PRAKKRKRKR KK KKK KKK KK KKK KKK KK KK KK KKK KKK AK KK KKK KKK KKK KKK KKK KKK KK KK 





; Stop Bit Subroutine 

: This routine generates a stop bit 

; (High going data line while clock is high) 

pK RRR KKK RK KKK KKK KK KK KKK KK KK KKK KKK KKK KK KK KKK KKK KKK KK KKK KK KKK K 

BSTOP 
bef port_b,sdata ; make sure data line is low 
moviw b’00111111' ; 
tris port_b ; set data/clock lines as outputs 
bef port_b,sdata ; make sure data line is low 
nop 
nop 


Ta CA aS SA ST ST NAS SST TE SE CTT, 
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nop 
bsf port_b, sclk ; set clock high 
nop 
nop 
nop 
bsf port_b,sdata ; data goes high while clock high 
; for stopbit 
nop 
nop 
bef port_b, sclk ; set clock low again 
nop 
nop 
nop 
retlw 0 
ESE IH IS IIIT IGS ITI IAI II IOI III II IIE 


; BITOUT routine takes the bit of data in ‘do’ and 
: transmits it to the serial EE device 
pRKK ARK KKKR KKK RK KK KK KKK KK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KK KKK KK 
BITOUT 
movlw b’00111111' ; set data, clock as outputs 
tris port_b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow ; low? go set data line low 
bsf port_b,sdata ; high? set data line high 
goto clkout 3; go toggle the clock 
bitlow bcf port_b,sdata © ; output alowbit 
clkout bsf port_b,sclk ; set clock line high 
nop 
nop 
nop 
nop 
bef port_b,sclk ; return clock line low 
retlw 0 


; 
pRKRRK RAK KKK KK RK KKK KK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK 
; BITIN routine reads one bit of data fromthe 


; serial EE device and stores it inthebit ‘di’ 
PRK RRR KKK RK KK KKK KKK KKK KK KK KK KKK KKK KK KKK KK KKK KKK KKK KK KKK KK KR KK KK 


BITIN 
bsf eeprom, di ; assume input bit is high 
moviw Be LOL bac ; make sdata an input line 
tis port_b 
bsf port_b, sdata ; set sdata line for input 
bsf port_b,sclk ; set clock line high 
nop ; Just sit here asec 
nop 
nop 
nop 
nop ; 
btfss port_b, sdata ; read the data bit 
bet eeprom, di ; input bit was low, set ‘di’ accordingly 
bef port_b,sclk ; set clock line low 
retlw 0 ; 


° 
vv 


PRRRRKRAKK KKK KKK KKK KK KK RK KKK KK RK KK KKK KKK AK KKK KK KK KKK KK KKK KKK KK KK KK 


i Transmit Data Subroutine 


: This routine takes the byte of data stored inthe 

: ‘datao’ register andtransmits it to the serial EE device. 

; It will then send 1 more clock to the serial EE for the 

; acknowledge bit. If the ack bit fromthe part was low 

; then the transmission was sucessful. If it is high, then 

; the device did not send a proper ack bit and the ack 

: fail LED will be turnedon. 

PR RK KK KR KK RRR KKK KKK KK KEK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK K 
TX 


moviw 8 
movwf count ; set the #bits to 8 


a Re Sc I SI SL LT SE ETT 
DS00558A-page 8 © 1993 Microchip Technology Inc. 
6-58 


Using the 24C65 and 24C32 





TXLP 
bef eeprom, do ; assume bit out is low 
btfsc txbut, 7 is bit out really low? 


“Ne 


bsf eeprom, do ; no, set it high 
call BITOUT ; sendthe bit to serial EE 
sain txbuf ; rotate txbuf left 


8 bits done? 
no - go again 


decfsz count 
goto TXLP 


=e 


“ee 


call BITIN ; readack bit 

btfsc eeprom, di ; check ack bit 

bsf port_a,ackf ; set acknowledge fail LED if the 
; device did not pull data low 

retlw 0 


RRR KR RK K KKK KKK KKK KKK KKK KK KK KK KKK KKK KR KK RK RK RR KK KK KKK RK RRR KKK KK 
iH Receive data routine 


; This routine reads one byte of data fromthe part 
; into the ‘datai’ register. It then sends a high 


ack bit to indicate that no more data is to be read 
PRK KRKKKK RR KK KKKK KK RK KK KKK KK KKK KKK KKK AK KKK KKK KKK KKK KK KKK KK KKK KKK KK 
RX 
clrf datai ; Clear input buffer 
moviw 8 ; set # bits to 8 
movwf count 
RXLP paia datai ; rotate datai 1 bit left 
call BITIN ; readabit 
btfsc eeprom, di 
bsf datai, 0 ; set bit 0 if necessary 
decfsz count ; 8bits done? 
goto RXLP ; no, do another 
bsf eeprom, do ; set ack bit =1 
call. BITOUT ; to finish transmission 
retlw 0 


, 

PRR KKK RK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
; Power up routine 

; This is the programentry point. I/O line status is 


; set for port Ahere. 
PRKRKKKKKKKKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KEK KKK KK KKK KK 


PWRUP 
movlw b’00000000' 
tris port_a ; set port Aas all output 
chef port a ; all output lines low 


goto READ 


SARI ET 
7 READ (read routine) 

; This routine reads 8 consecutive addresses of the 

: serial EE device starting at address 00 inthe 

; random access mode (non-sequential read) . Reading 

; the device using the random access mode 

; requires that the address pointer be set for every 

; byte before the read takes place. The address pointer 

; is set by sending a ‘write mode’ control byte with the 


; address of the location to read. 
PRRKRKK KK KK KKK KKK KR KKK KK KKK KKK KKK KK KKK KR RAK KK AK KKK KKK KKK KKK KKK RK AK 





READ 
bef port_a,ackf ; clear the ack fail LEDif on 
moviw 8 ; set number of bytes to readas 8 
movwf bcount ; 
chrf addrl ; set starting high address byte to 00 
clrf addr ; set starting low address byte to 00 
rbyte call BSTART ; generate start bit 


Ba TE BO TE a a ETAT ANN a EL TEER Eg I a a a. 
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moviw 
movwt 


movt 
movwt 


movf 
movwft 


decfsz 
goto 


moviw 
movwf 

call 

goto 


END 


b’10100000' 
txbuf 

TX 

addrl,w 
txbuf 

TX 

addr, w 

txbuf 

TX 


BSTART 
b’10100001' 

txbuf 

TX 

RX 

BSTOP 

addr 

bcount 

rbyte 


255 
loops 
wait 
READ 


ée 


Ty 


“ese ‘e “eo “Ne =e “eo “ee “e 


. 


. 


~ . 


. 


™e Ne ~ ‘=e 


“eo 


, 


e 
’ 


now send the write control byte and 
address to set the pointer 


get slave address (write mode) 
into transmit buffer 

and send it 

get word 1 address 

into transmit buffer 

and send it 

get word 0 address 

into transmit buffer 


; and send it 
; now read one byte from the part 


; generate start bit 

; get slave address and read mode 
; into transmit buffer 

; andtransmit it 


read 1 byte from serial EE 


; send stop bit to end transmission 


add 1 to address counter 
yes, are all 8 bytes read? 
no, do another byte 


; long delay for scope 


trigger purposes only 


; yes, start all over 


RR Ee EP SEN TEA ETA 
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LIST P=16C54 
KAKI IK KIKI KIKI III KEIR KIKI IIIA IAI IKI IAAI AAI AIS IAI SAS AA A. 


64K Byte Write Program (127 bytes) 


This program demonstrates howto interface a 
Microchip PIC16C54 to the 24LC65 Serial E2 device 
and performa byte write operation on 8 consecutive 
addresses. 


After each byte is written, time mst be given to the 
device for it to complete the write cycle before 

the next command can be sent. The easiest solution 
is to consult the data book for the maximum write 
cycle time and just wait that long before the next 
command is sent (10ms for this device). This program 
demonstrates that solution. 


Another, more efficient method of determining when the 
‘write cycle is complete is called ‘data polling.’ This 
method is demonstrated in the program “64kdpoll.” 


As an option, the user may connect a LED to pin 18 

on the PIC16CXX (use about a 1K resistor in series) as an 
acknowledge fail indicator. This LED will come on if 

the serial EE fails to acknowledge correctly. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 60 Khz forthis setup. 


PIC16CXX to Serial EE Connections: 
PIC1L6CXX Serial EE 


Pin 12 (RB6) —> SCLK 
Pin 13 (RB7) —> SDATA 


PIN 18 (RA1) —> Acknowledge fail LED (Optional) 


KKKKKKKKEKKKEKEEK KEKE KEKE KK KKK KEKE KKK KK KK KKK KKEKKKKKKKEKKKKEKK 


ws te “ses ~s *e ~s %s “8s 8 “Ss “8 se Ya “es THe “Ss Se “2 SB YS VE ~S Me MS VS YS TH TH TE MS FS Fe Fe Me UM Fe Fe Se Se 





Register Definitions 
g KKK KK KEK KEKE KK KKK KKK KK KK KKK KEK KEKE KR KKK KKK KKK KK EK KEKE REE KEK AK 
port_a equ 5h ; port 5 (port_a) used for LEDs 
port_b equ 6h ; port 6 (port b) used for data and 

; clock Lines 

eeprom equ Oah ; bit buffer 
byent equ Obh ; byte counter for read mode 
addr equ Och ; word 0 address counter 
datai equ Odh ; data input register 
datao equ Oeh ; data output register 
slave equ Ofh 3; device address (1010xxx0) 
txbuf equ 10h ; transmit buffer 
count equ Linh ; bit counter 
bcount equ 12h 7 byte counter 
loops equ Lon ; delay loop counter 
loops2 equ 16h 7; delay loop counter 
addri equ 17h ; word 1 address counter 
KKK KAKA K KKK KI KKK KEKE KKK IKKE KE RK KK EK RK KEKE ER EKERKEREREE KKK 
; Bit Definitions 
£ KKK KKK KK AK KK KHK KKK KAKI K KEK KEKE KK KK KEKE EERE KEKE RKEEEKKK KEK 
d equ) 7 ; eeprom input bit 
do equ 6 ; eepromoutput bit 
sdata equ 7 ; serial EE data line (port_b,pin 13) 


serail EE clock line (port_b,pin12) 
ackf equ 1 ; acknowledge fail LED (port_a,pin 18) 


gE KK KK KKK KKK KK KK KK KKK EK KK KEKE K ERE KKK HK KEKE KKH EKKKKEEKK EKER 


=e te 
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org 01ffh ; set reset vector 
goto PWR UP 
org 000h 3 


goto PWRUP 
, ba 
P RRR AK KK KKK KKK KR KKK KKK KKK RK KK KK KKK KR KKK KKK KKK ERK KKK KKK KKK KKK KK 


, DELAY ROUTINE 


: This routine takes the value in ‘loops’ 
j andmultiplies it times 1 millisecond to 
: determine delay time. 


PRK RR KER KKK KKK KKK KKK KR KKK KK KR KK KKK KK KK KKK KK RK KKK KEK KEK KKK KKK KK 


top moviw 110 ; timing adjustment variable 
movwf loops2 
top2 nop 7 Sit andwait 
nop 
nop 
nop 
nop 
nop 
decfsz loops2  ; inner loops complete? 
goto top2 ; no, go again 
decfsz loops ; outer loops complete? 
goto top 7; no, go again 
retlw 0 ; yes, return from sub 


pip SdHadG Hn HI HIE ine ai diadaiodiobniidniaridseniiidnbistiseiarinnia 
; Start Bit Subroutine 
: this routine generates a start bit 
p (Low going data line while clock is high) 
p RARER KKK RR KKK KKK KKK KKK KKK RR KKK KKK KKK KKK KKK KKK IKK KKK KKK KKK KR KK 
BSTART 
bsf port_b, sdata ; make sure data is high 
movilw b’00111111' 
tris port_b ; set data and clock lines for output 
bef port_b, sclk 7; make sure clock is low 
nop 
bsf port_b, sclk 7 set clock high 
nop 
nop 
nop 
nop 
nop 
bef port_b,sdata ; data line goes low during 
; high clock for start bit 
nop 
nop 
nop 
nop 
nop ; timing adjustment 
bef port_b, sclk ; start clock train 
nop 
nop 
retlw 0 


“ee 
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KAA AKAIKE EEE AK KKK KEK KEKE KKK KKKKKEKKKKKK 


Stop Bit Subroutine 
This routine generates a stop bit 


; 
, 
; 
: (High going data line while clock is high) 

g KKK K KKK HHI IK IK KIKI IK EK KI KKK KK KK KKK IK III KIKI KK KK IK KKK KEKE KA 
B 


movlw b’00111111!' ; 
tis port_b ; set data/clock lines as outputs 
bef port_b, sdata ; make sure data line is low 
nop 
nop 
nop 
bsf port_b, sclk ; set clock high 
nop 
nop 
nop 
bsf port_b, sdata ; data goes high while clock high 
; for stopbit 
nop 
nop 
bef port_b,sclk 7; set clock low again 
nop 
nop 
nop 
retlw 0 


KHAK KKK KKK KKK KEKE KKK KKK KEK KK KK KK KKK KK IKKE KEK KKK KKK KKEKKKKEK 


BITOUT routine takes one bit of data in ‘do’ and 


transmits it to the serial EE device 
FRR KK KKH KK KK KK KKK EK HKIK KK EK KK KKK KKK KEK KK KKK KEK KK KK KK KEK KEK 


=e se “es “8s 


BITOUT 
movlw b’00111111' ; set data,clock as outputs 
tris port _b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow ; 
bsf port_b,sdata 7 set data line high 
goto clkout 7 go toggle the clock 
bitlow becf port_b,sdata 7; output a low bit 
clkout bsf port_b,sclk 7; set clock line high 
nop 
nop 
nop 
nop 
bef port_b,sclk ; return clock line low 
retlw 0 


KKK KKK EK KEKE KKK REKKKEK EK KKK KKK KKK KIKI KKK KK KK KK KEE KKKEKE 


BITIN routine reads one bit of data fromthe 


serial EE device and stores it in ‘di’ 
KIKI KAKI KK IKI KK KKK KKK KKK KK KKK KKK KK KKK KKK KK KK KEK KK KKK KE KKK KKK KKK 


7a *e8 78s Te Ee 


E 
5 


assume input bit is high 
make sdata an input line 


bsf eeprom, di 
moviw b’10111111!' 
tris port_b 


7e oe 


bsf port _b,sdata *; set sdata line for input 
bsf port_b,sclk ; set clock line high 
nop ; just sit here a sec 
nop 

nop 

nop 

nop ; 

btfss port_b,sdata ; read the data bit 
bef eeprom, di ; input bit was low 
bef port_b,sclk 7; set clock line low 
retlw 0 ; 


7e 


‘SER PE SE SE SA PSC ST LA I A I RS SPATS 
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fp RRRRRKKKEK RRR KK KKK RR KK RK KR KEK EK EK RK KR KKK KK KEKE KKK KKK RK KK KK KKK KKK KA 


3 Transmit Data Subroutine 
; This routine takes the byte of data stored inthe 
; ‘datao’ register andtransmits it to the serial EE device. 
: It will then send 1 more clock to the serial EE for the 
; acknowledge bit. If the ack bit fromthe part was low 
; then the transmission was sucessful. If it is high, then 
; the device did not send a proper ack bit and the ack 
: fail LED will be turnedon. 
fA K RRR IKKE KK KK KKK KKK KER KKK KKK KKK KKK KKK KK KKK KKK KEK KKK KKK KKK KKK KKK 
TX 
movlw .8 
movwf count ; set the #bits to 8 
TXLP : 
bef eeprom, do ; assume bit out is low 
btfsc txbuf, 7 ; isbit out really low? 
bsf eeprom, do ; otherwise data bit =1 
call BITOUT ; serial data out 
xf txbuf ; rotate txbuf left 
decfsz count ; 8bits done? 
goto TXLP ; no-go again 
call BITIN ; readack bit 
btfsc eeprom, di ; check ack bit 
bsf port_a,ackf ; set acknowledge fail LED if the 
retlw 0 


, PRA KKRKKK RR KKK KKK KKK KKK KR KK KEK KK KKK KKK KK ERK KKK KKK KKK RKKK KKK KK KKK 


: Power up routine 
; This is the program entry point, which inthis case simply 
; sets the port_aI/O lines and directs control to the 
; byte write routine. 
PRK RRR KK EK KK KKK KKK KK KK KER KK RK RIK KKK KKK KEK KK KKK KK KKK KKK KKK KK KEKE KK 
PWRUP 
movliw b’00000000' 
tris port_a ; set port Aas all output 
clrf port_a ; all output lines low 
goto WRBYTE 


pRRRIKKK KKK ERK KKK KEK KKK ERK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK RE KER KK 


; Byte Write Routine 

; This routine writes the data in “datao” to 

8 consecutive bytes in the serial EE device starting 
; at address 00. This routine waits 10mS after every 
byte to give the device time to do the write. This 

; program repeats forever. 


PRK KRR KKK AK KK KR RK KKK KKK KKK KK KKK KKK KKK KK KR KKK KKK RK KKK KKKKKKKKRA KK KK 


° 
s 


WRBYTE 
cht port_a ; Clear all LEDs 
movilw b’10100000' ; set slave address and write mode 
movwf_ slave 
moviw b’01010101' ; set data to write as 55h 
movwf datao 
moviw  .8 ; set number of bytes 
movwf bcount ; towrite as to 8 
clrf addr1l ; set high address byte to 00 
clrf addr ; set low address byte to 00 
byte call BSTART 7; generate start bit 
movft slave,w ; move slave address 
movwf  txbuf ; intotransmit buffer 
call TX ; and send it 
movft addrl,w ; move word 1 address 


GASB FESS SS SS a CS ESE A DE SA SS SE CS 
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movwt txbuf into transmit buffer 


se 


call TX ; and send it 
movéf addr, w ; move word 0 address 
movwf  txbuf ; into transmit buffer 
call TX ; and send it 
movf datao,w ; move data byte 
movwf txbuf ; totransmit buffer 
call TX ; andtransmit it 
call BSTOP ; generate stop bit 
movilw .10 
movwf loops ; set delay time to give 
call WAIT ; 10ms wait after every byte 
anct addr ; add 1 to Low address counter 
decfsz bcount ; all 8 bytes written? 


goto byte ; no, do another byte 


, 


goto wrbyte ; start over 


END 
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LIST P=16C54 
KIA IA IKKE IK EK KIKI IKE KEK K AKAIKE ISK ER KIA AIEEE IAI ERRATA 


64K Byte Write With Data Polling Program (133 bytes) 


This program demonstrates howto interface a 
Microchip PIC16C54 to a 24LC65 Serial E2 device. 
This program performs a byte write operation on 8 
consecutive addresses using the data polling method 
to determine when the write cycle is complete. 


when writing to a serial E2 device, there are 2 

ways to handle the internal timed write cycle 

time of the device. The simplest method is 

simply to wait until the maximumcycle time 

is exceeded before attempting another command. 
The other, more efficient method is known as “data 
polling.” Data polling is done by sending a start 

bit and control byte to the part after the write 
cycle has been initiated bya stopbit. If the ack bit 
is low, then the device is through writing, otherwise 
the the sequence is repeated. If no low acknowledge 
is found within 40 attempts (about 10 milliseconds) 
then the routine times out and sets the timeout 
LED (pin 1) high. 


As an option, the user can connect a LEDto pin1 

on the PIC16CXX (use about a 1K resistor in series) as a 
timeout indicator. This LED will come on if the 

data polling is unsuccessful and the device being 

programmed does not respond. This can be tested by 

simply running the program with no part inthe socket. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 40 Khz forthis setup. 


PIC16CXX to Serial EE Connections: 


PIC16CXX Serial EE 


Pin 12 (RB6) —> SCLK 
Pin 13 (RB7) —> SDATA 


Pin 1 (RA2) —> Writecycle timeout fail LED (optional) 


KEKKKKK KKK KKK KK KKK KKK KK KKK KEKE KKK KK KKK KKK KKKKKEKKAKKK KKK 


Register Definitions 
KKKK KKK KEKE KKK KKK KI KKK KKK KKK KKK KKK KKKKEKKEKK AK KK KEK 


~s “se ~e es ea ~“s ~S “se Ve Te “Ss Se Sa Me Pe Ws Me WH Te WS WH MS Be MH WH TH TA WB WS WS W9Q SH TH Ve “8S TSH “HS VS MH SH F8 VS MH Ve THe Va VE 


port_a equ 5h 7; port 5 (port_a) used LEDs 

port_b equ 6h 7; port 6 (port _b) used for data and 
7 clock lines 

eeprom equ Qah ; bit buffer 

bycnt equ Obh ; byte counter for read mode 

addr equ Och ; address counter 

datai equ Odh ; data input register 

datao equ 0eh ; data output register 

slave equ Ofh 7; device address (1010xxx0) 

txbuf equ 10h ; transmit buffer 

count equ 1ih ; bit counter 

beount equ 12h 7 byte counter 

loops equ 15h 7; delay loop counter 

loops2 equ 16h 7 delay loop counter 

pollent equ 17h ; data polling counter 

addri equ 18h ; word 1 address counter 

g KKKKK KK KK KK KK KKEK KEK KKK K KEK KK KEK KEKE KKK KK AKIK KEKE KK EEK KEE KK 

; Bit Definitions | 

9 KKKKKAKKK KKK HK KEK KEK KARE KKK KK RK KKK KKKK KEK KKK KEKE KE KEK EERE 

d equ. 7 ; eeprominput bit 


do equ 6 ; eepromoutput bit 
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sdata equ 7 ; serial EEdata line (port _b,pin 13) | 
sclk equ 6 ; serail EEclock line (port_b,pin12) | 
timeout equ 2 ; write cycle timeout fail LED, port_a (pin1) | 
ackf equ 1 ; acknowledge fail LED, port_a (pin 18) 


PRR AKRKK KKK KA KKK KKK KK KKK KKK KK KK KKK KKK KK KK KK KKK KKK KKK KK KK KKK KKK 


. 
a 


org O1lffh ; set reset vector 
goto PWRUP 
org 000h ; 


goto PWRUP 


PRR RRR KKK KKK KKK KKK KKK IK KKK KK KKK KKK KKK KKK KK KK IKK KKK KKK RK KK KK KKK 


: DELAY ROUTINE 
; This routine takes the value in ‘loops’ 
; andmultiplies it times 1 millisecond to 
: determine delay time. 
PRK R RR KKK KKK KKK KK KK KKK KR KKK KK KK KK KKK KK KKK KK KK KKK KKK IK KK KKK KK KKK 
WAIT 
top movlw  .110 ; timing adjustment variable 
movwf loops2 
top2 nop ; Sit andwait 
nop 
nop 
nop 
nop 
nop 
decfsz loops2  ; inner loops complete? 
goto top2 ; no, go again 
decfsz loops ; outer loops complete? 
goto top ; no, go again 
retlw 0 ; yes, return from sub 


r 
PRRKKRKKRK KK REKKK KKK KARR K KKK KKK KK KKK KKK KKK KK KKK KKK KK KKK KKK KK KK KK AK 


; Start Bit Subroutine 
; this routine generates a start bit 
; (Low going data line while clock is high) 


PRR RAK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KK KKK KKK KKK KK KIKI KKK RK KK KKK KK 
BSTART 

bsf port_b,sdata ; make sure data is high 

movlw b’00111111' 

tris port_b ; set data and clock lines for output 

bef port_b, sclk ; make sure clock is low 

nop 

bsf port_b, sclk ; set clock high 

nop 

nop 

nop 

nop 

nop 

bcft port_b, sdata ; data line goes low during 

; high clock for start bit 





nop 
nop 
nop 
nop 
nop ; timing adjustment 
bcf port_b, sclk ; start clock train 
nop 
nop 
retlw 0 
; 
PRRRAKKKKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK 


; Stop Bit Subroutine 
; This routine generates a stop bit 
; (High going data line while clock is high) 


PARR KKK KKK KK KKK KKK KKK KK KK KKK KKK KKK KKK KK KKK KK KKK RK KKK EKER KK KKK 


SE SS SP PS STA Da SE SS EE A A 
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BSTOP 
movlw b’00111111' ; 
tris port_b ; set data/clock lines as outputs 
bef port_b, sdata ; make sure data line is low 
nop 
nop 
nop 
bsf port_b,sclk 7 set clock high 
nop 
nop 
nop 
bsf port_b,sdata ; data goes high while clock high 
; for stop bit 
nop 
nop 
bef port_b,sclk 7 set clock low again 
nop 
nop 
nop 
retlw 0 
| obinoriabinorioioniiiidbindioiidriaicinrinunioaioiioniionioiieniieieiniidctrtaek 


- BITOUT routine takes one bit of datain ‘do’ and 
transmits it to the serial EE device 
PR KKKRKRKA KK KKK RE RK KKK KKK KKK KK KKK ERK KK KK KK KKK KK KKK KK KKK KKK KKK KKK 
BITOUT 
movilw b’00111111' ; set data, clock as outputs 
tris port _b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow ; 
bsf port_b,sdata ; set data line high 


goto clkout ; go toggle the clock 


_ 


bitlow  bcf port_b, sdata 7; Output a low bit 
clkout bsf port_b,sclk 7 set clock line high 
nop 
nop 
nop 
nop 
bcf port_b,sclk ; return clock line low 
retlw 0 
; End of Subroutine 


7 
J RAKKRK KKK KKK RR KKK KKK RK KERR KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KK 


; BITIN routine reads one bit of data fromthe 
: serial EE device and stores it in ‘di’ 
PAKKKKRKKK KKK KR KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
BITIN 
bsf eeprom, di 7; assume input bit is high 
moviw b’10111111' ; make sdata an input line 
tris port_b 
bsf port_b, sdata 7 set sdata line for input 
bsf port_b, sclk 7 set clock line high 
nop ; just sit here a sec 
nop 
nop 
nop 
nop ; 
btfss port_b, sdata ; read the data bit 
bcf eeprom, di ; input bit was low 
bcf port_b,sclk ; set clock line low 
retlw 0 ; 


, 
ZR RRKRK KKK RAK RAK KKK KKK KKK KK KKK KKK ER KKK KKK KKK KKK KKK KKK KKK KKK KKK KK 


; Transmit Data Subroutine 
; This routine takes the byte of data stored in the 
; ‘datao’ register andtransmits it to the serial EE device. 


SS ee a a a eg fe Ane ec 
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; It will then send 1 more clock to the serial EE for the 

; acknowledge bit. If the ack bit fromthe part was low 
; then the transmission was sucessful. If it is high, then 
; the device did not send a proper ack bit and the ack 


: fail LED will be turnedon. 
PR RRRK KKK KKK KKK KKK KKK KK KR KKK KR KKK KK KK KK RK KKK KKK KKK KK KK KK KEK KEK KK KKK 
TX 
movlw 8 
movwf count ; set the #bits to 8 
TXLP 
bef eeprom, do 7; assume bit out is low 
btfsc txbuf, 7 ; isbit out really low? 
bsf eeprom, do ; otherwise data bit =1 
call BLTOUT ; serial data out 
xf txbuf ; rotate txbuf left 


8 bits done? 
no - go again 
read ack bit 


decfsz count 
goto TXLP 
call BITIN 


Ne Ne 


‘eo 


retlw 0 
AES INE EAS LA LEASES 
; Power up routine 
: This is the programentry point, which in this case simply 
; sets the port_aI/O lines and directs control to the 
; write routine. 
PARR KRKKKKKKKK KKK KKK RA KKK KK KK KKK KKK KKK KK KK KKK K KKK KKKKKKKKKKK KKK KKK 
PWRUP 
moviw b’00000000' 
tos port_a ; set port Aas all output 
clrf port_a ; all output lines low 
goto WRBYTE 


PRR KK KKK KKK KK KKK KK KKK KKK KKK KKK KK KK KK KK KK IK KK KKK KK KK IK KK KR KK KKK KK 


: Byte Write Routine with data polling technique 


: This routine writes the data in “datao” to 

: 8 consecutive bytes in the serial EE device starting 

F at address 00. To determine when the write cycle time 

of the device, the ‘data polling’ method is used. This 

: involves sending a start bit and control byte to the part 

; and checking for an acknowledge. If the ack bit is low, then 
; the device is through writing, otherwise the the sequence 

; is repeated. If no low acknowledge is found within 40 

: attempts (about 10 milliseconds) then the routine times 

; out and sets the timeout LED (pin 18) high. This program 
: will repeat forever. 

POSSESSES HEISEI IIT EI IO ORT I III IIIA I IIa A I Ik 


. 
, 





WRBYTE 
cif port_a ; all LEDs off 
movlw b’10100000' ; set slave address and write mode 
movwf slave 
movlw b’10101010' ; set data to write as AAh 
movwf datao 
moviw  .8 ; set number of bytes 
movwf bcount ; to write as to 8 
clrf addr1 ; set starting high address to 00 
clrf addr 7; set starting low address to 00 
byte cal BSTART 7 generate start bit 
movt slave,w ; move slave address 
movwf  txbuf ; into transmit buffer 
call TX ; and send it 
movf addrl,w ; move word 1 address 
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txbuf 


movwf ; into transmit buffer 
call TX ; and send it 
movft addr, w ; move word 0 address 
movwf  txbuf ; into transmit buffer. 
call TX ; and send it 
movt datao,w 7 move data byte 
movwf txbuf ; totranmit buffer 
call TX ; andtransmit it 
call BSTOP ; generate stop bit 
; now start polling fora lowack bit 
moviw -40 ; 
movwf pollcnt ; set max number of times to poll as 40 
poll call BSTART ; generate start bit 
movlw b’10100000' ; move slave address (write mode) 
movwf  txbuf ; intotransmit buffer 
call TX ; and send it 
btfss eeprom, di ; was the ack bit low? 
goto exitpoll ; yes, do another byte 
decfsz pollcmt ; 1s poll counter down to zero? 
goto poll ; no, poll again. Other wise the part is 
bsf port_a, timeout ; not responding in time so set timeout 
; LED and continue on 
exitpoll incf addr ; add 1 to address counter 
decfsz bcount ; all 8 bytes written? 
goto byte ; no, do another byte 
goto WRBYTE 7 yes, start over 


END 


So 
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LIST P=16C54 
FAIA KKK KS IKI KKK KEI K KKK IAAI III IISA KIARA KIKI KI II AAR IK 


64K Page Write Program (126 bytes) 


The 24LC65 has a page length of 8 bytes. This page 
can be used to write up to 8 bytes of data into the 
part before initiating the writecycle. Since the 

write cycle is timed the same for 1 byte or 8 bytes 
it is more efficient to use the page mode when 
consecutive addresses are being written to. 


When using page mode, the control byte, upper and lower 
addresses are sent for the first address only. After the 
data byte for the first address is sent, the data forthe 
next consecutive address is clocked in. This is 

repeated as many times as needed (as long as the page 
length is not exceeded) andthena stopbit is sent. 

The device will still acknowledge between every byte of 
data. After the stop bit is sent, the part will 

initiate the self timedwrite cycle. 


This routine waits approximately 10mS for the write 
cycle to complete for each page. Amore efficient 
method of determining when the write cycle is complete 
is called “data polling.” The data polling method is 
explained in the program“ 64kdpoll.asm.” That 
particular programuses data polling in a byte write 

mode but it can be used in exactly the same way for 

a page mode write. 


As an option, the user can connect a LED to pin 18 

on the PIC16CXX (use about a 1K resistor in series) as a 
acknowledge fail indicator. This LED will come on 

if the device being programmed does not senda low 
acknowledge bit at the proper times. This can be 

tested by simply running the program with no part 

in the socket. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds tothe serial EE 
will be approximately 40 Khz forthis setup. 


PICL6CXX to Serial EE Connections: 


PIC1OCXX Serial EE 


PIN 18 (RA1) —> Acknowledge fail LED (Optional) 





KKKKKKKKKKK KK KKK KEKE KEKE KE KK KEKE KK KEKE KEK KK EKER KK KKEKEKEERKKKK 


- ~ ~ ~ 7~ ~s f ~ ~ ~ - =e %e %%s ws ~ ~=s ~“s “se ese 2 Ye ~s Fe ~“s Se Vea “Ws WS 8S Ms ~“S WH Ye TH Pe Ve VS “SH MH WH MA WS Ve VME “HQ “s VS MH YS “SH MH VS 
s s 8 . e e . e 6 a s s 


Register Definitions 

SE RKKKK KKK KEK KK KEKE KKK KK KEKE KK KKK KKK KK RK KEK KKK KK KKK EKER EERE KEK 
port_a equ 5h ; port 5 (port_a) used for LEDs 
port_b equ 6h port 6 (port b) used for data and 
clock lines 

bit buffer 

byte counter for read mode 

word 0 address counter 


eeprom equ 0Oah 
byent equ Obh 
addr equ Och 


e "es -e ~e bad 


~ 








datai equ Odh ; data input register 

datao equ) Oeh ; data output register 

slave equ. Ofh ; device address (1010xxx0) 

txbuf equ 10h ; transmit buffer 

count equ 11h ; bit counter 

beount equ 12h ; byte counter 

loops equ 15h ; delay loop counter 
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loops2 equ 16h ; delay loop counter 

addrl equ 17h ; word 1 address counter 

PRR KRKKKKKK KKK KKK KKK KKK KK KKK KKK KERR KKK KR KKK KKK KKK KKK KKK KK KKK EK 
: Bit Definitions 

PRR RR RK KKK KKK EK KAR KKK KKK KKK KKK KKK KKK KK RR KK KKK KKK RR KKK KKK KKK KR 


equ) 7 ; eeprominput bit 


do equ) 6 ; eepromoutput bit 

sdata equ 7 ; serial EE data line (port_b,pin 13) 
sclk equ 6 ; serail EEclock line (port_b,pin12) 
ackf equ 1 ; acknowledge fail LED (port _a,pin 18) 


PRK KRRKKK RK KKK RK KKK KKK RK EK KKK RK KK KR KKK KKK KKK KKK KKK KKKKK KKK KKK 
; 


° 
a, 


org 01ffh ; set reset vector 
goto PWRUP 
org 000h ; 


goto PWRUP 
; 
PRK KKRAK KKK KKK KK RK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK 


: DELAY ROUTINE 


: This routine takes the value in ‘loops’ 
: andmultiplies it times 1 millisecond to 
; determine delay time. 


DIOGO IOI IOI ICI ICI III CII ICICI ICI I ICI ICR I RIOR I IIR IK IK KK 
WAIT 


° 
, 


top moviw  .110 ; timing adjustment variable 
movwf loops2 
top2 nop ; Sit andwait 
nop 
nop 
nop 
nop 
nop 
decfsz loops2 ; inner loops complete? 
goto top2 ; no, go again 
decfsz loops ; outer loops complete? 
goto top ; no, go again 
retlw 0 ; yes, return from sub 


FPS UI ISU ACO OTTO UI EI OUI IIIA I IO EI ORI I IO 
; Start Bit Subroutine 
; this routine generates a start bit 
: (Low going data line while clock is high) 
J RRRAKAKKKKR KKK KKK KKK RAK KK RK KKK KKK KK KKK KKK KKK KKK KKK RERK KK KKK KK KK KK 
BSTART 
bsf port_b, sdata ; make sure data is high 
movilw b’00111111' 
tris port_b ; set data and clock lines for output 
bef port_b,sclk ; make sure clock is low 
nop 
bsf port_b, sclk 7 set clock high 


bef port_b,sdata ; data line goes low during 
; high clock for start bit 


nop ; timing adjustment 
bet port_b, sclk 7 Start clock train 


retlw 0 
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, 
PRK KRKKRKKKKK RK KKK KKK RK KKK KKK KK KKK RR KKK KKK KKK KK KKK KEKE KK KKK KKK 





: Stop Bit Subroutine 
; This routine generates a stop bit 
; (High going data line while clock is high) 
PRKRKRREKKKKK KKK KKK KR KKK KK RE KK KK KKK KKK KKK KKK KKK KKKKKKKKKKEKK KKK 
BSTOP 
movlw b’00111111' F 
tris port_b ; set data/clock lines as outputs 
bef port_b,sdata ; make sure data line is low 
nop 
nop 
nop 
bsf port_b, sclk 7 set clock high 
nop 
nop 
nop 
bsf port_b,sdata ; data goes high while clock high 
; for stopbit 
nop 
nop 
bcf port_b, sclk ; set clock low again 
nop 
nop 
nop 
retlw 0 


; 
PRK KRKEKR KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KK KKK KKK KK KK KKK KKK KKK KKK 


: BITOUT routine takes one bit of data in ‘do’ and 
; transmits it tothe serial EE device 
pK RRA KKKKKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK 
BITOUT 
movlw b’00111111' ; set data, clock as outputs 
tris port_b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow ; 
bsf port_b, sdata ; set data line high 
goto clkout 7 go toggle the clock 
bitlow  bcf port_b,sdata ; Output a lowbit 
clkout bsf port_b,sclk 7 set clock line high 
nop 
nop 
nop 
nop 
bef port_b,sclk 7; return clock line low 
retlw 0 


, 
PRKKKKKKKKK KKK ERK KK KKK KKK KK RK KKK KKK RK RK KK KKK KAR KKK KK KKK RR KK KKK 





; BITIN routine reads one bit of data fromthe 
’ serial EE device and stores it in ‘di’ 
J RKKRKKRKRKK RK K KK KKK KKK KKK KKK KER KR RRR KKK KKK KKK KKK KKK KK KERR KK KKK 
BITIN 
bsf eeprom, di ; assume input bit is high 
movilw b’10111111' ; make sdata an input line 
tis port_b 
bsf port_b, sdata 7 set sdata line for input 
bsf port_b, sclk 7 set clock line high 
nop ; Just sit here a sec 
nop 
nop 
nop 
nop ; 
btfss port_b,sdata ; read the data bit 
bef eeprom, di 7 input bit was low 
bef port_b,sclk 7; set clock line low 
retlw 0 ; 
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PRR RRK RK ERK KKK KR KK KKK KK KK KKK KKK KKK KEK KR KKK KKK KKK KKK KKK KKK KKK KER KK 


. Transmit Data Subroutine 


: This routine takes the byte of data stored in the 

: ‘datao’ register andtransmits it to the serial EE device. 
; It will then send 1 more clock to the serial EE for the 

; acknowledge bit. If the ack bit fromthe part was low 

; then the transmission was sucessful. If it is high, then 
; the device did not send a proper ack bit and the ack 

; fail LED will be turnedon. 


pRRK RRR KK AK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK RK KKK KK KKK KKK 


TX 
moviw 8 


movwf count ; set the #bits to 8 
TXLP 

bef eeprom, do ; assume bit out is low 

btfsc txbuf, 7 ; isbit out really low? 

bsf eeprom, do ; otherwise data bit =1 

call BITOUT ; serial data out 

nf txbuf ; rotate txbuf left 


8 bits done? 
no - go again 


decfsz count 
goto TXLP 


Se Ne ON 


call BITIN readack bit 

btfsc eeprom, di ; check ack bit 

bsf port_a,ackf ; set acknowledge fail LED if the 
retlw 0 


; 
PRR KR KK RK ARK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK K 
; Power up routine 
; This is the programentry point, which in this case simply 
; sets the port_aI/O lines and directs control to the 
; byte write routine. 
PRRRKKRKRK KKK KKK KKK KKK KK KKK KK KR KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK 
PWRUP 

movlw b’00000000' 


tris port_a ; set port Aas all output 
clrf port 2 ; all output lines low 
goto pwrite + go do the page write 


PRERKKRRRKK KKK KKK KKK KKK KKK KKK KEK KK KKK KK KK KK KKK KKK KK KKK KKK KKKK KKK KK 


' Page Write Routine 


; This routine writes the data in “datao” to 8 consecutive 

; bytes using page write mode starting at address 00. 

; This routine waits 10mS after every page to give the device 
H time todo the write. This program repeats forever. 


pRRK KARR KKK KKK KKK KKK KK KKK KKK KR KK KKK KKK KKK KK KKK RK KKK KKK KKK KKK KKK KKK 

’ 

pwrite 

, 

; Clear all LEDs 

; set slave address and write mode 


. 


clef port_a 
moviw b’10100000' 
movwf slave 

movlw b’01010101' 
movwf datao 


. 


set data to write as 55h 


“ee 


movilw 8 
movwf bcount 


set number of bytes 
to write as to 8 


‘eo 


‘we 


clrf addr1l ; set high address byte to 00 
clrf addr ; set low address byte to 00 
call BSTART ; generate start bit 

movft slave, Ww ; move Slave address 

movwft txbuf ; intotransmit buffer 

call TX ; and send it 

movft addrl,w ; Move word 1 address 
movwf txbuf ; intotransmit buffer 

call TX ; andsendit 

movf addr, w ; move word 0 address 
movwf  txbuf ; intotransmit buffer 


ct eee SS AN ES SE PS TIT 
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call TX j andsendit 

byte movft datao,w 7 move data byte 
movwf txbuf ; totransmit buffer 
call TX ; andtransmit it 


decfsz bcount 
goto byte 


all 8 bytes written? 
; no, do another byte 


se 





~ 


call. BSTOP 7; generate stop bit 

movlw  .10 

movwf loops ; set delay time to give 

cll WAIT ; 10 ms wait after every byte 


goto pwrite start over 


“eo 


END 





Fe eae ee ek a eS aera ae a laeh nS ee ee eee ae NS Pe RRS ee ee 
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LIST P=16C54 


KAKA AIK IIIKI SIS III IASI IAAI IIIA III IAAI AI ASIII AIA AIDA A 


64K Sequential Read Program (142 bytes) 


This program demonstrates howto interface a 
Microchip PIC16C54 to a 24LC65 Serial E2 device 
and performa sequential read operation. This program 
will read 8 consecutive addresses in the ‘sequential 
read’ mode. This entails setting the address pointer 
for the first address only and then clocking out as many 
bytes of data as needed. The device will automatically 
increment the address. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 60 Khz forthis setup. 


As an option, the user may connect a LED to pin 18 

on the PIC16CXX (use about a 1K resistor in series) as an 
acknowledge fail indicator. This LED will come on if 

the serial EE fails to acknowledge correctly. 


PIC1L6CXX to Serial EE Connections: 
PIC1L6CXX Serial EE 


ee ee 


Pin 12 (RB6) —> SCLK 
Pin 13 (RB7) —> SDATA 


PIN 18 (RA1) —> Acknowledge fail LED (Optional) 


KEKKKKKKKEKEEEK KEK KEK KKK KKK KEK KKK KEE KKEK KEK KKKEKKEKEKKEEKKKEKKEKKEKEK 


s ses *s es se *“s es “ese Te Ts 2 Te “Ss Ve Ts “HO “SH Ts TS “WH Ve TE VO Ve “HT VA ZS “HQ Te WS “SH WH Te WE 


Register Definitions 
BRK KKK KERR EKER EERE KERR ERK EEE KKK KEK KK ERE KKK KEK KKK EK KKREKKEK 
port_a equ Sh ; port 5 (port a) used for LED display 
port_b equ 6h ; port 6 (port b) used for data and 
; clock lines 


eeprom equ Oah ; bit buffer 
bycnt equ. Obh ; byte counter for read mode 
addr equ. Och ; word 0 address counter 


datai equ Odh ; data input register 

datao equ Oeh ; data output register 

slave equ Ofh ; device address 1010xxx0) 

txbuf equ 10h ; transmit buffer 

count equ I1ilh ? bit counter 

beount equ 12h ; byte counter 

loops equ 15h ? delay loop counter 

loops2 equ 16h ; delay loop counter 

addri equ 17h ; word 1 address counter 

F RRKAKEKRK EEE RER EKER KEKE RE REEK KKK REE KERR EKER RE KEKE KK 
: Bit Definitions 

PEKKA KRE KERR KEKE EKER KERR EK RE KR EEE ERK ER EKEK EER EK EE KEKE KEKERERER 
d. equ. 7 7 eeprom input bit 

do equ 6 ; eeprom output bit 

sdata equ. 7 ; serial EE data line (port_b, pin 13) 
sclk equ 6 ; serail EEclock line (port_b,pin12) 
ackf equ il ; acknowledge fail LED (port_a) 


g REKKREKEKKK KER ERR KEE KR EKER ERK EKER ERE RR AEE KEK EERE EEK EK RKERKEK 


° 
‘ 


org 01ffh ; set reset vector 
goto PWRUP 
org 000h ; 


goto PWRUP 


KEKKEKKKKKKEEKEKKEKEEEK KEKE REE KEKE KEKE KKEKKKEKKEKEEEKKK 


DELAY ROUTINE 

This routine takes the value in ‘loops’ 
andmultiplies it times 1 millisecond to 
determine delay time. 


=e *s *s Ss “es Ws 
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ZRAKRKKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKAK KKK KKKK KK 
WAIT 
top movlw .110 ; timing adjustment variable 
movwf loops2 
top2 nop ; Sit andwait 
nop 
nop 
nop 
nop 
nop 
decfsz loops2 ; inner loops complete? 
goto top2 ; no, go again 
decfsz loops 7; outer loops complete? 
goto top ; no, go again 
retlw 0 ; yes, return from sub 


PRRAKKKK RK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKKKKKK 


; Start Bit Subroutine 
; this routine generates a start bit 
: (Low going data line while clock is high) 


PRAKKKKKKKK KKK KKK KK KK KK KK KKK KK KK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK 
BSTART 

bsf port_b, sdata ; make sure data is high 

moviw b’00111111' 

tos port _b ; set data and clock lines for output 

bef port_b, sclk ; make sure clock is low 

nop 

bsf port_b,sclk 7 set clock high 

nop 

nop 

nop 

nop 

nop 

bef port _b,sdata ; data line goes low during 
; high clock for start bit 

nop 

nop 

nop 

nop 

nop 7; timing adjustment 

bcf port_b, sclk ; start clock train 

nop 

nop 

retlw 0 





PRKRKKKKKKKK KKK KKK KK KKK KKK KKK KK RR RK KKK KK KK KKK KK KKK KKK KK KKK KKK 


Stop Bit Subroutine 
: This routine generates a stop bit 
; (High going data line while clock is high) 
PRKRKKKKKKKKKK KKK KKK KKK KK KKK KKK KKK KKK K KKK KK KK KKK KKK KK KKK KKKKR 
BSTOP 
bef port_b, sdata ; make sure data line is low 
movlw b’00111111' : 
tris port_b 7 set data/clock lines as outputs 
bef port_b, sdata ; make sure data line is low 
nop 
nop 
nop 
bsf port_b, sclk 7 set clock high 
nop 
nop 


a et EE Pt ape ree a PO eee ee PE oe OPE ree ae aes Ee On OE EE ee 
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nop 
bsf port _b,sdata ; data goes high while clock high 
; for stopbit 
nop 
nop 
bet port_b, sclk ; set clock low again 
nop 
nop 
nop 
retlw 0 
_lbibkibiaiaeioicinib sri inieiabinibiani hides sda nn I HEITOR ei SICA ITER 


; BITOUT routine takes the bit of data in ‘do’ and 
: transmits it to the serial EE device 
PRKKKKRKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RE K KKK KKK KKK KKK KKK KK KK KK KK 
BITOUT 
movlw b’00111111' ; set data, clock as outputs 
tris port _b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow ; low? go set data line low 
bsf port_b, sdata ; high? set data line high 
goto clkout 7; go toggle the clock 
bitlow bef port_b,sdata ; output a lowbit 
clkout bsf port_b,sclk 7 set clock line high 
nop 
nop 
nop 
nop 
bet port_b,sclk ; return clock line low 
retlw 0 


; 
PRRKKKKKKKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KK KK 
7 BITIN routine reads one bit of data fromthe 


: serial EE device and stores it inthe bit ‘di’ 
pRAKRKRKKKKRK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KAKA KKK RKKKKKKKKKK 


BITIN 
bsf eeprom, di ; assume input bit is high 
moviw b’10111111' ; make sdata an input line 
tris port_b 
bsf port_b,sdata ; set sdata line for input 
bsf port_b,sclk ; set clock line high 
nop ; just sit here asec 
nop 
nop 
nop 
nop ; 
btfss port_b,sdata ; read the data bit 
bef eeprom, di ; input bit was low, set ‘di’ accordingly 
DEE port_b,sclk ; set clock line low 
retlw 0 ; 


: 
PRKKKKRREKKKKKKKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
; Transmit Data Subroutine 

; This routine takes the byte of data stored in the 


; ‘datao’ register andtransmits it to the serial EE device. 
; It will then send 1 more clock to the serial EE for the 
; acknowledge bit. If the ack bit fromthe part was low 
then the transmission was sucessful. If itishigh, then 
; the device did not send a proper ack bit and the ack 
; fail LED will be turnedon. 
PRAKKKKKKKKKKKKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KK KKK 
TX 

movlw 8 

movwf count 7; set the #bits to 8 
TXLP 

bef eeprom, do 7; assume bit out is low 


a 
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btfsc txbuf, 7 ? is bit out really low? 

no, set it high 

send the bit to serial EE 

rotate txbuf left 

8 bits done? 

no — go again 

read ack bit 

check ack bit 

set acknowledge fail LED if the 
device did not pull data low 


bsf eeprom, do : 
call BITOUT 
xf txbuf 


decfsz count 
goto TXLP 


~s ~s 7s “ses “es Ye Ye “es Ve > 


call BITIN 

btfsc eeprom, di 
bsf port_a,ackf 
retlw 0 


Receive data routine 


=e “2s “gs tea “es “se 


RX 
chrf catai : 
movlw  .8 ; 
movwf count 

RXLP nf catai : 
call BITIN : 
btfsc eeprom, di 
bsf datai, 0 


decfsz count 
goto RXLP 
retlw 0 


~s °s 7s 


Power up routine 


~-e wes Te “se FO 


set for port Ahere. 


; Clear input buffer 
set #bits to 8 


RHR KKK REE KEK KK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KK KKK KKK KE KKKER 


This routine reads one byte of data fromthe part 
into the ‘datai’ register. It then sendsa high 


ack bit to indicate that no more data is to be read 
KKK KH AK K KKK IKK KKK HK KKK KKK KKK KKK KKK KK KKKK KKK KKK KKKKKEKKKKKKKEKKKKKK 


rotate datai 1lbit left 


set bit 0 if necessary 
8 bits done? 
no, do another 


KAKKKKKEKKKK KKK KKK KEK KKK EKKEK KEK KK KKK KEK KEK KKKKEKKKEKKKKEKKKKKKKK 


This is the programentry point. I/O line status is 


gp RKK KKK KK IKK KKK K KKK KK KKK KEKE KK KKK KKK KHK KK EK KK EKER KEK RE KK KEK KK 


PWRUP 
moviw b’00000000' 
tis port_a 7 set port Aas all output 
clrf port_a ; all output lines low 


goto READ 


a 78 


READ (read routine) 


transmission fromthe device. 


EAD 


=s vi) Ty er ) ey ee ey en ? eT ey Ye) 


KEKE KEKE KKK EKER KK KEKE KEKE KEK KKK EKER KEKE KEKEKKKKK KK KKK 


This routine reads 8 consecutive addresses of the 
serial EE device starting at address 00 inthe 

sequential read mode. Reading in this mode is more 
efficient than the random read mode as the control byte 
and address have to be sent only once at the beginning 
of the sequence. As many consecutive addresses as 
needed can then be read fromthe part until astopbit is 
sent. In the read mode, the PIC16CXX must send the acknowledge 
bit after every 8 data bits fromthe device. When the 
last byte needed has been read, then the controller will 
send a high acknowledge bit and then a stop bit to halt 


KRKKKKKKK KEKE KEKE KKK KKK EK EK KEKE KKK EK KEK KKK KEKE KKK KA KKK KKKEKE 


bef port_a,ackf ; clear the ack fail LED if on 


moviw  .8 

movw£ bcount 
movlw b’10100000' 
movwf_ slave 


7s ea 


cif addr1 ; 
crf addr : 
call BSTART ; 
movft slave, w ; get slave address 


movwf txbuf : into transmit buffer 


generate start bit 


set number of bytes to read as 8 
set slave address and write mode 


set starting high address to 00 
set starting lowaddress to 00 
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call TX ; and send it 

movt addrl1,w ; get word 1 address 

movwf  txbuf ; intotransmit buffer 

call TX ; and send it 

movf addr, w 7; get word 0 address 

movwf txbuf ; into transmit buffer 

call TX ; and send it 

call BSTART ; generate start bit 

movlw b’10100001' ; get slave address and read mode 
movwf  txbuf ; into transmit buffer 


call TX ; andtransmit it 
rbyte call. RX ; read 1 byte from device 
decfsz bcount ; are all 8 bytes read? 
goto lowack ; no, send low ack and do another 
bsf eeprom, do 7; yes, send high ack bit 
call BITOUT ; to stop tranxmission 
call BSTOP ; and senda stop bit 


moviw  .255 
movwf loops 
call wait 

goto READ 


long delay for scope 
trigger purposes only 


™“e 


™“e 


start all over 


“ee 


send Low ack bit 
to continue transmission 
and read another byte 


se 


lowack bcf eeprom, do 
call BITOUT 
goto rbyte 


“ee 


Ne 


END 


a ——,,,,,,, 
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LIST P=16C54 | 
KKK KKK KEKE EK KK KEK KRAK KKK KK KKEK EK KKKEKKKKEKAKKKKKK 
Program to set the high endurance block on the 64K 
device (24LC65). (122 bytes) 





The 24LC65 is a 64K device, 4K of which is error 
corrected to increase the endurance of that portion 
of the array. The location of this high endurance 
‘block’ can be set by the user. When the device 
comes fromthe factory, the high endurance block 
will be set as the uppermost block inthe array. 


This program sets the high endurance block as the 
first block in the array (address range 00h to 1FFh). 


The high endurance block is set by sending the following 
sequence to the device: 


SB 10100000 1XXAAAAX XXXXXXXX O0XX0000 STB 


Where SB=start bit 
1l=data high 
0=data low 
X=don’t care 
AAAA=4 bit high endurance block address 
STB=stop bit 


As an option, the user may connect a LED to pin 18 

on the PIC16CXX (use about a 1K resistor in series) as an 
acknowledge fail indicator. This LED will come on if 

the serial EE fails to acknowledge correctly. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mnz crystal. Clock speeds tothe serial EE 
will be approximately 60 Khz forthis setup. 


PIC16CXX to Serial EE Connections: 


PIC16CXX Serial EE 


Pin 12 (RB6) —> SCLK 
Pin 13 (RB7) —> SDATA 


=s 7s “s *s “8s “8s “es ese “es 8 se ~“s TA We Ss TA TH Te VS =s ~s  s 7s es ~8 2 Ts TH MS MS Te Ms VS TSH ~S WH Se TA Ve TH MO ~. °° 


PIN 18 (RA1) —> Acknowledge fail LED (Optional) ; 


9 RKKKKKREKERE EE RKE KERRIER EER EK KK EKER RR EK ERE KEKE ERE EE REKERE EEK 





; Register Definitions 

oI KE KKK IRE KKK EEK KEKE RE K ERK KERRIER KKK KEKE REE RE REKRE REE KK 

port_a equ 5h ; port 5 (port_a) used for LEDs 

port_b equ 6h ; port 6 (port b) used for data and 
7 Clock lines 

eeprom equ 0Oah > bit buffer 

bycnt equ Obh 7; byte counter for read mode 

addr equ. Och ; word 0 address counter 

datai equ) Odh ; data input register 

datao equ. Oeh ; data output register 

slave equ Ofh ; device address (1010xxx0) 

txbuf equ. 10h ; transmit buffer 

count equ. ilih ; bit counter 

bcount equ 12h ; byte counter 

loops equ. 15h ; delay loop counter 

loops2 equ 16h ; delay loop counter 

addrl equ 17h ; word 1 address counter 

he blk equ 18h ; high endurance block address 

PR RKRRAKRK KEK RE KKK REE KEK K KE KK RE KK EEK EKER RK ERE KERR EKER EKER KEK 

7 Bit Definitions 

g RRRKKKRKR EAE ERE RK KEK KEKE KR KIER ERK KKK IK REE KEK KEKE KKK KEKE KE 

ad equ) 7 ; eeprominput bit 

do equ) 6 ; eepromoutput bit 

sdata equ) 7 ; serial EE data line (port_b,pin 13) 
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sclk equ 6 ; serail EE clock line (port_b,pin12) 
ackf£ equ 1 ; acknowledge fail LED (port _a,pin 18) 
FI IR I IKK II KKK KKK KKK KI IK IK KKK IK KK RIK KK RK KKK IK KK KKK KEK 


. 
, 


org 01ffh 7 set reset vector 
goto PWRUP 
org 000h ; 


goto PWRUP 


PRR RRR KKK KKK KR KKK KK KKK KKK KKK KKK KKK KK KKK KKK RK KK KKK KKK KKK KKK KKK K 


; DELAY ROUTINE 
; This routine takes the value in ‘loops’ 
; andmultiplies it times 1 millisecond to 
; determine delay time. 
pK KKK ERK KKK KKK KKK KKK KKK KKK KKK RK KK KKK RK KKK KKK KKK KK KKK KKK KKK KK KK 
WAIT 
top movlw  .110 ; timing adjustment variable 
movwf loops2 
top2 nop ; sit andwait 
nop 
nop 
nop 
nop 
nop 
decfsz loops2  ; inner loops complete? 
goto top2 ; no, go again 
decfsz loops ; outer loops complete? 
goto top ; no, go again 
retlw 0 7; yes, return from sub 


; 
PRR RRR KAK KR RK RK KKK K KKK RR KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK 


; Start Bit Subroutine 
; this routine generates a start bit 
: (Low going data line while clock is high) 


p RR RRKR KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KAKA KK KKK KKK KKK KK KK 


° 
, 





BSTART 
bsf — ~— port_b,sdata ; make sure data is high 
movlw b’00111111' 
tis port_b ; set data and clock lines for output 
ber port_b, sclk ; make sure clock is low 
nop 
. « bsf port_b,sclk ; set clock high 
i" nop 
nop 
nop 
nop 
bef port_b,sdata ; data line goes low during 








; high clock for start bit 


nop ; timing adjustment 
bcf port_b,sclk ; start clock train 


nop 
retlw 0 


° 
, 


PARKER KKK KKK KKK KKK KK KK KKK KK KK RK KK KKK KKK KKK KKK KKK KKK KK KK KK KK KK 


; Stop Bit Subroutine 
; This routine generates a stop bit 
; (High going data line while clock is high) 
PRK KRKRKKRKK KARR KKK KKK KKK KEK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK 
BSTOP 
movlw b’00111111' ; 
tris port_b ; set data/clock lines as outputs 


a An A RS ET AS EE a NS TS 
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bef port_b, sdata ; make sure data line is low 

nop 

nop 

nop 

bsf port_b,sclk 7 set clock high 

nop 

nop 

nop 

bsf port_b,sdata ; data goes high while clock high 
; for stopbit 





nop 
nop 
bcf port_b,sclk ; set clock low again 
nop 
nop 
nop 
retlw 0 
; 
PRK KR KKK KKK KK KK KKK KKK KKK KEK KK KKK KKK RK KKK KKK KKK KK KK KKKKKKKKKK KK 
is BITOUT routine takes one bit of data in ‘do’ and 


7 transmits it tothe serial EE device 
PRA KKK KR ERK KKK KK KR KK KKK KKK KR KKK KKK KK KKK KKK KKK KK KKK KKK KK KKK KKK 


BITOUT 
movlw b’00111111' ; set data, clock as outputs 
tis port b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow ; 
bsf port _b,sdata ; set data line high 
goto clkout 7 go toggle the clock 
bitlow bcf port_b,sdata ; output a low bit 
clkout bsf port_b, sclk ; set clock line high 
nop 
nop 
nop 
nop 
bef port_b,sclk ; return clock line low 
retlw 0 


; 
PRAKKRRK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK 


; BITIN routine reads one bit of data fromthe 





serial EE device and stores it in ‘di’ 
PARA KKKKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKKKKKK KKK 
BITIN 
bsf eeprom, di 7; assume input bit is high 
movlw b’10111111' ; make sdata an input line 
tis port_b 
bsf port_b,sdata ; set sdata line for input 
bsf port_b,sclk ; set clock line high 
nop ; Just sit here a sec 
nop 
nop 
nop 
nop ; 
btfss port_b,sdata ; readthe databit 
bef eeprom, di ; input bit was low 
bcf port_b, sclk 7; set clock line low 
retlw 0 ; 


. 
, 


J RKARKKKR EK KEK KKK KK KK KKK KKK KK KKK KK KKK KKK KK KKK KKK KKK RK KKK KKK KK KK KKK 


; Transmit Data Subroutine 

; This routine takes the byte of data stored in the 

; datao’ register andtransmits it tothe serial EE device. 
; It will then send 1 more clock to the serial EE for the 

; acknowledge bit. If the ack bit fromthe part was low 


; then the transmission was sucessful. If it is high, then 
; the device did not send a proper ack bit and the ack 


: fail LED will be turned on. 
PRK KRKKR AKER KK RK KK KR KKK KER KK KKK KK KKK KKK KKK KKK KK KKK RK KK KKK K KK KK KK KKK 


TX 

Rn a i a a I AN RR RS RE EIR SN ID RL OEE RE EE ARETE REE ES ES OR OE AE EET NENG DEI TEE TE EE EER et A DES DD RDO, 
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movlw 8 


movwf count set the #bits to 8 


we 


TXLP 
bcf eeprom, do ; assume bit out is low 
btfsc txbuf,7 ; is bit out really low? 
bsf eeprom, do ; otherwise data bit =1 
call BITOUT ; serial data out 
xf txbuf ; rotate txbuf left 


8 bits done? 
no - go again 


decfsz count 
goto TXLP 


=e 


~e 


call BITIN ; readack bit 

btfsc eeprom, di ; check ack bit 

bsf port_a,ackf 7 set acknowledge fail LED if the 
retlw 0 


; 
PRKRARRKRE KKK KK RRR KK KKK KKK KKK KKK KKK KKK RK KK KKK KKK KK KKK RRR KK KKKKK KKK 
; Power up routine 
; This is the programentry point, which inthis case simply 
; sets the port_aI/O lines and directs control to the 
; byte write routine. 
pRKRKKKEKRE KKK KER KKK RRR KKK KKK KKK KK KK KKK KKK KKK KKK KKK KK AK KKKKKKKK KKK 
PWRUP 

moviw b’00000000' 


tris port_a ; set port Aas all output 
clrf port_a ; all output lines low 
goto setheblk ; set go set the high endurance block 


PRRKKRKKRKK KKK KKK RK KK RK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK 


; Set High Endurance Block Routine 

: This routine sets the high endurance block to the first 

; block in the array and then delays about a half second. This 
routine will repeat forever. 

pRKKRRRKKRKK KK KKK KR KK KKK KEK KKK KKK KK KKK KKK KK RHR KKK KKK KKK RK KKK KK KKK KK KK 


° 
, 





setheblk 
chef port_a ; Clear all LEDs 
movwf slave 
moviw  .0 
movwf he blk ; set the endurance block as first 
; block in array (block 0) 
nf he_blk ; rotate starting block left 1 bit 
; toarrange it correctly 
bsf he _blk,7 ; set msb bit in block address byte 
call. BSTART 7; generate start bit 
movlw b’10100000' 7; get slave address and write mode 
movwf  txbuf ; into transmit buffer 
call TX ; andsend it 
movt he_blk,w ; get the block address byte 
movwf  txbuf ; into transmit buffer 
call TX ; and send it 
cirf txbuf ; Clear buffer 
call TX ; send 8 don’t care bits 
clr txbuf — 
cll TX ; send config byte (all 0’s) 
call BSTOP ; send stop bit 
movilw .255 ; long delay 
movwf loops 
call wait 
movilw nooo 
movwf loops 
call wait 
goto setheblk 7 go again 
END 
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LIST P=16C54 
KKKKKKEEKKKKKKKKKKKREK KEKE KEKE KK KKK KKK EK KKKKKK KK KKKEREKKKAKKKKK 

Programto set the security option (write protect) 

on the 64K device (24LC65). (125 bytes) 


The security option (or write protect option) allows 
the user to write protect any number of consecutive 
4K blocks in the device. 


This program sets the security option to protect the 
lower 4 blocks (2K bytes) inthearray. 


kkkkKKEEK CAUTIONS TO THE USER I!!! tee kk ke 

1) THE SECURITY OPTION CAN ONLY BE SET ONCE!! 

2) THE HIGH ENDURANCE BLOCK CANNOT BE CHANGED 
AFTER THE SECURITY OPTION IS SET. 

3) THE HIGH ENDURANCE BLOCK CANNOT BE PROTECTED. 


The security option is set by sending the following 
sequence to the device: 


SB 10100000 1XXAAAAX XXXXXXXX 1OXXNNNN STB 


Where SB=start bit 

1=data high 

O=data low 
X=don’ t care 
AAAA=4 bit number to indicate first secure block (0-15) 
NNNN=4 bit number to indicate how many secure blocks (1-15) 
STB=stop bit 


As an option, the user may connect a LED to pin 18 

on the PIC16CXX(use about a 1K resistor in series) as an 
acknowledge fail indicator. This LED will come on if 

the serial EE fails to acknowledge correctly. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 60 Khz forthis setup. 


PIC16CXX to Serial EE Connections: 


PIC16CXX Serial EE 


Pin 12 (RB6) —> SCLK 
Pin 13 (RB7) —> SDATA 


PIN 18 (RA1) —> Acknowledge fail LED (Optional); 
KEKKKEKEKKEEKKEKKK EERE KEKE KEKE KKEKKEKEKEKRKEKREEKEKKEEKEKKEKKEKK 


e es “es %e se ~“s ~“e %s se “5s “oe “s “eo “ese “s “se Te Tse “Oe WB “se “se ~B We Ve “SB Ws Ws Ve MS WS “SH “WS Ws MS “SH Me “HB MS TS MS VS MH Me TMH WH BMA TA MSH VA ME 


Register Definitions 
go RRKKKKKE KKK ERE KE REE KKK KEE KE KEE KER EKER KK KEKE KEK KEREREREEKK 
port_a equ oh ; port 5 (port_a) used for LEDs 
port_b equ 6h ; port 6 (port b) used for data and 
7 clock lines 
eeprom equ  0Oah ; bit buffer 
bycnt equ. Obh ; byte counter for read mode 
addr equ Och ; word 0 address counter 
datai equ. Odh ; data input register 
datao equ Oeh ; data output register 
slave equ Ofh ; device address (1010xxx0) 
txbuf equ 10h 7 transmit buffer 
count equ 1lh + bit counter 
beount equ 12h 7 byte counter 
loops equ 15h 7 delay loop counter 
loops2 equ 16h ; delay loop counter 
addr1 equ). 17h ; word 1 address counter 
strt_blk equ 18h ; starting block number for secure portion 
sec blksequ 19h ; number of secure blocks 
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PARK KRRK KKK KARR KKK KKK RK KK KEK KKK KKK KKK KKK KKK RK ERE KK KKK KKK KKK EK K 


Bit Definitions 

fp RRR RR KK AK KKK KKK KKK KKK KK KKK KKK KKK KEK KKK KKK KKK KKK EKER KKK KEK KKK 
a. equ) 7 ; eeprom input bit 

do equ 6 ; eepromoutput bit 

sdata equ 7 ; serial EE data line (port_b,pin 13) 

sclk equ 6 ; serail EE clock line (port_b,pin12) 


ackf£ equ 1 ; acknowledge fail LED (port_a,pin 18) 


PRK KRK KK KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KEK K KKK KKK KKK KKK 


org 01ffh ; set reset vector 
goto PWRUP 
org 000h ; 


goto PWRUP 
; 
PRR RKARKKKK KAR K KKK KKK KKK KKK KK KKK KKK KKK KKK KR KKK KKK KKK KK KKK KKK KK KK 


; DELAY ROUTINE 


: This routine takes the value in ‘loops’ 
; andmultiplies it times 1 millisecond to 
: determine delay time. 


PRR KKK KK KKK AK KK KKK KK RK KKK KKK KKK KKK KKK KKK KR KK KKK KKK KR KK RE RK KER KK 
WAIT 


, 


top movlw  .110 ; timing adjustment variable 
movwf loops2 
top2 nop ; sit andwait 
nop 
nop 
nop 
nop 
nop 
decfsz loops2  ; inner loops complete? 
goto top2 ; no, go again 
decfsz loops ; outer loops complete? 
goto top ; no, go again 
retlw 0 ; yes, return from sub 


DHHS IHU IG UDI IE IU IU I IO I IOI SITIO I IO IA III 
; Start Bit Subroutine 
; this routine generates a start bit 
: (Low going data line while clock is high) 
PRK RKRKKKK RK KKK KK KK REK KR KKK KKK KKK KKK KKK KEK KKK KKK KR KK KKK KR KKK KK 
BSTART 
bsf port_b,sdata ; make sure data is high 
movlw b’00111111' 
tas port_b ; set data and clock lines for output 
bct port_b, sclk ; make sure clock is low 
nop 
bsf port_b, sclk ; set clock high 
nop 
nop 
nop 
nop 
nop 
bert port_b, sdata ; data line goes low during 
7 high clock for start bit 
nop 
nop 
nop 
nop 
nop ; timing adjustment 
bef port_b,sclk 7 start clock train 
nop 
nop 
retlw 0 


AIO RE A RN ys YS 
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PRK KKK KKK KR KK KKK KKK KKK KKK KK KKK KR KKK RK KKK KKK KKK KKK KKK KKK KKK 


: Stop Bit Subroutine 
3 This routine generates a stop bit 
; (High going data line while clock is high) 
PARK REK KKK KKK EKER KK RK KK KK KKK KKK KR RK KK RE KKK RR KKKKERK KK KEK A 
BSTOP 
movilw b’00111111' ; 
tos port b ; set data/clock lines as outputs 
bef port_b,sdata ; make sure data line is low 
nop 
nop 
nop 
bsf port_b, sclk ; set clock high 
nop 
nop 
nop 
bsf port_b,sdata ; data goes high while clock high 
; for stopbit 
nop 
nop 
bef port_b,sclk 7; set clock low again 
nop 
nop 
nop 
retlw 0 


; 
PRK KKRRK KKK KKK K KK KKK AK KR KKK KK RK KKK KKK KKK KKK KKK KK KR KKK KKK KKK KKK 


; BITOUT routine takes one bit of data in ‘do’ and 
; transmits it to the serial EE device 
ZRARRKRKKKK KKK KKK KKK KKK RK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
BITOUT . 
moviw b/’00111111' ; set data, clock as outputs 
tis port _b 
btfss eeprom, do ; check for state of data bit to xmit 
goto bitlow ; 
bsf port_b,sdata ; set data line high 
goto clkout 7 go toggle the clock 


bitlow bcf port_b,sdata ; output a low bit 
clkout bsf port_b, sclk ; set clock line high 
nop 
nop 
nop 
nop 
bcf port_b,sclk ; return clock line low 
retlw 0 


; 
PRAKKRRKRKKKKKKKRK KKK KK KKK KER KK KKK KK KR RK KKK KKK KKK KKK KKK KK RK KKK KK KK 





: BITIN routine reads one bit of data fromthe 
; serial EE device and stores it in ‘di’ 
PRRRK RK ERK KKK KKK EK KKK KK KKK KK KKK EKER KKK KKK KK KKK KKK ERK KK KK KKKK KK 
BITIN 
bsf eeprom, di ; assume input bit is high 


movlw b/’10111111' ; make sdata an input line 
tris port: } 

bsf port_b, sdata 7 set sdata line for input 
bsf port_b, sclk ; set clock line high 

nop ; Just sit here asec 

nop 

nop 

nop 

nop ; 

btfss port_b, sdata ; read the data bit 

bef eeprom, di ; input bit was low 

bef port_b,sclk 7 set clock line low 

retlw 0 ; 


AIRE LA TT SEE PE ONSET SB STR EP A A IS 
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pRRKKRKKKKKKK KKK RK RE KK KKK RR KK RRR KK KEK KK RR KKK KK RE RRR RRR KKRRKKRREK 


: Transmit Data Subroutine 

: This routine takes the byte of data stored in the 

; . ‘datao’ register andtransmits it to the serial EE device. 

: It will then send 1 more clock to the serial EE for the 

: acknowledge bit. If the ack bit fromthe part was low 

; then the transmission was sucessful. If it is high, then 

; the device did not send a proper ack bit and the ack 

: fail LED will be turnedon. 

PARRKKREKRKKEKK EK RRR KR ERK KEK KR KK RR KK KKK RAR KKK KKK RK KKK KKRER KKK KKKK 
TX 


moviw 8 


movwf count ; set the #bits to 8 


~ 


TXLP 
bef eeprom, do ; assume bit out is low 
btfsc txbuf, 7 ; is bit out really low? 
bsf eeprom, do ; otherwise data bit =1 
cll BITOUT ; serial data out 
xf txbuf ; rotate txbuf left 
decfsz count ; 8 bits done? 
goto TXLP ; nO - go again 
call BITIN ; readack bit 
btfsc eeprom, di ; check ack bit 
bsf port_a,ackf ; set acknowledge fail LED if the 
ret lw 0 


° 
a 


PRRKKKKKKRK KKK KKK KKK KKK KKK KK RK EK KK RK KKK KR KKK KKK RRR KKK KKKKKKKKK 


; Power up routine 


; This is the program entry point, which inthis case simply 
; sets the port_aI/O lines and directs control to the 
; byte write routine. 
PRRRRKRRK KKK ERK KKK KKK KKK KKK KKK RK KK KKK KKK KKK RK EK KK KR KK KR KK RK KKK KKK 
PWRUP 
movlw b’00000000' 
tris port_a ; set port Aas all output 
cirf port_a 7 all output lines low 
goto set_sec ; set go set the high endurance block 


PRRAKRKKKERR KKK KKK RRR KKK RKKK RRR KKK EKER RK EK KER KK KKK KR KKK KK KRERK KK 


; Set Security Routine 

; This routine sets the secure portion of the array to the 
; lower 4 blocks (2K bytes) in the array and then delays 
; about ahalf second. This routine will repeat forever. 


PRIA RK KARRI RK KKK KKK KK KK KKK KK KKK RK KK KK KKK KK KE KKK KK KKK KKK RK RK RE KKK 

; 

set_sec 

; 
clrf port_a 
moviw  .0 
movwf  strt_blk 


clear all LEDs 


‘we 


set the first protected block as 
block 0 


Ne 


~e 


“movlw 4 
movwf  sec_blks 


‘Ne 


set the number of protected blocks 
as 4 (2048 bytes) 


=e 


xf strt_blk ; rotate starting block left 1lbit 

; to arrange it correctly 
bsf strt_blk,7 ; set msb bit in starting block address 
bsf sec blks,7 ; set msb bit block count byte 
call BSTART ; generate start bit 
movlw b’10100000' ; get slave address and write mode 
movwf txbuf ; into transmit buffer 


call TX ; and send it 


. 


movf —_ strt_blk,w get the starting block address 


‘we 


movwt  txbuf ; into transmit buffer 
call. TX ; andsendit 
clyrft txbuf ; clear buffer 


Caen nner earn nin petennnCanmRrnEnnetneneieetemaenneieementameenmemensmansmmmmemnnmsnendtiemenenesansmenmememnenensneeentsmaneneaemeteertememeeetesatamae aaetetasasemeeametemeiea mmmmmnanmnmmemmrmmemetnemnsmaanmatemdenemeammme™ ems eeemnamnneemanernereeesem ene aanex eames aterm aa 
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call TX ; send 8 don’t care bits 
movf sec_blks,w 7 get secure blocks byte 
movwf  txbuf ; into transmit buffer 
all. TX ; and send it 

call BSTOP ; send stop bit 

moviw «255 ; long delay 

movwf loops 

call wait 


movlw .255 
movwf loops 
call. wait 


goto set_sec ; go again 


END 
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24C01A Compatibility Issue and Its Mobility for Memory Upgrade 





INTRODUCTION 


The 24C01 is a 1K (128 x 8) serial EEPROM which is 
currently offered by Microchip and Xicor. There are 
several important differences between the two devices 
which are discussed in this report. This report refers to 
the Microchip part as the 24C01A and the Xicor part as 
the X24C01. It is intended to assist in designing a 
memory subsystem which is compatible with either 
device. 


COMPATIBILITY ISSUES 


There are three major differences between Microchip's 
24C01A and Xicor's X24C01 as detailed below. 


2.1 PAGE MODE DIFFERENCES 


The 24C01A was originally designed to workin the same 
socket as the PCD8572 which has a two-byte page 
mode. Therefore, its page buffer is two bytes deep. The 
X24C01 has a page mode of four bytes depth. 


If more than two bytes are transmitted to the 24CO01A 
during a page programming cycle, the 24C01A will 
terminate the write cycle. 


In many applications where serial EEPROMs are used 
and speed is not a key issue, the byte write mode can be 
used without any loss of system performance. If only the 
byte write mode is used, there is no compatibility prob- 
lem (other than the slave address software differences 
discussed in 2.2). 


If the page write feature must be used, two different page 
mode algorithms can be transmitted by the master 
depending upon whose device is being used. The 
master will have to first do a polling routine to determine 
if it is interfacing with a24C01A or X24C01. This polling 
technique is discussed in 2.2. 


FIGURE 1 - PAGE MODE DIFFERENCES 


Microchip 


Max byte program time 1 ms 


Max page program time 


2 ms (2 bytes) 
Max time to program 4 bytes 4ms 
Max time to rewrite device 128 ms 


Interestingly, the 24C01A actually updates faster in the 
page mode even though it has one-half the page depth 
of the X24C01. This is due to the faster write cycle time 
of the 24C01A. The two devices are compared in Figure 
1. 


2.2 SOFTWARE DIFFERENCES 


Microchip’s 24C01 Ais designed to share a 2-wire bus on 
which it resides with other devices. To support this, the 
first byte of each command sequence from the master to 
the 24C01A must be a slave address. The 24C01A 
monitors the 2-wire bus for its slave address and “wake- 
up” from standby mode if the address transmitted matches 
its address as defined by the voltage level (Vss or Vcc) 
on pins 1,2 and 3. X24C01 does not support a multiple 
device bus and will always “wake-up” if a start condition 
is detected. 


A slave address must be transmitted to the 24CO1A at 
certain points during reading and writing. This slave 
address is not required by the X24C01. Transmitting a 
slave address to X24C01 will result in erroneous opera- 
tion. This problem can be solved by having the master 
transmit the the proper serial bit pattern to the slave, but 
first the master has to ascertain with which 24C01 it is 
communicating. 


The master can do a simple polling routine before 
beginning serialcommunication with 24C01A or X24C01 
to determine with which device it is working. The proper 
serial protocol for both devices must be contained in the 
master controller’s firmware. Once the master knows 
which 24C01 is on the bus, it can execute the proper 
serial commands. 


Xicor 


10 ms 

10 ms (4 bytes) 
10 ms 

320 ms 
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The polling consists of the pattern like the one shown below: 


SDA LINE: 


If an X24C01 is used on the 2-wire bus, an acknowledge 
bit and eight data bits will be returned whereas 24C01A 
will issue no response and will ignore the command. 


2.3 HARDWARE DIFFERENCES 


Unlike the X24C01, the 24C01A is designed to share a 
2-wire bus with other devices. Chip address bits are 
included in the slave address for the 24C0O1A, and are 
incorporated into pins 1, 2 and 3 of the device. They 
must be connected to Vcc or Vss for proper operation. 
Since pins 1, 2 and 3 of the Xicor part are NC (no 
connect) pins and they are not internally connected, 
they can be tied high or low. 


Another hardware difference involves pin 7 which MUST 
be connected to Vss on the X24C01. The 24C01A can 
have pin 7 connected to Vss or Vcc. 


If only one device is planned for the 2-wire bus, the board 
can be made compatible for either device by connecting 
pins 1,2 and 3to either Vss or Vcc and tying pin 7 to Vss. 


| START BIT | 00000001 | ACKNOWLEDGE BIT | DATA 7...0 | 


Mobility For Memory Upgrade And Expansion 


In system applications where the master device needs 
to address more than one serial EEPROM on a 2-wire 
bus, the Microchip 24C01A offers the flexibility. Up to 
eight 24C01A's can be connected to the 2-wire bus. 
More than one Xicor X24C01 connected to the bus may 
result in bus contention. 


lf memory upgrade is required, the Microchip 24C01A 
can be upgraded to the 24C02A (256 x 8) or the 24C04A 
(512 x 8) in the same IC socket with NO change in 
hardware. Using the Xicor X24C01, both software and 
hardware would have to be reconfigured to accomodate 
the changes. 


CONTACT: Bruce Negley 


Memory Products Division 
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SERIAL EEPROM WRITE TIME 
REQUIREMENTS 


Elements of the Write Cycle Time 


The total write operation time for a Serial EEPROM is 
determined by three main elements: 


¢ Number of bytes to load for each write operation 
¢ Busclock speed at which the write operation is loaded 


¢ Fixed internal write cycle timer required for the pro- 
gramming operation 


The load component of the write command consists of 
the control byte, address, and the data of up to 16 bytes. 
The time required to load the operation depends on the 
number of bytes to load at one time and the bus clock 
speed. After this load is complete, the part commences 
the internally controlled write cycle and the bus and 
system are free to perform other tasks. The internal write 
cycle timer is a fixed time delay which is required to 
program the EEPROM memory cells. Table 1 gives 
examples of total write time for 1 and 16 bytes for various 
parts at fast and normal clock speeds. 


Load time (time at bus free) is the time the part is 
being loaded with the instruction, address, and data. 
The bus is free after this time interval, and the part 
commences the internally controlled write cycle se- 
quence. 


TABLE 1 - WRITE rene uen TIME COMPARISON 






eacot 2 


| 24LC01 oer 





"100 
— 


i pee. 
8 ana 


i 


24004 


24LC04 





8 
1 
8 
16 (2 x 8) 


Page | # Bytes | Speed| Load time (ms) | Write timer (ms) | Write timer (ms) 
Feibleeaciad Width | to load lai time at Hallectciau free | Worse case Typical (25C) 





Write timer (worse case) indicates the time the part 
is in the internally controlled write cycle allowing for 
the maximum specified datasheet requirements. 


Write timer (typical) indicates the time the part is in 
the internally controlled write cycle assuming nominal 
conditions and utilizing write cycle polling. 


Total write time is the combined load time and typical 
internal write cycle time. 


MINIMIZING SERIAL BUS 
COMMUNICATION TIME INA 
SYSTEM 


Utilizing the Page Write Option 


The original Microchip Serial EEPROM products, though 
utilizing a page buffer, only write bytes sequentially. This 
means the time required to write 8 bytes is 8 ms, worse 
case. The new 24LCXX products incorporate a page 
mode that allows simultaneous writes of up to 16 bytes. 
This allows the programming of up to 16 bytes in one 
write cycle (10 ms) compared to 16 write cycles (16 ms) 
for the original 24CXX products. Microchip uses an 8 
byte page in the 24LC01 and 24LC02, and a 16 byte 
page the 24LC04 and higher densities. What this means 
to asystem designer is a write of 8 bytes in a 24LC01 or 
24LC02 would take 10 ms worse case versus 8 ms 










Typical total 
write time ims) 
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worse case in either a 24C01 or 24C02. Loading the 
entire memory of an original 24C04 takes 512 ms, but 
the same operation on a new 24LC04 is reduced to only 
320 ms, assuming worse case. As table 1 shows, the 
difference is even greater using typical numbers. ~ 


The 93LCXX products do not utilize a page mode. 
However, in 16 bit mode, all 16 bits are written simulta- 
neously. The original 93CXX products write the 16 bits 
in 2 write cycles, so the write cycle time increase of the 
new products is only 5 X (3:5 X typical). 


Utilizing Write Cycle Polling 


One powerful method of increasing programming effi- 
ciency is by periodically polling the part to determine if 
the write cycle has completed. To poll the 24LCXX 
series products, a control byte is sent and the acknowl- 
edge bit from the part is read. If the part acknowledges 
(pulls SDA low), it is ready to accept a new command. 
The part will not acknowledge while in the internally 
timed write cycle. 


To poll the 93LCXX series products, the chip select is 
pulled high after the write cycle commences, and the 
data out line is read for the ready/busy status. If the part 
is still busy, it will pull the data line low. When the 
internally timed write cycle is complete, the part will pull 
the data line high, indicating it is ready for a new 
command. 


Serial EEPROM System Optimization 


Serial EEPROMs are used in systems for two purposes: 
storing data and reading back data. Read operations 
are at full clock speed, so the only methods for optimiza- 
tion are to run the clock at maximum frequency and to 
utilize. sequential read whenever possible. Sequential 
read allows a continuous output data stream on one 
command. 


The write operation, with its internal write timer compo- 
nent, needs special consideration when designing the 
control software. Efficient operation can be accom- 
plished using both the page mode and write cycle 
polling. The following example shows a typical fetch- 
store operation in asystem and how optimization can be 
incorporated. In the example system, the microcon- 
troller must fetch bytes of data from a sensor and send 
the bytes to a EEPROM for storage. Two cases are 
shown in Figure 2: case 1 uses a 24CO1A with no 
optimization; case 2 uses a 24LC01B with the available 
page mode and write cycle polling. 


By utilizing the available page write mode and by polling 
for the write cycle completion, nearly four times as many 
bytes can be initially loaded to the serial EEPROM in the 
same time interval. Continuous operation for the opti- 
mized case 2 takes only 0.49 ms per byte compared to 
1.28 ms per byte for the non-optimized case 1. 
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FIGURE 2 - CASE COMPARISON 


CASE 1 (NO OPTIMIZATION): 


Operation 


fetch byte 

load to serial 

fetch byte 

wait for write timer 
load to serial 

fetch byte 

wait for write timer 
load to serial 

fetch byte 

wait for write timer 
load to serial 

fetch byte 

wait for write timer 
load to serial 

fetch byte 

wait for write timer 
load to serial 

fetch byte 

wait for write timer 
load to serial 

fetch byte 


wait for write timer 


load to serial 


First 8 bytes loaded in 9.24 ms 


Serial Bus Time 


CASE 2 (USING PAGE MODE AND POLLING): 


Operation 


fetch byte 
fetch byte 
fetch byte 
fetch byte 
fetch byte 
fetch byte 
fetch byte 
fetch byte 


Serial Bus Time 


load 8 bytes to serial 


fetch byte 
fetch byte 
fetch byte 
fetch byte 
fetch byte 
fetch byte 
fetch byte 
fetch byte 


poll for write timer <3 ms typical 


load 8 bytes to serial 0.91 ms 


First 16 bytes loaded in 4.82 ms 


AUTHOR: Lenny French 


Memory Products Division 
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Notes: 
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Using the 93LC56 and 93LC66 
INTRODUCTION 3-wire Byte Write Program 


The Microchip Technology Inc. 93LC56/66 low-power 3- 
/4-wire non-volatile memories and are suitable for many 
embedded system code and data storage. These de- 
vices are easily interfaced to most microcontrollers in 
today's market place, but Microchip’s 8-bit RISC series 
PIC16CXX offer the best code density of any microcon- 
troller on the market today. Using the PIC16C54, the 
assembly programs contained in this application note 
have been fully tested and provide the correct timing and 
3-wire sequences to fully operate the 93LC56/66 in a 
PIC16CXX-based embedded application. The 
PiC16C54 was clocked at a 10 MHz frequency. This 
application note is intended to provide the engineer with 
readily available stand alone code modules to accom- 
plish all of the necessary functions to utilize these 
devices in a low power application using the efficient 
PIC16C54 microcontroller. 


The 93 series of devices have essentially four I/O pins: 
CS Chip Select 

CLK Clock 

DI Data In 

DO Data Out 


This series of devices use a series of commands to 
accomplish the normal memory functions. These are 
READ, WRITE, EWEN, ERASE, ERAL, WRAL, EWDS. 
For a more detailed discussion of the function of these 
devices reference the appropriate data sheet and AN536, 
also published by Microchip Technology. 


The following programs are included in this application 
note and are fully functional stand alone modules. 


3-wire Byte Read Program 
— Start Bit Routine 

— Receive Data Routine 

— Bit Out Routine 

— Transmit Data Routine 

— Power-up Routine 

— Read Routine 


— Delay Routine © 
— Start Bit Routine 
— Bit Out Routine 


_ Transmit Data Routine 


— Power-up Routine 
— Erase/Write Enable Routine (EWEN) 
— Byte Write Routine 
— Erase/Write Disable Routine (EWDS) 


3-Wire Byte Write with Data Polling Program 


— Data Polling Delay Routine 
~ Start Bit Routine 
— Bit Out Routine 


'— Transmit Data Routine 


— Power-up Routine 

— Erase/Write Enable Routine 

— Write Routine 

— Erase/Write Disable Routine (EWDS) 


3-Wire Sequential Read Program 


— Delay Routine 

— Start Bit Routine 

— Bit In Routine 

— Receive Data Routine 
— Bit Out Routine 

— Transmit Data Routine 
— Power-up Routine 

— Read Routine 


AUTHOR: Bruce Negley 


Memory Products Division 
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LIST P=16C54 


HHK KKH KKK HIKER EKER KKK KKK KEE KKK KEKE KK KK EEK KK KEKE KEKE KKK 


3-Wire Byte Read Program (80 bytes) 
" This program demonstrates howto interface a 


device. This programwill read’8 consecutive addresses 
inthe ‘random read’ mode. This means that the opcode 
and address for each byte will be sent to the device. 
This program will repeat forever. 


Another, more efficient method of reading consecutive 
addresses is calledthe ‘sequential read’ mode. This 
involves sending the opcode and address for the first 
byte to read, then cont inuing to provide clocks for the 
next addresses. The device will automatically increment 
the address. An example of the segqential read mode is 
provided inthe ‘3wseqr.asm’ file. 


This program communicates to the serial EE inthe 
x16 mode, and ASSUMES THE USER HAS SET THE ORG PIN 
ON THE DEVICE TO Vcc. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 50 Khz for this setup. 


PIC16CXX to Serial EE Connections: 


PIC16CXX Serial EE 
Pin 10 (RB4) —> Chip Select 
Pin 11 (RB5) —> Clock 

Pin 12 (RB6) —> DataiIn 
Pin 13 (RB7) —> Data Out 
ORG = Vcc 


KKK KK KEKE KEKE KKK KKK KK EEK KER KKK KKK EK KEKE KKK KEKE KE KEKE KE 


Register Assignments 
KAKKKKKEKKEKKEKREKEE KK KEE KEKE KEKE KEKE REE ERK KEKKKKEK KK KK KKK 


Sd it id ad a id i ad i ad al Sd Bd al Sl Sl i i Bd id ak i el aT a) ST el BT Mn! ny! i) eT ee, eT ee) er) ee) eT 


port_a equ oh ports (port_a) - 

port_b equ 6h 7 port 6 (port b) comm lines to serial EE 
eeprom equ Oah ; bit buffer 

addr equ Och ; address register 

datai equ Odh ? stored data input reg. 

datao equ Oeh ; stored data output reg. 

txbuf equ 10h ; transmit buffer 

count equ illh ; bits transmitted so far 

bits equ) 12h ; bits to transmit 

bytcnt equ 13h + byte counter for read routine 
loops equ 15h ; delay loop counter 

loops2 equ 16h ; delay loop counter 

hbyte equ 17h 7; high byte for input data 

lbyte equ 18h ; low byte for input data 

KKK EKKK KKK KKK KK KKK EEK IK KEKE K KEK IKK KEK KK IKE KIRK KIRKE KK KKK 
: Bit Assignments 

ga K KKK KKK KEKE HEE KKK bE KEK KEE KKK KKK KKK KKK KKK KK KEKE KKK 
d equ. 7 }; eeprom input 

do equ 6 ; eeprom output 

datout equ 7 ; data out line (port_b) 

datin equ) 6 ; data in line (port_b) 

sclk equ 5 ; clock line (port_b) 

chpsel equ 4 ;chipselect line (port _b) 


7 ‘ ; 
PRKREKEKRREK EKER REE EK EEK AEE KEK KHER KEK AIEEE KER EEE KIKI EERE EK 


org O1ffh 
begin goto PWRUP_ ; set the reset vector 
org 000h 


goto PWRUP 


Microchip PIC16C54 to a 93LC56 or 93LC66 Serial EE 


rt ae 
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PRR RRRR RAK RK KERR KKK RAK KK KKK KK KK KK KKK KKK KKK KKK KKK KK KKK KE RK RK KEKE 


: Start Bit Subroutine 
; this routine generates a start bit 
: (Chip select and DI high when clock goes high) 
PRK KR KKK KKK KKK KKK KKK KKK RK KK RIK KK KKK KK IKK RR IKK KK KKK KRKEK KKK KK KK 
BSTART 
bef port_b,datin ; set datain and chipselect lines 
bet port_b, chpsel ; Low just to check operation 
bef port_b, sclk ; make sure Clock starts lowtoo. 
nop 
bsf port_b, chpsel ; set chip select line high 
bsf port_b, datin ; set data in line high 
nop 
bsf port_b, sclk ; set the clock line high to 
; generate the start bit 
nop 
nop 
bef port _b,sclk ; set clock low again 
retlw 0 


° 
, 


PRR KR RRR KKK RK KR IKK RK KK KK KKK RK KK KK KKK KEK KKK KKK KKK KKK KKK KKKKKKKK 


: BITIN routine reads one bit of data from the 
: serial EE device and stores it in ‘di’ 
ZRII KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KKK KR KKK KK KK KKK 
BITIN 
bsf eeprom, di ; assume input bit is high 
bsf port_b, sclk 7 set clock line high 
nop ; 
btfss port_b,datout ; readthe data bit 
bef eeprom, di ; input bit was low 
bcf port_b,sclk ; set clock line low 
retlw 0 ; 


PRAKRKRK RR K KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK EKER KKK KKK KK KKK 


; Receive data routine 
; This routine reads one byte of data from the part 
; intothe ‘datai’ register. 
PRKKKRRKR KKK KE KKK KK KEK KKK KK KKK KKK KKK KR KKK KKK KKK KKK KKK KK KK KKK KK KKK K 
RX 
clrf datai ; clear input buffer 
movlw  .8 ; set #bits to 8 
movwf count 
RXLP nf datai ; rotate the buffer left 1 bit 
call BITIN ; readl bit 
bef datai, 0 ; assume the input bit was low 
bterse eeprom, di ; check the bit 
bsf datai, 0 ; set high if neccessary 


8 bits done? 
no, do another 


decfsz count 
goto RXLP 
retlw 0 


‘we 


we 





. 
cf 


PRK KKK KKK KKK KKK KKK KR KK KKK KKK KKK KKK KKK KR RK KKK KE KKK KKK KK KKKK KK 


? BITOUT routine 
; This routine takes one bit of data in ‘do’ and 
; transmits it to the serial EE device 
PRRKKKKKKK KKK KKK KKK EK KK KER ER KKK KK KKK KR KKK RR K KKK KK KK KKK KK KKK KKK 
BITOUT 
btfss eeprom, do ; check state of data bit 
goto bitlow ; low, goto bitlow 
bsf port_b,datin ; high, set datain high 
goto clkout 7; andclock it 
bitlow bef port_b,datin ; Output a logic low 
clkout bsf port_b, sclk ; set clock line high 
nop 
bef port_b,sclk 7 return clock line low 
retlw 0 


e 
ta 





SA a SS I IE RON I a a EE a a EEL a 
© 1993 Microchip Technology Inc. DSO0560A-page 3 


Using the 93LC56 and 93LC66 








PARK KKK KR AKRER KR ERK KR KK KK RRR KKK IKK IKK IKK KKK KK KKK ERK KKK KERR ERE RK KKK 


; Transmit Data Subroutine 
; This routine takes the byte of data stored in the 
; datao’ register andtransmits it to the serial EE device. 


ZR KR RIKKKR KKK KR RK RK KK KKK KKK KK KKK KKK KKK KKK KEKE KKK KE KRKKERKK KKK KK KAKA 
TX 

movft bits,w 7 set the number of bits to xmit 

movwf count 


° 
, 


TXLP 
bef eeprom, do ; assume bit 7 is low 
btfsc txbuf, 7 ; isbit 7 clear? 
bsf eeprom, do ; no, set data bit =1 
call BITOUT ; transmit 1 bit to serial EE 
xf txbuf ; rotate txbuf left 
decfsz count ; all bits done? 
goto TXLP ; no, do another bit 
retlw 0 ; yes, Jump out 


PARKA KKK RK KKK KER KR KKK KKK KKK RK KKK KKK KKK KIRK HK KKK KIKI KKKK KK KEK 
; POWER-UP ROUTINE 
; This is the programentry point, which inthis case simply 
; sets the port_aI/O lines and directs control to the 
; read routine. 
pRRRRKRKKKRKK KK KKK KER KER ERK KKK KKK KK KKK KKK KIRK IK IKK EKA KKK KKK KKK KKK KEK 
PWRUP 
movlw b’00000000' 
tis port_a ; set port_aasall output 
chef port _a ; all Lines low 


moviw b’10000000' 
tis port_b 7 set RB7 as input, rest output 
, 
; Fall through and do the read 
; 
PRR KKK KK KK KKK RK K KKK KKK KK KKK KKH KKK KK KK IKK KKK KKK IKK KER KIK KEK KEK KKK KKK 
; READ ROUTINE 
: This routine reads 8 consecutive addresses in 
: random mode starting at address 0. This is done in 
; x16 mode and will repeat forever. 
PARK KKK KKK KKK KK KKK KKK RK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKKEK KKK KKK KKK KK 


READ 


. 
, 


movlw  .0 ; set starting address to 00 
movwf addr ; 
movlw 4.8 ; set number of addresses to 
movwf bytcnt ; readas 8 

rbyte call BSTART * generate the start bit 
movlw 2 ; set # bits to 2 
movwf hits ; 


movlw b’10000000' 
movwf  txbuf 

call TX 

movlw 4.8 ; 
movwf hits 
movft addr, w 


get opcode (10b) 
into output buffer 
and transmit it 


se =e 


‘we 


set number of bits to 8 
get the address 


me 


‘we 


movwf txbuf ; into the output buffer 
call. TX ; andtransmit it 

call RX ; read the high byte 
movft datai,w ; move input data tow 
movwf hbyte ; xfer it to high byte 


B 
Ke 


; read the low byte 
; move input data to w 
; xfer it to lowbyte 


movt datai,w 
movwf hbyte 


~ 


~ 


SR Et sh st ss SS Sr NT ND 
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bet port_b, chpsel ; clear the chip select line 

incf addr ; add 1 tothe address 

decfsz bytcnt ; have all bytes been read? 

goto rbyte ; no, read another byte 

goto READ ; yes, start over 
END 
a 
© 1993 Microchip Technology Inc. DS00560A-page 5 
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LIST P=16C54 
FAK KK AK AK KIKI KISEKI AINE IAEA KIKI IIIB ID IIIT IAA 


3-Wire Byte Write Program (106 bytes) 


This program demonstrates howto interface a 
Microchip PIC16C54 to a 93LC56 or 93LC66 Serial EE 
device. This program will execute the erase/write enable 
command, write to 8 consecutive addresses, and then 
execute the erase/write disable command. This 

sequence will repeat forever. 


After each byte is written, time mst be given to the 
device for it to complete the write cycle before 

the next command can be sent. The easiest solution 
is to consult the data book for the maximum write 
cycle time and just wait that long before the next 
command is sent. This program demonstrates that 
solution. 


Another, more efficient method of determining when the 
write cycle is complete is called ‘data polling.’ This 
method is demonstrated in the program “3wdpoll.” 


This program comminicates to the serial EE inthe 
x16 mode, and ASSUMES THE USER HAS SET THE ORG PIN 
ON THE DEVICE TO Vcc. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 40 Khz forthis setup. 


PIC16CXX to Serial EE Connections: 


PIC16CXX Serial EE 
Pin 10 (RB4) —> Chip Select 
Pin 11 (RB5) —> Clock 

Pin 12 (RB6) —> Data In 
Pin 13 (RB7) —> Data Out 
ORG=Vcc 


KAKKKKEKKKKK KEE KEKE KEKE KEKE KKK EK KEE KKK KEK KKK KEKE KERR 


Register Assignments 
HII IKI IK IIIS IIK SII IA ASIII ISA ISAS SSIS IIA SS AIS ASSIA AK 


Sk ad ad ed ad ad al ad id ad ad Ey al ad el Ba! nT i) ) nl Ee! Sn!  ! ! ee) ee ee) eT ey ee) eT eT eT YT eT | eT en) a Yn Te TY 


port_a equ Sh ; port 5 (port_a) 
port_b equ 6h ; port 6 (port b) comm lines to serial EE 
eeprom equ Oah ; bit buffer 


addr equ. Och 
datai equ Odh 
datao equ. Oeh 


address register 
stored data input reg. 
stored data output reg. 


“Ss “3s oe 


txbuf equ 10h 7 transmit buffer 

count equ. ilh ; bits transmitted so far 

bits equ). 12h ; bits to transmit 

bytent equ 13h ; byte counter for write routine 
loops equ i5h ; delay loop counter 

loops2 equ 16h ; delay loop counter ; 
2 KKKKKKKK KEK RK KKK KKK KEK RK KKK KKK EKER KKK KKK EK KK EK KKKK KKK KKK 
: Bit Assignments 

g RAK KK HKIK KKK KEK KKK KEE KK KEK IKK IKE EK EK EK KK EK KK KEKE AKER IKK 
ro equ. 7 7; eeprom input 

do equ. 6 7; eeprom output 

datout equ 7 ; data out line (port_b) 

datin equ 6 ; datain line (port_b) 

sclk equ 5S ;clock line (port_b) 

chpsel equ 4 ;chipselect line (port_b) 


gp KKK EKKIK EIT K ERIK KEK KKK KEK KKK KIKI KK KEK KKK EKER KKK EK ERK EKER EEE 
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org O1lffh 
begin goto PWRUP ; Set the reset vector 
org O00h 


goto PWRUP 
HARES SEAS IDIR EASIER EIEN LIOR AAR a 
; DELAY ROUTINE 
: This routine takes the value in ‘loops’ 
: andmultiplies it times 1millisecond to 
; determine delay time. 


pRRKAKRKAKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK EK KR KKK KK KKK KKK KKK KKK 


WAIT 
top moviw -LLO0 ; timing adjustment variable 
movwf loops2 


top2 nop sit and wait 


‘e 


nop 
nop 

nop 

nop 

nop 

decfsz loops2- ; inner loops complete? 
goto top2 ; no, go again 

decfsz loops ; outer loops complete? 
goto top ; no, go again 

retlw 0 ; yes, return from sub 


; 
PRK KR KKK AK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KR KK KK KKK KK KK KKK KK KK KK 
; Start Bit Subroutine 
; this routine generates a start bit 
; (Chip select and DI high when clock goes high) 
PRK RRR KKK KKK KKK KR KKK KKK KK KK KKK KKK KKK KK KKK KKK IK KKK RK KKK KKK KK KK 9 
BSTART 

moviw b’10001111' 


tris port_b ; set port b for output 

; except for the data out line 
bef port_b,datin ; set datain andchipselect lines 
ber port_b, chpsel ; Low just to check operation 
bef port_b,sclk ; make sure clock starts low too. 
nop 
bsf port_b, chpsel ; set chip select line high 
bsf port_b,datin ; set data in line high 
nop 
bsf port_b,sclk ; set the clock line high to 

; generate the start bit 
nop 
nop 
bcf port_b,sclk ; set clock low again 
retlw 0 


; 
PRK K KKK RRR RK KK KK KK KK KKK KKK KKK KK KK KKK KR RR KKK KKK KR KK KKK KK KK RK KK RK 





: ' BITOUT routine 
: This routine takes one bit of data in ‘do’ and 
: transmits it to the serial EE device 
J RKKRR RRR KKK KK KK KKK KK KK KK KK KKK KKK KKK KK KR KKK KK KKK RR RK KK KK KR KK 
BITOUT 
btfss eeprom, do ; check state of data bit 
goto bitlow ; low, goto bitlow 
bsf port_b,datin ; high, set datain high 
goto clkout ; andclock it 
bitlow  bcf port_b,datin ; output a logic low 
clkout bsf port_b,sclk ; set clock line high 
nop 
bef port_b,sclk ; return clock line low 
retlw 0 
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PRK RRKAK RK KIRK RK K KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KEK RE RK KK KKK KK KKK 


; Transmit Data Subroutine 
; This routine takes the byte of data stored inthe 
: ‘datao’ register andtransmits it to the serial EE device. 
PR RRRKKK KK KKK KKK KKK KR KR KKK KKK KKK KKK KKK KR KKK KKK KK KKK KKK KKK KK KKK KK 
TX 
movt bits,w ; set the number of bits to xmit 


movwf count 


TXLP 
bef eeprom, do 7; assume bit 7 is low 
btfsc txbuf, 7 ; isbit 7 clear? 
bsf eeprom, do ; no, set databit =1 
call BITOUT ; transmit 1 bit to serial EE 
xf txbuf ; rotate txbuf left 
decfsz count ; all bits done? 
goto TXLP ; no, do another bit 
retlw 0 7; yes, jump out 


; 
PAK KKK KKK KK KKK KK RK HK KK KI KKK IK KKK KK KKK KKK KKK KKK KKK KR KKK KEK KK RK K 


; POWER-UP ROUTINE 

: This is the program entry point, which inthis case simply 

; sets the port_a I/O lines and directs control to the 

; erase/write enable routine. 

PRR KKKKKKRAKK RK KK KEK KK KK RK KK KKK KKK KK KK KKK KKK KKK KKK RK KR KK KKK KKK ERK 


PWRUP 
movlw b’00000000' 
tris port_a ; set port_aas all output 
cht porta 7 all lines low 


movlw b’10000000' 
tris port_b 7; set RB7 as input, rest output ; 
; 
Fall through and do erase/write enable 
; 
PRR KK RRR KEK KKK RK KK KK KKK KK KKK KKK KKK KKK KKK KK RK KKK KKK KKK KK KKK KKK A 


; EWEN (Erase/Write ENable Routine) 
; this routine enables the dut for erasing and 
: writing. This must be done prior to any erase, write 
; eral, wral instructions. 
PRRKKKKEKRK RRR KKK KEK KKK KKK KEK KK KK KKK RE KK KKK KK KKK RK KEKE KKK KK KEK KKK KKK K 
EWEN 
call BSTART ; generate a start bit 


movlw  .2 
movwf hits ; 

movlw b’00000000' ; get the opcode (00b) 
movwf txbuf ; into the output buffer 


set # bits to 2 


Ne 


. 


. 


call TX 7 andtransmit it 

movliw  .8 ; set #bits to 8 

movwf hits ; 

movlw b’11000000' 7; get opcode and address 
; (11XXXXxXX) 

movwf  txbuf ; into output buffer 

call TX ; andtransmit it 

bef port_b, chpsel ; set chip select line low 

nop 

; Now continue on to the write command 


; 
PRK ARKRKRKRKK KKK RK KK KEK ERR KE RRR KK KKK KKK KR RRR KK KERR KK RR KKK RKK KK KKK KK 


; Byte Write Routine 

; This routine writes an AA55h pattern into 

; 8 consecutive addresses starting at address 00. 

: A delay of about 10ms is given after each byte 

F for the write cycle to complete. 

; The write is done in the x16 mode: the user must 
; have the ORG pin tied to Vcc on the device 
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PRK IK RRR KEK KK KKK KR RR KKK KKK KKK RRR KKK RRR KK KR RRR KK KKK KK RRR KK KK KK KKK 


WRITE 
movlw  .0 ; set starting address to 00 
movwf addr : 
movlw  .8 ; set number of bytes to write as 8 
movwf bytcnt ; 
topwr cll BSTART 7; generate the start bit 


moviw <e 
movwf hits ; 
movlw b’01000000' 
movwt  txbuf 

cll TX 


set # bits to 2 for the opcode 


“=e 


get opcode (01b) 
into the transmit buffer 
and send it 


me “ee 


me 


moviw  .8 set # of bits to 8 forthe 


“oe 


movwf hits ; address 

move addr, w 7; get address counter 
movwf  txbuf ; into output buffer 
call TX 7; and send it 


movlw b’10101010' 
movwf  txbuf 

call TX 

movlw b’01010101' 
movwf  txbuf 


get upper byte of data (AAh) 
into the transmit buffer 

and send it 

get lower byte of data (55h) 
into transmit buffer 


“Ne Me Ne Ne 


‘e 


call TX ; andsendit 
bet port_b, chpsel ; clear the chip select line 

; to initiate write cycle 
movlw  .10 ; 
movwf loops ; set delay time to 10mS 
call WAIT 7; andwait 
ircf addr ; increment address counter 
decfsz bytcnt ; all bytes written? 
goto topwr ; no, do another 

7; yes, goon 


; 
. Now continue on to the erase/write disable command 
; 


PRKRRKRKKKKE KKK KK RRR KKK KKK RK KK KEK RK KKK KEK KKK KEKE KK KEK KK KKK RK KKK KK K 


: EWDS (Erase/Write Disable Routine) 

; This routine executes the erase/write disable command 
; which prevents the contents of the array from being 

; written to. 


PRR KARR KEK KKK ERK KKK KK KKK KK KK KK RK KKK KKK KKK KK ERK KKK ERK KKK KKK KR KKK K 





EWDS 
call. BSTART ; generate a start bit 
movlw .2 ; set #bitsto2 
movwf hits ; 
moviw b’00000000' 7; get the opcode (00b) 
movwf  txbuf ; into the output buffer 
call cx 7; andtransmit it 
movlw  .8 ; set # bits to 8 
movwf hits ; 
movlw b’00000000' 7 get opcode and address 
; (OOXXXXXX) 
movwf txbuf ; into output buffer 
call TX 7 andtransmit it 
bee port_b, chpsel 7 set chip select line low 
nop 
goto EWEN 7 start all over 
END 
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LIST P=16C54. 


KKK KKKKK KKK KEKE KEK KK KEK KEK KK KEK KE KKK KKK KK KKK KER KK KKK KK KKEKKEKEKE 
3-Wire Byte Write with Data Poll Program (107 bytes) 


This program demonstrates howto interface a 
Microchip PIC16C54 to a 93LC56 or 933LC66 Serial EE 
device. This program will execute the erase/write enable 
command, write to 8 consecutive addresses, andthen 
use the ‘data polling’ method to determine when the: 
write cycle is complete. The program then executes 

the erase/write disable command. This sequence will 
repeat forever. 


When writing to a 3-wire serial EE device, the 

intemally timed write cycle will beginafter 

the opcode, address and data are sent to the 

device. There are two ways to make sure that the 

cycle is complete before you send it another command. 
The simplest method is to simply wait for the maximum 
write cycle time, which can be obtained fromthe data book. 
Amore efficient methodis “Data polling.” Thisis 

done by toggling the chip select line low and then 

back high after the opcode, address and data are sent. 

The chip select line mst be low for at least 250ns 

before bringing it high again. The device will pull 

the data out line lowat that point, and set it high 

when the write cycle is complete. The user can then check 
or “poll” the dataout line until it goes high before 

sending the next command. 


As an option, the user can connect a LED to pin 18 

on the PIC16CXX (use about a 1K resistor in series) as a 
timeout indicator. This LED will come on if the 

data polling is unsuccessful and the device being 

programmed does not respond. This can be tested by 

simply running the program with no part inthe socket. 


This program comminicates to the serial EE inthe 
x16 mode, and ASSUMES THE USER HAS SET THE ORG PIN 
ON THE DEVICE TO Vcc. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 50 Khz forthis setup. 


PIC1L6CXX to Serial EE Connections: 


PIC16CXX Serial EE 
Pin 10 (RB4) —> Chip Select 
Pin 11 (RB5) —> Clock 

Pin 12 (RB6) —> Data In 
Pin 13 (RB7) —> Data Out 
ORG=Vcc 


KKK KK KK KK KKK KEK KK KIKI KKK KK KEE KK EK KK KIRK KK KKK KKK KKK KKK KKK KKK 


“s “es =s ~s =a 7s es “8 7s “s we 7a wa =. ~s bt 2s =e “we ™s “a “se 3s =a ae =a. “a 7a “Ss =e ™“s =a “es ~s¢ “8 Ss “8 ~sE “s =e “ss =e se ~e “8s -f£ ~e =e 7. bd “es -s 7a =e “as ~a 


Register Assignments 
PRAHA IKK KKK KK RK KK KKK IKKE KK HK KK IKK KKK KK IKK KKK KK IKK KK IK KICK KK 


port_a equ Sh 7 port 5 (port _a) 

port_b equ 6h ; port 6 (port b) used comm lines to serial EE 
eeprom equ 0Oah ; bit buffer 

addr equ. Och ; address register 

catai equ. Odh ; stored data input reg. 

datao equ. Oeh ; stored data output reg. 

txbuf equ 10h 7 transmit buffer 

count equ ilh ; bits transmitted so far 

bits equ 12h ; bits to transmit 

bytcnt equ 13h ; byte counter for write routine 
loops equ 15h ; delay loop counter 

loops2 equ 16h 7; delay loop counter 
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PRR RRR RE RAK KKK KK KKK KKK KKK KK KKK KK KKK KKK KER RK KKK EKER EKKKKER KKK 


; Bit Assignments 
FRR RRR KKK KA KKK KKK KK KKK KKK KKK KK KK KK KR KKK KK RK KKK KEK KKK KK KKK KKK 


Q. 


equ. 7 ; eeprom input 

do equ 6 ; eeprom output 

datout equ 7 ; dataout line (port_b) 

datin equ 6 ;datainline (port _b) 

sclk equ 5 ; clock line (port b) 

chpsel equ 4 ;chipselect line (port_b) 

timeout equ 1 ; write cycle timeout warning (port_a) 

oS nE oriniddiindrn onindinniidiiiidniaviinuininidiniiddiiiiediaernnionintiaes 


org O1ffh 
begin goto PWRUP ; set the reset vector 
org 000h 


goto PWRUP 


PRAKKKKKK KKK KKK KKK KK KKK KK KK KKK KKK KR KKK KKK KKK KKK KKK KK KKK KK KKK KK 


; DATA POLL DELAY ROUTINE 
; This routine delays 100 us is 
; used for delay between polls 
PAK RKKKKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KKK KK KKK KKK KKK KK KKK KK KKK KK 
dpdelay 
movilw  .25 ; timing adjustment variable 
movwf  loops2 
top nop 
decfsz loops2 ; loops complete? 
goto top ; no, go again 
retlw 0 ; yes, return from sub 


. 
, 


PRR AR KRK KKK KK KKK KEK KK KK KK KKK KKK KKK RK KEK KR KKK KKK KKK KKK KKK KKK KKK KKK 


; Start Bit Subroutine 
; this routine generates a start bit 
(Chip select and DI high when clock goes high) 
PRRRKRK KKK KKK KKK KER KR KKK KK KKK KKK KKK KKK KKK KKK KEK KKK KKK KER KKK KKKKKE » 
BSTART 
bef port_b, datin 7 set datain and chipselect lines 
bef port_b, chpsel ; Low just to check operation 
bcf port_b,sclk ; make sure clock starts low too. 
nop 
bsf port_b, chpsel ; set chip select line high 
bsf port_b,datin ; set data in line high 
nop 
bsf port_b,sclk 7 set the clock line high to 
; generate the start bit 
nop 
nop 
bef port_b, sclk 7 set clock low again 
retlw 0 





, 
PKK RRA KKK RR KEK KKK KKK KKK KKK KR KKK KKK KK KKK KKK KKK KKK KK EKER KK KKEK KER 


; BITOUT routine 
: This routine takes one bit of data in ‘do’ and 
; transmits it to the serial EE device 
JR RRR KK KKK KKK KR KEK KK RK KKK RRR KKK KKK KKK KK KK KKK KKK KKK KER KEK KK KKK KKK 
BITOUT 
btfss eeprom, do ; check state of data bit 
goto bitlow ; low, goto bitlow 
bsf port_b,datin ; high, set datain high 
goto clkout 7; andclock it 
bitlow bef port_b, datin ; output a logic low 
clkout bsf port_b, sclk ; set clock line high 
nop 
bef port_b,sclk ; return clock line low 
retlw 0 
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PRRRKEKAKKRR KKK KEK KK KKK KK KK KKK KK KKK KKK AK KR KKK KKK KKK KKK KKK KKK RK KKK 


; Transmit Data Subroutine 
; This routine takes the byte of data stored in the 
; ‘datao’ register andtransmits it to the serial EE device. 
PRR RAR AKK RK KK KKK KKK KKK KKK KKK KKK KKK EK KKK KKK KKK KKK K KK AK KKK KKK RK KKK 
TX 
movft bits,w ; set the number of bits to xmit 


movwf count 


TXLP 
bet eeprom, do ; assume bit 7 is low 
btfsc txbuf, 7 ; isbit 7 clear? 
bsf eeprom, do ; no, set data bit =1 
call BITOUT ; transmit 1 bit to serial EE 
xf txbuf ; rotate txbuf left 
decfsz count ; all bits done? 
goto TXLP ; no, do another bit 
retlw 0 ; yes, jump out 


; 
PARKER KIRKE KKK KKK KKK KK KKK KEKE KKK KKK KKK KER EK KKK KKK KKK KK KKK KKK KKK KK KK 


; POWER-UP ROUTINE 

; This is the programentry point, which in this case simply 

; sets the port_aI/Olines anddirects control to the 

- erase/write enable routine. 

ZRAKKK RK RK RK RK KKK KK KK KKK KK KK KKK KKK KKK KKK KR KKK KKK KKK KK RK KK KEKE KKK KKK 
PWRUP 


° 
v 


movlw b’00000000' 
tris port_a ; set port_aas all output 
clef port_a ; all Lines low 


movilw b’10000000' 
tris port_b ; set RB7 as input, rest output ; 


; Fall through and do erase/write enable 


KHKKKEKKKKKKKKKK KKK KKK KKK ERK KK KK KKK KKK KK KKK KK KKK KK KKK KKKKKEKKKKK KK 
EWEN (Erase/Write ENable Routine) 


; this routine enables the dut for erasing and 
: writing. This must be done prior to any erase, write 
; eral,wral instructions. 
PARKER K KEK KKK KKK RK KKK RK KKK KKK KKK RIK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK 
EWEN 
; 
call BSTART ; generate a start bit 


movilw Po. set # bits to 2 
movwf hits ; 
moviw b’00000000' 


movwf txbuf 


™e 


get the opcode (00b) 
into the output buffer 


“es 


Ne 


call TX ; andtransmit it 

movlw  .8 ; set #bits to 8 

movwf kits ; 

movilw b’11000000' 7; get opcode and address 
; (11XXXXXX) 

movwf  txbuf ; into output buffer 

call TX ; andtransmit it 

bet port_b, chpsel ; set chip select line low 

nop 

; Now continue on to the write command 


, 
PAAR RAR KER KK IKK KKK KKK KKK KK KK KKK KKK KKK IK KKK EKA KKK KK KKK KKK KEKE KKK 


? WRITE 

; This routine writes a AA55h pattern into 

; 8 consecutive addresses starting at address 00. 

; It will then ‘poll’ the data out line to determine 

; when the write cycle is complete. If the cycle has 
; not completed within 20 ms, then it will continue 
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; anyway and turn the timeout fail LED on. 
; The write is done in the x16 mode: the user must 
: have the ORG pin tied to Vcc on the device. This 


; program will repeat forever. 


PAAR KK RR IKK RR RRR KK RR KKK KK IKK KKK KK KR RIK KKK KAKI KKK ERK IKKE KKK EK 


WRITE 
moviw 
movwt 
moviw 
movwt 


topwr call 


movilw 
movwf 
movilw 
movwft 


moviw 
movwft 
movf 

movwft 


movlw 
movwf 


movilw 
movwt 
cll 


bef 


nop 
bsf 


movlw 
movwft 
polltop all 
btfsc 
goto 
decfsz 
goto 
bsf 
goto 


okpoll bef 

badpoll bcf 
incf 
decfsz 
goto 


° 
’ 


0 
addr 
8 
bytcnt 


BSTART 


2 

bits 

b’ 01000000' 
txbuf 

TX 


8 

hits 

addr,w 
txbuf 

TX 
b’10101010' 
txbuf 

TX 
b’01010101' 
txbuf 

ip ae 


port_b, chpsel 


port_b, chpsel 


200 

loops 

dpdelay 
port_b, datout 
okpoll 

loops 

polltop 
port_a,timeout 
badpoll 


port_a,timeout 
port_b, chpsel 
addr 

bytcent 

topwr 


“ee 


we 


=e 


™e 


“e “e 


we 


. Te eT ee? eS  ) ee ee Te Py 


eo 


me 


me 


“Ne 


™e 


eS ee? es eT Ty 


=e 


we Ne 8 Ne 


we 


, 


set starting address to 00 


set number of bytes to write as 8 


generate the start bit 
set # bits to 2 for the opcode 


get opcode (01b) 
into the transmit buffer 
and send it 


set # of bits to 8 for the 
address 

get address counter 

into output buffer 

and send it 

get first half of data (AAh) 
into the transmit buffer 

and send it 

get second half of data (55h) 


; into transmit buffer 


and send it 


clear the chip select line 
to initiate write cycle 


set the chip sel line high 
to begin data polling 


poll 100 times before timeout (about 20ms) 
wait 100us 

is the data out line high? 

yes-cycle complete: do another 

has it timed out? 

no, check again 

yes, set timeout LED and go on 


clear the timeout LED 


; chip sel line back low 


increment address counter 
all bytes written? 
no, do another 


; yes, goon 


; Now continue on to the erase/write disable command 


° 
f 


PRK KKRKKKKK KKK KIRK KK KEK KEKE RK RARE RK KKK KKK KERR KKK KKK KKK KEKE RKKER EKER 


; EWDS (Erase/Write Disable Routine) 

: This routine executes the erase/write disable command 
: which prevents the contents of the array from being 

; written to. 


PRAHA KK KKK KK RK KKK KER KR KER KERR K KK ERK RRR KKK KR EK KEK HARKER KKK RK KK 
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EWDS 
call BSTART ; generate a start bit 
movlw  .2 ; set #bitsto2 
movwf bits ;: 
movlw b’00000000' ; get the opcode (00b) 
movwf  txbuf ; into the output buffer 
call TX ; andtransmit it 
movlw  .8 ; set #bits to 8 
movwf hits ; 
movilw b’00000000' ; get opcode and address 
7 (OOXXXXXX) 
movwf  txbuf 7 into output buffer 
call TX ; andtransmit it 
bcf port_b, chpsel ; set chip select line low 
nop 
goto EWEN ; start all over 
END 
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LIST P=16C54 


KKK KKK KK KKK IKK IKK IKKE KI KKK KKK KKK KK KE KK KEK KKK KK KEKKEKKEEEK 


3-Wire Sequential Read Program (93 bytes) 


This program demonstrates howto interface a 

Microchip PIC16C54 to a 93LC56 or 93LC66 Serial EE 
device. This programwill read 8 consecutive addresses 
inthe ‘sequential read’ mode. This means that the opcode 
and address are sent for the first address only. After 

the first address is read, the Chip Select line is left 

high and clocks for the remaining 7 bytes are sent to the 
device. The device will automatically increment the address 
pointer inthis mode, allowing the user to read as many 
consecutive addresses as needed. This program will repeat 
forever. 


This program communicates to the serial EE inthe 
x16 mode, and ASSUMES THE USER HAS SET THE ORG PIN 
ON THE DEVICE TO Vcc. 


Timing is based on using the PIC16CXX in ‘XT’ mode 
using a 4Mhz crystal. Clock speeds to the serial EE 
will be approximately 50 Khz forthis setup. 


PIC16CXX to Serial EE Connections: 


PIC1LECXX Serial EE 
Pin 10 (RB4) —> Chip Select 
Pin 11 (RBS) —> Clock 

Pin 12 (RB6) —> DataIn 
Pin 13 (RB7) —> Data Out 
ORG = Vcc 





KKK KKKKK EKER KK KK KKK KKK KKK KEKE KKK KK KKK KEKE KK KEK KKK KKK KK KAKK KKK 


we 7s Fe ~e se 7. =s 78 ve “e “se ~e 7s “es =e es =e "es ~e ea =s ~e =e Tea “8 7s 7e =e ve 7a es =e we we =e 


Register Assignments 
gp KKKK KKK KK KK KK KKK KKK IK KK KKK KKK KEKE IK KK KKK HK KAI KKK KKK KIRK KKK 


port_a equ 5h 7 port 5 (port_a) 

port_b equ 6h 7 port 6 (port b) used comm lines to serial EE 
eeprom equ Oah ; bit buffer 

addr equ. Och ; address register 

datai equ Odh ; stored data input reg. 

datao equ 0Oeh ; stored data output reg. 

txbuf equ. 10h ; transmit buffer 

count equ 11h ; bits transmitted so far 

bits equ. 12h ; bits to transmit 

bytcnt equ 13h ; byte counter for read routine 
loops equ Lon ; delay loop counter 

loops2 equ 16h ; delay loop counter 

hbyte equ. 17h ; high byte for input data 
lbyte equ 18h ; lowbyte for input data 


© KKKKKKKKK KKK KKK KK EK KKK KK KKK KK KKK KEK KKK AK KEKE KEK KKK KKKKKK KKK 





Bit Assignments 
KAKKKKEKKKKEKEKE KEK KK KEK KKK KK KK KKK KKK KK KKK IKK IK KEKKKKEKK KKK KKK 


e se foe 


d equ 7 ; eeprom input 

do equ 6 7; eeprom output 

datout equ 7 ; data out line (port_b) 

datin equ 6 ; data in line (port_b) 

sclk equ 5 ; clock line (port_b) 

chpsel equ 4 ; chip select line (port_b) 

POE RE PETE OEE eee TST eT ere re Teer eee ete, Tater ere n 
org Olffh 

begin goto PWRUP_ ; set the reset vector 
org 000h 


goto PWRUP 


: 
9 KKK KKK IK IKK KKK KK RIK KKK KK KKK HK KKK KEE HK IK KIKI KKK IK IKKE IK KIA K 


$a AS SS PS SE PE ES SE TST ET IE SST 
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; DELAY ROUTINE 
: This routine takes the value in ‘loops’ 
; and multiplies it times 1 millisecond to 
: determine delay time. 
PRR KRRRK KKK RK KKK KKK KKK KKK KKK KKK KKK KK KKK IK KKK KKK KKK KEK KKK KKK EK 
WAIT 
top movlw  .110 ; timing adjustment variable 
movwf loops2 
top2 nop ; sit andwait 
nop 
nop 
nop 
nop 
nop 
decfsz loops2 ; inner loops complete? 
goto top2 ; no, go again 
decfsz loops ; outer loops complete? 
goto top ; no, go again 
retlw 0 7; yes, return from sub 


; 
fp ARKKRARKKKKK KEK KKK RK KK RR KKK KKK KKK KKK KAKA KKK KKK KKK KKK KKK KEK KKK KK 


: Start Bit Subroutine 
; this routine generates a start bit 
; (Chip select and DI high when clock goes high) 
PRK KKRK KKK KK KKK KK KK KKK KK KKK KKK KKK IKK RK KKK KKK KK KKK KEK KK KK KKK KKK 
BSTART 
bef port_b,datin ; set datain and chipselect lines 
beet port_b, chpsel ; low just to check operation 
bcf port_b, sclk ; make sure Clock starts lowtoo. 
nop | 
bsf port_b, chpsel ; set chip select line high 
bsf port_b,datin ; set data in line high 
nop 
bsf port_b,sclk ; set the clock line high to 
; generate the start bit 
nop 
nop 
bcf port_b,sclk ; set clock low again 
retlw 0 


’ 
PRR ARK KKKK KEKE KKK KK KKK KKK KKK KKK KKK RK KKK RK KKK KKK KKK KK KKK KKK KKK 


; BITIN routine reads one bit of data fromthe 
iH serial EE device and stores it in ‘di’ 
PRR KKKRK KKK KK KKK K KK KKK KK KKK KK KR KKK KK KKK KK KKK KKK KKK KK KK KKK KK KKK 
BITIN 
bsf eeprom, di 7 assume input bit is high 
bsf port_b, sclk ; set clock line high 
nop ; 
btfss port_b, datout ; read the data bit 
bef eeprom, di ; input bit was low 
bef port_b, sclk 7 set clock line low 
retlw 0 ; 


PRK KKK ARK RK KKK KKK KER AKK KKK KKK EK KKK IKK KKK IK KKK IKK RK ER KKK KK KKK KK KKK 


; Receive data routine 
: This routine reads one byte of data from the part 
; into the ‘datai’ register. 
PRK RRR RER KKK KR KK KKK KKK KKK RK KK KR KK KKK KK RE KKK KKK KR KEKK KK KKK KEK KKK KA 
RX 
clrf datai ; Clear input buffer 
movlw  .8 ; set # bits to 8 
movwf count 
RXLP if datai ; rotate the buffer left 1 bit 
call BITIN ; readil bit 
bef datai,0 7; assume the input bit was low 


a AH TC STR AL PST TP IAT OTD 
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btfsc eeprom, di ; check the bit 

bsf datai, 0 ; set high if neccessary 
decfsz count ; 8 bits done? 

goto RXLP ; no, do another 

retlw 0 


, 
PRK AKR RHR KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KIRK KEK KKK EKA KKK KKK KKK 


: BITOUT routine 
This routine takes one bit of data in ‘do’ and 
: transmits it tothe serial EE device 
PRK RRKR KKK RRR ERK KKK KK RR K KK RK KKK KKK KKK KEK KK KEK KK KKK IK KKK IK KKK KK 
BITOUT 
btfss eeprom, do ; check state of data bit 
goto bitlow ; low, goto bitlow 
bsf port_b, datin ; high, set datain high 
goto clkout ; and clock it 
bitlow bcf port_b, datin ; output a logic low 
clkout bsf port_b, sclk 7 set clock line high 
nop 
bef port_b,sclk ; return clock line low 
retlw 0 


, 
PRA KR KRKKKRKKKRKRKRRK KKK KK KR RRR KKK KKK IKK KK KKK IKK KKK KK KKK RK RE KKK ER KKK 


; Transmit Data Subroutine 
; This routine takes the byte of data stored in the 
; ‘datao’ register andtransmits it to the serial EE device. 
PRKRKKKEK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKEKKKKEK KKK 
TX 

movft bits,w ; set the number of bits to xmit 


movwf count 


TXLP 
bcf eeprom, do ; assume bit 7 is low 
btfsc txbuf, 7 ; isbit 7 clear? 
bsf eeprom, do ; no, set databit =1 
call BITOUT ; transmit 1 bit to serial EE 
xf txbuf ; rotate txbuf left 
decfsz count ; all bits done? 
goto TXLP ; no, do another bit 
retlw 0 7; yes, Jump out 


° 
tA 


PRKRKRKRKKKKKKKKKRKKR RRR KK KKK KKK KKK KKK KKK KKK KK KR KKK RK KKK KKK EK KKK KKK 


; POWER-UP ROUTINE 

; This is the program entry point, which inthis case simply 

; sets the port_aI/O lines anddirects control to the 

; erase/write enable routine. 

P RRRRKKKKKRKR KK KKK KK RRR KK RRR KK KKK IKK KKK KK IKK KKK KK KER KKK KKK EKER EK KKK 
PWRUP 


. 
’ 


movlw b’00010001' 





tos port_a ; set RAO as input, rest output 

cif port_a ; all lines low 

movlw b’10000000' 

tris port_b ; set RB7 as input, rest output ; 


Fall through and do the read 


KKKKKKKKEKKK KKK KKKKKKK KKK KKK RE K KKK KKK KR KEKKEKKKEKKKEKKEKEKREKREKKKKEKKKKKKK 


READ ROUTINE (Sequential read mode) 
This routine reads 8 consecutive addresses in 
sequential mode starting at address 0. This 


program will repeat forever 
J RRR RR KKK KERR KKK KKK KK RRR KE KKK RIKKI KK KKK KKK KKK RIK KKK KKK KKK KER KKK KKK KK KKK 


=e ™e ™“e =e ™e 


“we Me Ne 


READ 
movlw_ .0 ; set starting address to 00 
movwf addr ; 
moviw 8 ; set number of addresses to 
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movwt 


call 

movlw 
movwft 
movlw 
movwf 


movlw 
movwt 
movft 

movwf 


rbyte ell 
movft 
movwft 


movf 
movwt 


incf 
decfsz 
goto 


ber 
goto 
END 


bytcnt 


BSTART 
oe 

bits 

b’ 10000000! 
txbuf 
TX 

8 

bits 
addr,w 
txbuf 
TX 


RX 
datai,w 
hbyte 


RX 
datai,w 
hbyte 


addr 
bytcnt 
rbyte 


port_b, chpsel 
READ 


Using the 93LC56 and 93LC66 


~ 


~ 


we 


~ ~ 


~ 


“ . ~ 


~ 


“ ~ 


se 


~ ~ 


~ 


™“e “ 


‘e 


, 


~ 


> read as 8 


; generate the start bit 


set #bitsto2 


; get opcode (10b) 
; into output buffer 
; andtransmit it 


; set number of bits to 8 
; get the address 

; into the output buffer 
; andtransmit it 


; read the high byte 
; move input data tow 


xfer it to high byte 


; read the low byte 
; move input data tow 
; xfer it to lowbyte 


; add1 tothe address 


have all bytes been read? 
no, read another byte 


; yes, Clear the chip select line 
; and start over 
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ER59256/93C06 and NUC9306/NMC93C06 Compatibility Issues 





INTRODUCTION 


The ER59256 and 93C06 are 256 bit (16 x 16) serial 
EEPROMs currently offered by Microchip. The ER59256 
is fabricated in N-channel SNOS technology and the 
93C06 in advanced CMOS. There are some uncertain- 
ties in the field regarding the compatibility between 
Microchip’s 256 bit serial EEPROM and National's de- 
vice (NMC93C06). This report highlights the differ- 
ences. 


SOFTWARE DIFFERENCES 


Microchi ER592 


SB OPCODE ADDRESS 
1 1000 A3A2A1A0 
1 
1 
1 
1 
1 


0100 A3A2A1A0 
1100 A3A2A1A0 
0011 0000 
0000 0000 
0010 0000 
NOT SPECIFIED 


EWEN Erase/Write Enable 
EWDS Erase/Write Disable 


From the instruction sets shown, the address bits for the 
commands EWEN, EWDS, ERAL and WRAL are “don’t 
care” for 9306/93C06 and all logical 0’s for the ER59256. 
The WRAL instruction is not specified for the ER59256. 
The two LSBs of the opcode are 0's for Microchip’s 
ER59256/93C06 and “don’t care” for National’s 
NMC9306/NMC93COE. In order to make the software 
fully compatible to all parts, it is recommended to design 
programs with all logical 0’s in place of the “don’t care” 
bits. 





ional NM NM 


ADDRESS DATA 

A3A2A1A0 - A3A2A1A0 

A3A2A1A0 - A3A2A1A0 D15- D0 
A3A2A1A0 - A3A2A1A0 

X X X X : X X X X 

X X X X 7 X X X X 

XX X X XXXX_ - 

X XX X XX XX  D15- D0 


Erase All 
... Write All 


Polling is available on the 93C06 and NMC93CO06. The 
soft polling can be done by checking the status signal on 
the DO line (pin 4). A low busy signal (BSY) indicates the 
device is still in the programming mode and a high level 
(RDY) represents the device is ready to receive a new 
instruction. The ER59256 and the NUC9306 however, 
do not provide this feature. 


© 1992 Microchip Technology Inc. 
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ER59256/93C06 and NMC9306/NMC93C06 





HARDWARE DIFFERENCES 





PARAMETER 

PING | 

PIN 7 

CLOCK FREQ 

CLK DUTY CYCLE 
CLK HIGH TIME min. 
CLK LOW TIME min. 


25% - 75% 
not specified 
not specified 
not specified 
10K 

1.0 KV 
10-30 ms 
10mA 

3mA 


CS LOW TIME min. 
ENDURANCE 

ESD RATING 

E/W TIME 

ACTIVE CURRENT 
STANDBY CURRENT 


Pin 6 and 7 configuration - 


Microchip uses pins 6 and 7 of the ER59256 for factory 
internal test purposes. Pin 6 is used to monitor the on- 
chip charge pump which generates the required internal 
high programming voltage (>20 volts) during the ERASE 
and WRITE cycles. Any circuitry connected to this pin 
will reduce the data retention of the device or even inhibit 
programming. Signals on pin 7 can force the device into 
its internal test modes resulting in overprogramming all 
memory locations. It is, therefore, recommended that 
pin 6 be left open and pin 7 tied to Vss for normal 
operation. 


Microchip’s 93C06 and National's NUC9306/NMC93C06 
do not use pins 6 and 7. To make the ER59256 compat- 
ible, the TEST pin (pin 7) can be left floating but must be 
noise-free. 


Clock high time, clock low time - 


For aclock frequency of 250 kHz, both the ER59256 and 
the NMC9306 have the same electrical parameters: 


250 kHz or 4 us clock cycle time 

25% of the clock period (4 us) = 1 us (clock high time) 

75% of the clock period (4 ws) = 3 us (clock low time = 
4-3 us =7 us) 


93006 


NC 
NC 


1 MHz 


not 


500 ns 
500 ns 
100 ns 
100K 


4.0 


2ms 
4 mA 
100AA 


National 
NMC9306 NMC93C06 
NC s NC 
NC NC 
250 kHz. 1 MHz 
not specified not specified 
1 us 250 ns 
1 us 250 ns 
1 us 250 ns 
40K 40K 
KV 2.0 KV 2.0 KV 
10-30 ms 10 ms 
- 10mA 3mA 
3mA 50 AA 


specified 


For slower clock frequencies, the ER59256 specifica- 
tion would restrict the user regarding clock low and high 
times: | 


A clock frequency of 100 kHz or 10 us cycle time 
would result in a clock low of 75% of 10 us or 7.5 us, 
and a clock high of 25% of 10 us or 2.5 us. 


In reality, Microchip’s ER59256 can meet National's 
NMC9306 specification regarding SK low and SK high of 
1 psec over all operating frequencies as 250 kHz is the 
maximium allowable frequency and is, therefore, the 
worst case. 


Chip select low time - 


Allparts require a chip select (CS) input low between any 
two instructions. Programming of the parts (ER59256, 
NMC9306,NMC93C06) begins at the falling edge of the 
CS. Microchip’s 93C06, however, starts self-program- 
ming at the rising edge of the last data bit. CS going low 
and high with a minimium of chip select low time (Tcsl) 
during programming can be used for polling purposes as 
discribed in 2. 


CONTACT: Bruce Negley 


Memory Products Division 
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1.8 Volt Technology - Benefits 





Portability is and will continue to be one of the key 
features driving the design and development of new 
electronic equipment. Existing products such as palmtop 
computers, cellular phones and data acquisition devices 
are becoming increasingly smaller and more powerful. 
Handheld markets will demand that product feature sets 
be enhanced and that battery operating life be in- 
creased. These market requirements, in turn, will put 
more demands on battery and integrated circuit technol- 
ogy. 

In order to optimize battery technology !Cs must be able 
to operate at voltages weil below the 5V range that most 
ICs operate at today. In fact, even integrated circuits 
operating at 3 volts do not make the most of the available 
battery technology. Thus the need for devices that 
operate below 3 volts. 


BATTERY TECHNOLOGY OVERVIEW 


Primary versus Secondary 


In portable or handheld equipment there are two major 
battery types employed; primary and secondary. Pri- 
mary cells are disposable, and alkaline and lithium cells 
are the main primary batteries in use today. Alkaline 
batteries are extremely common in consumer applica- 
tions such as electronic games, cordless phones and 
palmtop computers. While lithium batteries are used as 
a primary power source in other consumer products 
such as cameras and as a back-up supply in palmtops. 


Secondary cells are rechargeable batteries. Among the 
many secondary cells available are lead-acid, Ni-cad 
and Nickel Metal Hydride (NMH) are the most popular. 


Voltage Ratings 


Batteries for portable applications, whether primary or 
secondary, have three different voltage ratings; Rated or 
nominal, Operating, and End-of-life. The rated voltage 
is usually the open circuit voltage, which in the case of 
alkaline “AA” cells is 1.5V. Under normal load the 
“operating voltage” is realized and in all cases is less 
than the nominal voltage. The final battery voltage rating 


is the end-of-life voltage, which is defined as the voltage 
at which 100% of the usable power of the battery is 
consumed or as 75% of the operating voltage. In the 
case of the same alkaline battery the end-of-life voltage 
is 0.9 volts. Table 1 lists the operating and end-of-life 
voltages for a single “AA” or equivalent cell of the five 
battery types mentioned above. 


TABLE 1 - BATTERY VOLTAGE SUMMARY 


BATTERY OPERATING END-OF-LIFE 
TYPE VOLTAGE VOLTAGE 
ALKALINE 1.2V 0.9V 
LITHIUM 2.7V 2.0V 
LEAD-ACID 2.0V 1.75V 
NI-CAD 1.2V 0.9V 
NMH 1.2V 1.0V 


With applications employing primary cells this means 
that batteries are replaced less often, thus reducing 
operating cost as well as having a positive effect on the 
environment due to the use and disposal of fewer 
batteries. In systems with secondary cells time between 
recharging increased, thus enhancing the performance 
of the product. 


LOW VOLTAGE APPLICATIONS 


As mentioned previously, the need for increased port- 
ability will drive the employment of low voltage technol- 
ogy. Portable and handheld applications requiring low 
voltage (sub 3V) technology will be numerous and will in 
many cases be high volume. These include a variety of 
personal communications devices such as cellular and 
cordless phones, computing devices like palmtops and 
portable PCs, and a number of data acquisition devices 
for a variety of medical, industrial and commercial appli- 
cations. 
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1.8 Volt Technology - Benefits 


MICROCHIP’S LOW VOLTAGE 
PRODUCT POSITION 


Prior to the anriouncement of a family of 1.8V Serial 
EEPROMs in November of 1992, Microchip had already 


established itself as a leader in low voltage semiconduc- | 


tor products. Microchip’s current product portfolio con- 
sists of: 1) Serial EEPROMs that operate, both READ 
and WRITE, down to the following voltage levels; 1.8V, 
2.0V, 2.5V and 5V; 2) ROM based microcontrollers that 
operate down to 2V, and 3) 3V One Time Programmable 
EPROMs. 


The 1.8V Serial EEPROM family operates down to 1.8V 
without the relaxation of any specification. This includes 
all AC, DC retention and endurance parameters. ‘Cur- 
rently the 1.8V family consists of 3 three-wire devices, in 
densities ranging from 1K to 4K bits. Packaging options 
include 8 pin SOIC and 8 pin PDIP devices. Typical 


operating currents for these devices, at 1.8V, are in the 
70ua range, resulting in power consumption levels of 
less than 150uW. This compares to 1 to 5 mW for 
comparable devices operating at 5V. In the near future, 


‘the 1.8V family of Serial EEPROMs will be expanded to 


include all 2-wire devices. 


SUMMARY 


With the introduction of 1.8V Serial EEPROMs, Micro- 
chip has made available silicon technology that opti- 
mizes existing battery technology. This over time will 
result in the development, production, marketing and 
application of more portable and higher performance 
handheld and portable computing, telecommunications, 
and data acquisition products. 


Author: Tom Tyson 


Memory Products Division 
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Serial EEPROM Solutions vs. Parallel Solutions 





In searching for solutions to their system non-volatile 
memory requirements, equipment, systems and prod- 
uct designers are faced with a plethora of design related 
issues and trade-offs. The non-volatile memory options 
available to them offer a variety of different device 
features including performance, ease of design, power 
consumption, operating voltage, programmability, den- 
sity, and physical size. For the most part these non- 
volatile memory options can be grouped into two major 
categories: serial solutions and parallel solutions. This 
paper discusses the attributes of each, conducts a 
comparative analysis and in the process identifies the 
benefits and advantages of Serial EEPROMs. 


SERIAL EEPROMS 


The main feature that makes a device a “Serial” and sets 
it apart from parallel devices is, as its name implies, the 
ability to communicate through a serial interface. This 
ability has numerous benefits. First, serial communica- 
tion is accomplished with a minimum number of 1/O’s. 
Serial EEPROMs require only two to four lines (depend- 
ing on the hardware and software protocol) for complete 
communication; memory addressing, data input and 
output, and device control. Thus, the hardware interface 
requirements for Serial EEPROMs are kept at a mini- 
mum. The most common Serial EEPROMs in use today 
are devices that utilize a 2-wire protocol. 


Another benefit of serial communication is package size. 
Ranging from densities of 256 to 16K bits, most Serial 
EEPROMs today are available in space-saving 8 pin 
PDIP and 150mil wide SOIC packaging. This obviously 
is very beneficial for applications where product size and 
weight is a key design factor. The final benefit is low 
Current consumption. Due to a limited number of I/O 
ports and therefore on-chip support requirements, oper- 
ating currents for Serial EEPROMs are usually well 
below 3 milli-amperes. 


Other features of Serial EEPROMs include: 1) Byte 
programmability—The ability to erase and program one 
byte at a time without affecting the contents of the other 


memory locations in the array; 2) Clock rates of up to 6. 


Mhz—2-wire devices are rated at 100K hz and 400K hz 


per the standard |2C* protocol, while 3-wire devices can 


be operated at 6M hz rates; 3) Low voltage operation— 
Microchip has introduced a family of devices that oper- 
ate, both read and write, down ‘to 1.8V. This family 


EEPROM families available. 


PARALLEL NON-VOLATILE 
MEMORIES 


There are a number of memory devices that fall into this 
category. The major ones include Parallel EEPROMs, 
Flash memory products, EPROMs, and SRAMs with 
battery back-up. 


The main common feature of all of these devices is that 
communication with the device is done through a paral- 
lel interface, which results in a high system clock rate. 
Each type of device has separate data, address and 
control lines. Thus pin counts are in the 24 to 40 pin 
range. This also results in relatively large and costly 
packages and large footprints, even with the most ad- . 
vanced surface mount packages like TSOP. SRAMs 
with on-board batteries require DIP package heights 
that are significantly higher than those of standard DIP 
packages, adding to its package size and cost disadvan- 
tage. 


Parallel EEPROM and battery backed-up SRAMs are 
the only two of the four major types of parallel non: 
volatile memories that have the capability to erase and 
program one byte at atime. EPROM and Flash devices 
require the whole array or at least large sectors to be 
erased prior to reprogramming. 


SERIAL VERSUS PARALLEL 


Serial EEPROMs have five major advantages over 
parallel non-volatile memories. 


1) Lower Current Consumption - The maximum oper- 
ating current (at 5 volts operating voltage) of a 16K 
serial EEPROM device is approximately an order of 
magnitude less than that of an equivalent density 
parallel EEPROM. Operating currents for 16K 
Serials are specified at 3mA, while 16K parallel 
devices are specified at 30mA and above. This 
relationship will continue as 64K serial devices are 
introduced. Since power consumption is directly 
proportional to current consumption, the lower the 
current the lower the power consumption. 


2) Lower Voltage - Serial EEPROMs have been avail- 
able in single supply low voltage options for some 
time. As mentioned above, Microchip has low 
voltage Serial EEPROMs that operate down to 
1.8V, ‘as well as other low voltage Serials that 
function down to 2.0V or 2.5V volts. 3V EPROMs 


© 1993 Microchip Technology Incorporated 


DS00551A-page 1 





Serial EEPROM Solutions vs. 


and parallel EEPROMs and single voltage 5V flash 
devices are just being introduced to the market. 
(Most flash devices on the market today require 
12V for programming in addition to the 5 volts 
required for normal operation). Low voltage opera- 
tion also has a positive effect on power consump- 
tion. A reduction in the operating voltage from 5 
volts to 1.8 volts will result in a power consumption 
reduction of almost 90% and almost a 65% reduc- 
tion in power if the operating voltage is reduced from 
3V to 1.8V. 


Programmability - Neither currently available Flash 
devices nor EPROMs have the ability to program 
one byte at a time. Erasing is an array or sector 
function. Therefore, whenever one byte needs to 
be reprogrammed the entire array or sector must be 
reprogrammed. This procedure takes a relatively 
long amount of time to complete, time which may 
not be available, as is the case when storing critical 
parameters or data during inadvertent and unex- 
pected system power loss. This procedure also 
requires software overhead to manage the retrieval 
and reprogramming operation. 


3) 


4) Physical Size - Again, when comparing a 16K Serial 
EEPROM to a 16K parallel device the serial has a 
significant advantage. The area of the 150mil 8 pin 


SOIC footprint is less than 50K square mils. This 


Parallel Solutions 


compares to an area of more than 250K square mils 
for a 24 pin SOIC and almost 800K square mils for 
a 24 pin 500mil DIP package footprint. 


I/O Requirements - Serials only require 2 to 4 input 
or output lines for complete communications. Most 
parallel devices require at least 22 lines, depending 
on the memory density. This results in increased 
microcontroller/microprocessor overhead and ad- 
ditional real estate to accommodate the numerous 
hardware lines. | 


9) 


The advantages that parallel devices currently have 
over serial EEPROMs is memory density and AC perfor- 
mance. However, in most microcontroller based appli- 
cations for which Serial EEPROMs are intended, high 
density and AC are not the most critical design issues or 
most needed product features. 


The key benefits of Serial EEPROM solutions as a result 
of the advantages outlined above, are reduced system 
costs, enhanced feature sets, and improved system 
performance. System size and weight is reduced and 
power sourcing requirements are kept at a minimum. 
The following graph compares some of the main at- 
tributes of a 16K Serial EEPROM device to a 16K 
Parallel device. 


16K Serial vs. 16K Paraliel Benefits 


VO's Req 


{DD (ma) 
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CI 16K Serial EE 
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USES AND APPLICATIONS OF 
SERIAL EEPROMS 


Uses of Serial EEPROMs 


The days of simply being a DIP switch replacement for 
Serial EEPROMS is over. Here is a list of the functions 
that Serial EEPROMs perform in a variety of computer, 
industrial, telecommunication, automotive and consumer 
applications: 


Memory storage of channel selectors or ana log 
controls (volume, tone, etc.). 


2) Power down storage and retrieval of events such as 
fault detection or error diagnostics. 

3) Electronic real time event or maintenance log such 
as page counting. 

4) Configuration storage. 

5) Last number redial and speed dial storage. 

6) User in-circuit look-up tables. 


Serial EEPROM Applications 


Serial EEPROMs have found homes in hundreds of 
embedded control applications in all major application 
markets. The following list demonstrates the number 
and variety of applications for serial EEPROMs. 


8 Data 
8 Address 


PIC16Cxx 





FIGURE A 


Market Applications 

CONSUMER TV tuners, VCRs, CD players, cam 
eras, radios, and remote controls 

COMPUTER/OA Printers, copiers, PCs, palmtop and 
portable computers, disk drives and 
organizers 

INDUSTRIAL Bar code readers, point of sale ter- 
minals, smart cards, lock boxes, 
garage door openers, test measure 
ment equipment and medical equip- 
ment 

TELECOMM Cellular, cordless and full feature 
phones, faxes, modems, pagers, and 
satellite receivers 

AUTOMOTIVE _ Airbags, anti-lock brakes, odom- 


eters, radios and keyless entry 


Using Serial EEPROMs for critical data and configura- 
tion storage has only recently become a reality. The 
current offerings of 2 and 3 wire serial devices offers the 
systems designer interesting alternatives to the stan- 
dard parallel EEPROM devices. The Serial EEPROM is 
basically a standard EEPROM array without the normal 
parallel data and address I/O. These functions are 
handled via serial I/O ports coupled with internal self- 
timed state machines. Not only will the serial device 





24XXxX 
EEPROM | 93XXxx 


2-3 I/O 


PIC16Cxx 





FIGURE B 


eet i 
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save power, board space, and cost, but they also offer 
the advantage of fewer I/O and consequently power in 
the embedded microcontroller because less |/O are 
needed to control the same functions. A typical embed- 
ded application is shown in FIGURE A, depicting a 
controller and several functions used in a personal 
communications device, such as a mobile or portable 
phone. The EEPROM stores speed dial and last number 
redial numbers, credit card numbers, ID numbers, and 
configuration parameters. | 


FIGURE B shows these same functions using a control- 
ler with fewer I/O and a Serial EEPROM. Thereis noloss 
of functionality but a significant savings in current, board 
space, I/O pads, and cost. The serial solution employs 
8 to 16 less I/O on the microcontroller, freeing up much 
needed functionality, and possibly allowing for a much 
smaller device package and downsized circuit boards. 


Serial EEP ROM Solutions vs. Parallel Solutions 


SUMMARY 


Serial EEPROMs are ideal cost effective solutions to all 
non-volatile memory embedded control applications that 
require: 1) Asmall footprint space saving format, 2) The 
ability and ease of programming one byte at a time, 3) 
Low current consumption and low operating voltage, 4) 
Low microcontrolleroverheadandsupportand, — 5) 
The best price performance non-volatile memory solu- 
tion available. | 


Their size, ease of programmability, low power con- 
sumption, and low cost make: Serial EEPROMs ex- 
tremely suitable for all the fast growing handheld and 
portable battery powered computer, personal communi- 
cations, medical and industrial markets. 


Author: Tom Tyson 


Memory Products Division 
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PIC16/17 MICROCONTROLLER 
DEVELOPMENT SUPPORT 


Look to Microchip to bring you the most complete set of 
development tools available for the entire PIC16/17 
Microcontroller product line. There are a host of configu- 
rations available to suit all of your development needs. 
All ofour products are PC-hosted systems allowing ease 
of use and maximum flexibility. Our products are avail- 
able as bundled systems or individual components, 
which ever fits your development needs. 


PIC16C5X SUPPORT PRODUCTS 


PICMASTER-16X 


PIC16CXX PC-Based High Performance In-Circuit 
Emulator System 


PICMASTER Universal Emulator Pod, PIC16C XX Emu- 
lator Probe, PC (ISA) Interface Board, Emulation Con- 
trol Software, Demonstration Board, PRO MASTER, 
MPALC Assembler, MPSIM Simulator, Power Supply, 
Cables, and Documentation. 


PICSTART-16B 


Development Programmer for the PIC16C5X, 
PiC16C71, and PiC16C84 


Includes MPALC Assembler, MPSIM Simulator, and 
Development Programmer Board. 


MPALC 


PIC16C5X/PIC16CXX PC-Based Assembler Program 
Assembler Software on 3.5" diskette and User's Manual. 


MPASM 

PIC16C5X/XX/17CXX PC-Based Assembler Program 
Assembler Software on 3.5" diskette and User's Manual. 
MPSIM 


PIC16C5X PC-Based Simulator Program 
Simulator Software on 5.25" diskette and User's Manual. 


PIC17CXX SUPPORT PRODUCTS 


PICMASTER-17 


PIC17CXX PC-Based High Performance In-Circuit 
Emulator System 


PICMASTER Universal Emulator Pod, PIC17CXX Emu- 
lator Probe, PC (ISA) Interface Board, Emulation Con- 
trol Software, PRO MASTER Programmer, Power Sup- 
ply, Cables, and Documentation. 


UNIVERSAL SUPPORT PRODUCTS 
PRO MASTER Universal Programmer 


Unit for Microchip programmable devices including 
PIC16CXX, PIC17°XX, SE?, and foreseeable new prod- 
ucts. Includes Programmer Unit, Universal AC Power 
Supply, Manual, MS/DOS Programmer Software and 
Cables. 
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PICSEE™ TOOL 





PICSEE Product Development Systems 





INTRODUCTION 


The PICSEE Development Systems provide the product 
development engineer with cost effective and timely 
design tool solutions for the MTA8XXXX family of 
multichip modules. They are designed specifically for 
the MTA8XXXxX family. These tools work in conjunction 
with existing hardware and software design tools for the 
PIC16/17 microcontroller family. This allows the devel- 
opment engineer to efficiently implement systems utiliz- 
ing these multichip modules with a minimal learning 
curve and capital investment. 


PICSEEKIT — P/N AC812001 


Supports MTA81010 

Programming Adapters for PDIP and SOIC 
packages 

Daughter card for PICPROBE-16A 

l?C™ bus Serial Communication Application 
Software 


This kit is supports the MTA81010 multichip module. It 
contains programming adapters, aPICMASTER™ emu- 
lator daughter board and MTA81010 product samples in 
28-lead PDIP. Also included is an MSDOS, PC-compat- 
ible 3.5-inch software diskette that contains example 
source code for implementing the I?C serial bus protocol 
to communicate with a Serial EEPROM. Documentation 
is provided for all of the included hardware and software. 


Programming Support 


Two programming adapters are provided to allow the 
MTA81010's internal program EPROM as well as it’s 
data EEPROM to be programmed on existing program- 
mers. Any programmer that supports Microchip’s 
PIC16C54 can program the MTA81010's internal 
EPROM. Also, any programmer that supports Microchip's 
24LC01B SerialEEPROM can program the MTA81010's 
internal Serial EEPROM. There is one adapter for 
MTA81010's in DIP packages and another for SOIC 
packages. Both DIP and SOIC programming adapters 
interface to programmers via a 300 mil DIP header. 


Emulation Support 


The emulator daughter board allows the developer to 
use Microchip's PICMAS TER in-circuit emulator to emu- 
late the MTA81010 Microcontroller with Serial EEPROM. 
This daughter board replaces Microchip’s PIC16C5X 
Emulator Probe Header (P/N AC162009) emulator probe 
to support the MTA81010. The daughter board provides 
the required translation from a PIC16C54 pin out to the 
MTA81010 pin out. It also contains a discrete 24LC01B 
Serial EEPROM to provide the same functions as the 
MTA81010's internal EEPROM. This provides a cost- 
effective emulation solution to customers who may wish 
to purchase a PICMASTER in-circuit emulator or those 
that already have a PICMASTER. 


Software Support 


Example source code for 1?C Bus communication with a 
serial EEPROM is included in the PICSEE. This pre- 
tested code can be used directly or modified by the 
developer to meet their specific needs. This example 
code is provided royalty free and license free. 


PICSEESTART — P/N DV813001 


¢ Complete Low Cost Development Solution for 
MTA81010 

Combines PICSEEKIT AC812001 and PICSTART 
DV163001 

MPALC Assembler 

MPSIM Simulator 

Low-Cost Programmer 

Programming Adapter Sockets 

l2?C Bus Applications Software 


This kit combines the PICSEEKIT (P/N AC812001) with 
aPICSTART™ (P/N DV163001) to form a complete low- 
cost development system for the MTA81010 multichip 
module. It is designed to support the MTA81010 during 
the software development and initial prototype phases 
of new product development. It contains tools for 
software development and debugging, as well as pro- 
grammer for programming the MTA81010's internal 
EPROM program memory. For amore detailed descrip- 
tion, please refer to the PICSEEKIT P/N AC812001 and 
PICSTART P/N DV163001 product descriptions. 
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PICSEE Tools 





SALES AND SUPPORT 


To order or to obtain information, e.g., on pricing or delivery, please use the listed part numbers, and refer to the listed 
sales offices. 


PART NUMBER DESCRIPTION 
AC812001 PICSEEKIT FOR MTA81010 
DV813001 PICSEESTART FOR MTA81010 
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MPALC Cross Assembler Product Brief 





PIC16CXX Microcontroller Cross Assembler Software 





This product brief describes the technical aspects of the 
Microchip Assembler (MPALC) developed by Microchip 
Technology Incorporated. 


The MPALC Cross Assembler is a PC hosted symbolic 
assembler. It supports the PIC16C5X and PIC16CXX 
CMOS microcontroller series. 


MPALC offers fully featured Macro capabilities, condi- 
tional assembly, and several source and listing formats. 
It generates various object code formats to support 
Microchip’s development tools as well as third party 
programmers. 


MPALC REQUIREMENTS 


MPALC will run on any IBM PC/XT™, AT™ or compat- 
ible computer, running DOS 3.31 or later. The distribu- 
tion media is 3 1/2”, low density (720k) floppies. It is 
distributed at the root level, and may be executed 
directly from the floppy. 


No special display or ancillary devices are required. 


MPALC ASSEMBLER FEATURES 


MPALC supports the 12 bit PIC16C5X and the 14 bit 
PIC16CXX cores. The 12 bit core has 33 instructions, 
the 14 bit core has 35. 


All instructions in both instruction sets are single-word 
and single-cycle, except for branches, which execute in 
two cycles. Most instructions operate on one or more 
operands. 


MPALC has the following features to assist in 
developingsoftware for specific user applications: 


¢« Provides translation of Assembler source code to 
object code for PIC16C5X and PIC16CXX Microchip 
micro-controllers. 


Macro Assembly capability 


Provides Object, Listing, Symbol and special files 
required for debugging with one of the Microchip 
Emulator systems. 


Output formats: INHX8S, INHX8M, INHX16, and 
relocatable objects. 


Supports Hex (default), Decimal and Octal source 
and listing formats. 
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MPALC DIRECTIVE LANGUAGE 


MPALC provides a full featured directive language rep- 
resented by the following four classes of directives: 


¢ Data Directives are those that control the allocation 
of memory and provide a way to refer to data items 
symbolically, by meaningful names. 


¢ Listing Directives control the MPALC listing format. 
They allow the specification of titles, subtitles, page 
ejects and other listing controls. 


¢ Control Directives permit sections of conditionally 
assembled code. 


¢ Macro Directives control the execution and data 
allocation within macro body definitions. 


MPALC INSTRUCTION SET 


MPALC supports the entire instruction set of the 
PIC16C5X and PIC16CXX micro-controllers, as repre- 
sented in the following four classes of instructions: 


¢ Data Move Operations 

¢ Arithmetic and Logical Operations 
¢ Bit Manipulation Operations 

¢ Control Operations 


The Microchip microcontroller instruction set is used to 
operate on data located in any of the file registers, 
including the I/O registers. There are: 


* Two data transfer operations 


¢ Six arithmetic operations (the PIC16CXX series pro- 
vides two more) 


e Six logical operations 
¢ Three rotate operation 


MPALC provides bit level file register operations to 
manipulate and test individual bits in any addressabie 
register, literal and control operations permitting opera- 
tions on literals and branches to subroutines in program 
memory. 


The PIC16C5X and PIC16CXx instruction sets allow 
read and write of special function registers such as the 
PC and status registers. 





DS30178B-page 1 











NOTES: 


DS30178B-page 2 © 1993 Microchip Technology Inc. 
7-6 





Microchip MPASM Universal Assembler Product Brief 





Microchip Universal Microcontroller Assembler Software 





This product brief describes the technical aspects of the 
PIC16/17 Assembler developed by Byte Craft Limited 
and distributed by Microchip Technology. The MPASM 
Cross Assembler is a PC hosted symbolic assembler. It 
supports all microcontroller series, including the 
PIC16C5X CMOS, PIC16CXxX, and PIC17CXxX families. 


MPASM offers fully featured Macro capabilities, condi- 
tional assembly, and several source and listing formats. 
It generates various object code formats to support 
Microchip's development tools as well as third party 
programmers. 


MPASM allows full symbolic debugging from the Micro- 
chip Universal Emulator System (PICMASTER). 


MPASM REQUIREMENTS 


MPASM will run on any IBM PC/XT™ , AT™ or compat- 
ible computer running DOS 4.1 or later. The distribution 
media is 3 1/2", low density (720K) floppies. It is 
distributed at the root level, and may be executed 
directly from the floppy. 


No special display or ancillary devices are required. 


MPASM ASSEMBLER FEATURES 


MPASM supports the 12-bit PIC16C5X, the 14-bit 
PIC16CXX, and the 16-bit PIC17CXX cores. 


All instructions in both instruction sets are single-word 
and single-cycle, except for branches, which execute in 
two cycles. Most instructions operate on one or more 
operands. 


MPASM have the following features to assist in develop- 
ing software for specific user applications: 


¢ Provides translation of Assembler source code to 
object code for all Microchip microcontrollers. 


Macro Assembly Capability 


Provides Object, Listing, Symbol and special files 
required for debugging with one of the Microchip 
Emulator systems. 


Supports Hex (default), Decimal and Octal source 
and listing formats. 


MPASM DIRECTIVE LANGUAGE 


MPASM provides a full featured directive language 
represented by four basic classes of directives: 


¢ Data Directives are those that control the allocation 
of memory and provide a way to refer to data items 
symbolically, by meaningful names. 


¢ Listing Directives control the MPASM listing dis- 
play. They allow the specification of titles and sub- 
titles, page ejects and other listing control. 


¢ Control Directives permit sections of conditionally 
assembled code. 


* Macro Directives control the execution and data 
allocation within macro body definitions. 


MPASM INSTRUCTION SET 


MPASM supports the entire instruction set of the 
PIC16C5X, PIC16CXX and PIC17CXX microcontrollers, 
as represented in the following four classes of instruc- 
tions: 

« Data Move Operations 

¢ Arithmetic and Logical Operations 

¢ Bit Manipulation Operations 

¢ Special Control Operations 


The Microchip microcontroller set is used to operate on 
data located in any of the file registers, including the I/O 
registers. There are: 


* Data Transfer Operations 
¢ Logical Operations 
¢ Rotate Operations 


MPASM provides bit level file register operations to 
manipulate and test individual bits in any addressable 
register, literal and control operations permitting opera- 
tions on literals and branches to subroutines in program 
memory. 


The Microchip microcontroller instruction sets allow 
read and write of special function registers such as the 
PC and status registers. 
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MPLINK 


MPLINK supports the linking of multiple relocatable 
objects created by MPASM into a single absolute hex 
file, suitable for simulating, emulating, and program- 
ming. MPLINK supports the hex outputs supported by 
MPASM and absolute listing file. 
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MPLIB 


MPLIB provides the ability to group several relocatable 
objects into a logical collection, in one file. Libraries 
created by MPLIB can be referenced by MPASM. Only 
those objects required by the linking phase are included 
in the resulting hex output. 
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MPSIM Simulator Product Brief 





PIC16C5X and PIC16CXX Microcontroller Simulator 





MPSIM is a discrete event simulator software applica- 
tion designed to imitate operation of the PIC16C5X and 
PIC16CXX microcontroliers. it allows the user to debug 
software that will use any of these micro-controllers. 


At any instruction boundary, you may examine and/or 
modify any data area within the processor, or provide 
external stimulus to any of the pins. MPSIM gives you 
a solid, low cost, source-level debug too! to help you 
through the early design verification stages of you project. 


MPSIM REQUIREMENTS 


MPSIM requires an IBM PC/XT™, AT™ or compatible 
computer running DOS version 3.31 or later. The PC 
needs a3 1/2” floppy disk drive and at least 256K of main 
memory; MPSIM.EXE occupies roughly 150K. Recom- 
mended is a hard disk drive with 5 Mb of available 
storage. 


MPSIM SIMULATOR 


The MPSIM Simulator program provides the developer 
with an instruction and limited I/O simulator software 
program for debugging Microchip microcontroller as- 
sembler code. 


The simulator is meant for use with smaller projects not 
requiring precise, more extensive development equip- 
ment. Since the PIC16C5X architecture is essentially a 
single tasking micro-controller without interrupts, many 
applications can be developed by using a simulator 
program alone. 


The PIC16CXX family supports various peripherals and 
interrupt strategies. These interrupts can be simulated 
but certain peripheral functions (such as A/D conver- 
sions) are not. 
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The MPSIM Simulator has the following features to 
assist in the debugging of software / firmware for the 
user: 


Program Load / Save 


Commands exist to load assembled object file programs 
into simulation memory. Conversely, programs may be 
saved from program simulation memory back to the PC 
disk. 


Display and Alter 


Provisions are made to display and alter Program 
Memory, Register Files and status register bits. Also, 
simulator information such as cycle times, elapsed time, 
and step count can be displayed. 


Disassembler 


Program memory can be disassembled showing both 
hexadecimal data and instruction mnemonics for speci- 
fied address ranges. 


Utility Functions 


Various utility functions exist which assist the user in 
operating the simulator. Memory and registers can be 
cleared by command. Memory can be searched to find 
occurrences of instructions, register use and ASCII 
data. 


Symbolic Debugging 


The simulator provides for symbolic referencing to aid 
and simplify debugging. The symbol table may be 
displayed. New symbols defined and unwanted sym- 
bols deleted. 


Execution and Trace 


During program execution, a number of items can be 
traced. Address ranges, registers and register contents 
and others. 


Breakpoints 


The user may specify up to 512 breakpoints at any one 
time. 


Assembler Support 


MPSIM supports both the Microchip MPALC and the 
MPASM Universal Assembler. 
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microchip _PICMASTER -16X System 


-PICMASTER Universal In-Circuit Emulator System 





SYSTEM FEATURES 


General: 


¢ Complete Hi-Performance PC-based Microcontroller 
Development System for the PIC16CXX family. 


« For use on PC-compatible 286, 386, and 486 ma- 
chines under Microsoft Windows® 3.X environment. 


¢ Assembler Software, Emulator System, and EPROM 
Programmer unit, sample kit, and demonstration 
hardware and software provide a complete 
microcontroller product development environment. 


Emulator System: 


¢ Hi-Performance In-Circuit Emulation of Microchip Mi- 
crocontrollers. 


¢ Real-time instruction emulation. 
¢ Single and Multiple instruction step execution. 


¢« Program Memory emulation and memory mapping 
Capability up to 64K words. Instruction execution can 
be mapped into either emulation memory or user 
prototype memory. 





Real-time trace memory capture of 40 bits of informa- 
tion for each instruction cycle in an 8Kx40 trace buffer. 
Trace region can range from 0 to 64K in any address 
combinations. 


Real-time trace data can be captured and displayed 
without halting emulation. 


Unlimited number of hardware breakpoints can be set 
anywhere in the program memory. 


External Break with “AND”/"OR” capability with inter- 
nal breakpoints. 


Multiprocessor emulation capability. Up to eight 
PICMASTER emulators can be synchronized on a 
single PC, for multi-processor development. 


Extended 48-bit cycle counter. 
Trigger Output available on any range of addresses. 


Full Symbolic Debug Capability. Symbolic display and 
alter of all register files, special purpose registers, 
stack registers, and bank registers. 


Selectable Internal Emulator Clock or User Target 
(Prototype) System Clock. 


User selectable internal or external Power Supply 
(provided). 
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PICMASTER-16X Development system 


EPROM Programmer System: 


PRO MASTER™ Device Programmer unit for all 
current PIC16C5X and PIC16CXX products. 
Operates as a Stand-alone Unit or in Conjunction with 
a PC-compatible host system. 

Performs READ, PROGRAM, and VERIFY functions 
in Stand-alone mode. 

PC Host Software provides file display and editing, file 
transfer to and from programmer unit, device serial- 
ization, and program voltage calibration. 


Macro Assembler: 


Provides translation of Assembler source code to 
object code for the PIC16C5X and PIC16CXX family 
of microcontrollers. | 
Macro-assembly and conditional assembly capability. 
Produces Object files, Listing files, Symbol files, and 
special files required for symbolic debug with the 
PICMASTER Emulator System. 


INHX16, and PICMASTER. 


SYSTEM DESCRIPTION 


The PICMASTER Universal In-Circuit Emulator System 
is intended to provide the product development engineer 
with a complete microcontroller design tool set for all 
microcontrollers in the PIC16CXX. The PICMASTER 
system currently supports the PIC16C54, PIC16C55,. 
PIC16C56 and PIC16C57 at clock frequencies of 4 MHz 
and PIC16C71, PIC16C84 to 10 MHz. ~ 


Interchangeable target probes allow the system to be 
easily reconfigured for emulation of different processors. 
The universal architecture of the PICMASTER allows 
expansion to supportall new microcontroller architectures 
with data and program memory paths to 16 bits. 


The Emulator System is designed to operate on low-cost 
PC-compatible machines ranging from 286-AT class 
ISA-bus systems through the new 486 EISA-bus ma- 
chines. The development software runs in the Microsoft 
Windows 3.X environment, allowing the operator ac- 
cess to a wide range of supporting software and acces- 
sories. 


Binary / Hex output formats: INHX8S, INHX8M, 


Provided with the PICMASTER System is a high perfor- 
mance real-time In-Circuit Emulator, a microcontroller 
programmer unit, a macro assembler program, and a 
simulator program. Sample programs are provided to 
help quickly familiarize the user.with the development 
system and the PIC16CXX microcontroller line. 


Coupled with the user's choice of text editor, the system 
is ready for development of products containing any of 
Microchip's microcontroller products. 


A "Quick Start" PIC16CXX Product Sample Pak con- 
taining user programmable parts is included for addi- 
tional convenience. | 


Microchip provides additional customer support to de- 
velopers through an electronic Bulletin Board System 
(BBS). Customers have access to the latest updates in 
software as well as application source code examples. 
Consult your local sales representative for information 
on accessing the BBS system. 


Host System Requirements: 


The PICMASTER has been designed as a real-time 
emulation system with advanced features generally 
found on more expensive development tools. The AT 
platform and Windows 3.X environment was chosen to 
best make these features available to you the end user. 
To properly take advantages of these features, 
PICMASTER requires installation on a system having 
the following minimum configuration: 


¢ PC/AT-compatible machine: 286, 386SX, 386DX, or 
486 with ISA or EISA Bus. 


¢ EGA, VGA, 8514/A, Hercules graphic card (EGA or 
higher recommended). 


¢« MSDOS / PCDOS version 3.1 or greater. 


¢ Microsoft Windows version 3.0 or greater operating in 
either standard or 386 enhanced mode). 


¢ 1 Mbyte RAM (2 Mbytes recommended). 
¢ One 5.25" floppy disk drive. 


¢ Approximately 10 Mbytes of hard disk (1 Mbyte re- 
quired for PICMASTER, remainder for Windows 3.X 
system). 

¢ One 8-bit PC/AT (ISA) I/O expansion slot (half size) 

¢ Microsoft mouse or compatible (highly recommended). 


Power Switch 


interchangeable 
Emulator Probe 


. Dr 


Power Connector 


PC-—interface 


S 


Logic A (>, 


PICMASTER Emulator Pod Oy 
Probes VA eA 


Common Interface Card 
PC Compatible Computer 
(AT/ISA Bus) (for Industry Standard Architecture) 
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PICMASTER-16X Development System 


Emulator System Components: 


The PICMASTER Emulator Universal System consists 
primarily of four major components: 


¢ Host-Interface Card: The PC Host Interface Card 
connects the emulator system to a PC compatible 
system. This high-speed parallel interface requires 
a single half-size standard AT / ISA slot in the host 
system. A 37-conductor cable connects the inter- 
face card to the external Emulator Control Pod. 


Emulator Control Pod: The Emulator Control Pod 
contains all emulation and control logic common to 
all microcontroller devices. Emulation memory, trace 
memory, event and cycle timers, and trace/breakpoint 
logic are contained here. The Pod controls and 
interfaces to an interchangeable target-specific emu- 
lator probe via a 14" precision ribbon cable. 


e Target-specific Emulator Probe: A probe specific 
to microcontroller family to be emulated is installed 
on the ribbon cable coming from the control pod. 
This probe configures the universal system for emu- 
lation of a specific microcontroller. Currently, the 
PIC16C5X family, PIC16C71, PIC16C84, and the 
P1IC17C42 microcontrollers are supported. Future 
microcontroller probes will be available as they are 
released. 


e PC Host Emulation Control Software: Host soft- 
ware necessary to control and provide a working 
user interface is the last major component of the 
system. The emulation software runs in the Win- 
dows 3.X environment, and provides the user with 
full display, alter, and control of the system under 
emulation. The Control Software is also universal to 
all microcontroller families. 


The Windows 3.X System is a multitasking operating 
system which will allows the developer to take full 
advantage of the many powerful features and func- 
tions of the PICMASTER system. 


PICMASTER emulation can operate in one window, 
while a text editor is running in a second window. 
Dynamic Data Exchange (DDE), a feature of Win- 
dows 3.X, willbe available in this and future versions 
of the software. DDE allows data to be dynamically 
transferred between two or more Windows pro- 
grams. With this feature, data collected with 
PICMASTER can be automatically transferred toa 
spreadsheet or database program for further analy- 
sis. 

Under Windows 3.X, up to eight PICMASTER emu- 
lators can run simultaneously on the same PC mak- 
ing development of multi-microcontroller systems 
possible (e.g., a system containing a PIC16CXX 
processor and a PIC17CXX processor). 


PRO MASTER Device Programmer: 


The PRO MASTER Programmer system included in the 
PICMASTER Development System provides the prod- 
uct developer with the ability to program (transfer) the 
developer's software into PIC16CXX microcontrollers. 


The programmer unit comes complete with accesso- 
ries for use with a PC host computer. Supplied are 
interface cables and connectors to astandard PC serial 
port ,a power supply unit, and host operating software. 
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The PRO MASTER Programmer will work in either stand- 
alone mode, or in PC host connected mode. Connected 
to a PC host, many more features are available to the 
user. 


STAND-ALONE MODE 
Stand-alone mode is useful in situations where a PC may 
not be available or even required, such as in the field or 


in alab production environment. In stand-alone mode the 
following programming functions are available: 


VERIFY 


VERIFY preforms two functions. For a programmed pant, 
the device in the programming socket will be compared to 
the program data stored in internal memory. If the data 
and fuse settings are correct, VERIFIED will be dis- 
played. VERIFY will also confirm that erased parts are 
blank. A device in the socket will display ERASED if all 
programmable locations are blank. 


PROGRAM 


In stand-alone mode, devices inserted into the program- 
mer socket will be programmed with data currently stored 
in memory. Pressing the PROGRAM key will cause the 
unit to program and verify both the program memory and 
the device fuses. If all program successfully, PGM OKAY 
will be displayed. 


READ 


A pre-programmed device placed in the programmer 
socket can be read into the programmer unit by pressing 
the READ key. Program and fuse data will be read and 
stored into internal memory. Various options exist with 
the READ function. 


PC HOST CONNECT MODE 


When the PRO MASTER is connected to a host PC 
system, many more options and conveniences are avail- 
able to the user. Host mode allows full interactive control 
over the PRO MASTER unit. A full screen, user-friendly 
software program is provided to fully assist the user. 


Asinstand-alone mode, parts maybe Read, Programmed, 
Blank checked, and Verified. Also, all fuses and ID 
locations may be specified. In addition, other features 
available in host-mode are: 
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PICMASTER-16X Development system 


Editing Vpp and Vpp Adjust 

A large screen buffer editing facility allows the user to The programming environment voltage settings of VDD 
change and program location in hexadecimal. Com- max, VDD min, and VpPcan be set and altered only on PC 
plete program and fuse data can be loaded and saved to host mode. The voltage settings allow the user to pro- 
DOS disk files. Files generated by the Assembler pro- gram the part in the environment that the part will be 
gram are directly loadable into programmer memory. used. The part will be programmed at VDD max and 


verified at VDD min. VPP is the programming voltage. 


SALES AND SUPPORT 


To order or to obtain information, e.g., on pricing or delivery, please use the listed part numbers, and refer to the 
factory or the listed sales offices. 


PART NUMBER DESCRIPTION 
EM167007 Complete PICMASTER-16A System for PIC16C5X 


EM167010 : Complete PICMASTER-16A System for PIC16C5X without Programmer 
EM167011 Complete PICMASTER-16B System for PIC16C71 
EM167012 Complete PICMASTER-16B System for PIC16C71 without Programmer 
EM167013 - Complete PICMASTER-16C System for PIC16C84 
EM167014 Complete PICMASTER-16C System for PIC16C84 without Programmer 
EM167017 Complete PICMASTER-16E System for PIC16C64 
EM167018 Complete PICMASTER-16E System for PIC16C64 without Programmer 
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Micrechip PICMASTER™-17 System 


PICMASTER PIC17CXX In-Circuit Emulator System 





SYSTEM FEATURES 


General: 


« The PICMASTER-17 Development System is de- 
signed by Microchip Technology Inc. and manufac- 
tured in the U.S.A. 

¢ Complete Hi-Performance PC-based Microcontroller 
Development System for the PIC17CXX family. 

¢« For use on PC-compatible 286, 386, and 486 ma- 
chines under the Windows® 3.X environment. 

« Assembler Software, Emulator System, and Program- 
mer unit, sample kit, and software provide a complete 
microcontroller product development environment. 


Emulator System: 


¢ Universal In-Circuit Emulation pod supports emula- 
tion of PIC17CXX family. It can easily support other 
Microchip microcontroller products with the purchase 
of a low cost personality probe kit. 

¢ Real-time emulation to 16 MHz. 

¢ Single and Multiple instruction step execution. 

¢ Program Memory emulation and memory mapping 
capability up to 64K words. Instruction execution can 
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be mapped into either emulation memory or user 
prototype memory. 

Real-time trace memory capture of 40 bits of informa- 
tion for each instruction cycle in an 8Kx40 trace buffer. 
Trace region can range from 0 to 64K in any address 
combinations. 

Real-time trace data can be captured and displayed 
without halting emulation. 

Unlimited number of hardware breakpoints can be set 
anywhere in the program memory. 

External Break with “AND”/”OR’” capability with inter- 
nal breakpoints. 7 

Multiprocessor emulation capability. Two or more 
PICMASTER emulators can be synchronized on a 
single PC for multi-processor development. 
Extended 48-bit cycle counter. 

Trigger Output available on any range of addresses. 
Full Symbolic Debug Capability. Symbolic display and 
alter of all register files, special purpose registers, 
stack, and bank registers. 

Selectable Internal Emulator Clock or User Target 
(Prototype) System Clock. 

User selectable internal or external Power Supply 
(provided). 
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PICMASTER-17 PIC17CXX In-Circuit Emulator 


EPROM Programmer System: 


* PRO MASTER™ EPROM Programmer unit for all 
Microchip PIC17CXX CMOS microcontrollers. 


¢ Operates as a Stand-alone Unit or in Conjunction with 
a PC-compatible host system. 


Performs READ, PROGRAM, and VERIFY functions 
in Stand-alone mode. 


¢ PCHost Software provides file display and editing, file 
transfer to and from programmer unit, device serial- 
ization, and program voltage calibration. 


Macro Assembler: 


¢ ASM-17 provides macro-assembly and conditional 
assembly capability. 


Provides translation of Assembler source code to 
object code for the PIC17CXX family of microcon- 
trollers. 


Produces Object files, Listing files, Symbol files, and 


special files required for symbolic debug with the 
PICMASTER Emulator System. 


Binary / Hex output formats: INHX8S, INHX8M, 
INHX32. 


SYSTEM DESCRIPTION 


The PICMASTER Universal In-Circuit Emulator System 
provides the product development engineer with a com- 
plete microcontroller designtool set for all microcontrollers 
in the PIC16CXX and PIC17CXxX families. 


The PICMASTER-17 System is configured to support 
the PIC17C42 and related PIC17CXX family members. 


Interchangeable target probes allow the system to be 
easily reconfigured for emulation of different proces- 
sors. The universal architecture of the PICMASTER 
allows expansion to support all new microcontroller 
architectures with data and program memory paths to 16 
bits. 


The Emulator System is designed to operate on low-cost 


PC-compatible machines ranging from 286-AT class 


ISA-bus systems through the new 486 EISA-bus ma- 
chines. The development software runs in the Microsoft 
Windows 3.X environment, allowing the operator ac- 
cess to a wide range of supporting software and acces- 
sories. 


Provided with the PICMASTER Sysieii is a high perfor- 
mance real-time In-Circuit Emulator, a microcontroller 
programmer unit, and a macro assembler program. 
Sample programs are provided to help quickly familiar- 
ize the user with the development system and the 
PIC17CXX microcontroller line. 


Coupled with the user's choice of text editor, the system 
is ready for development of products containing any of 
Microchip's microcontroller products. 


A "Quick Start” PIC17CXX Product Sample Pak con- 
taining user programmable parts is included for addi- 
tional convenience. 


Microchip provides additional customer support to de- 
velopers through an electronic Bulletin Board System 
(BBS). Customers have access to the latest updates in 
software as well as application source code examples. 
Consult your local sales representative for information 
on accessing Microchip Technology's Bulletin Board 
System (BBS). 


5V, 12Vdc _ 90-250 VAC 


Power Switch 


Interchangeable 
Emulator Probe 
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Power Connector 


PC-Interface 
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PICMASTER-17 PIC17CXX In-Circuit Emulator 


Host System Requirements: 


The PICMASTER has been designed as a real-time 
emulation system with advanced features generally 
found on more expensive development tools. The AT® 
platform and Windows 3.X environment was chosen to 
best make these features available to you the end user. 
To properly take advantages of these features, 
PICMASTER requires installation on a system having 
the following minimum configuration: 


¢ PC/AT-compatible machine: 286, 386SX, 386DxX, or 
486 with ISA or EISA Bus 


¢ EGA, VGA, 8514/A, Hercules graphic card (EGA or 
higher recommended). 


¢ MSDOS / PCDOS version 3.1 or greater. 


Microsoft Windows version 3.0 or greater operating in 
either standard or 386 enhanced mode). 


1 Mbyte RAM (2 Mbytes recommended). 
¢ One 5.25" floppy disk drive. 


¢ Approximately 10 Mbytes of hard disk (1 Mbyte required 
for PICMASTER, remainder for Windows 3.0 system) 


° One 8-bit PC/AT (ISA) I/O expansion slot (half size) 
e Microsoft mouse or compatible (highly recommended). 


Emulator System Components: 


The PICMASTER Emulator Universal System consists 
primarily of four major components: 


¢ Host-Interface Card: The PC Host Interface Card 
connects the emulator system to a PC compatible 
system. This high-speed parallel interface requires a 
single half-size standard AT / ISA slot in the host 
system. A 37-conductor cable connects the interface 
card to the external Emulator Control Pod. 


Emulator Control Pod: The Emulator Control Pod 
contains all emulation and control logic common to all 
Microchip CMOS microcontroller devices. Emulation 
memory, trace memory, event and cycle timers, and 
trace/breakpoint logic are contained here. The Pod 
controls and interfaces to an interchangeable target- 
specific emulator probe via a 14° precision ribbon 
cable. 


¢ Target-Specific Emulator Probe: A probe specific 
to microcontroller family to be emulated is installed on 
the ribbon cable coming from the control pod. This 
probe configures the universal system for emulation 
of aspecific microcontroller. Currently, the PIC16CXX 
family, and the PIC17C42 microcontrollers are sup- 
ported. Future microcontroller probes will be avail- 
able as they are released. 


« PC Host Emulation Conirol Software: Host soft- 
ware necessary to control and provide a working user 
interface is the last major component of the system. 
The emulation software runs in the Windows 3.X 
environment, and provides the user with full display, 
alter, and control of the system under emulation. The 
Control Software is also universalto all microcontroller 
families. 


The Windows 3.X System is a multitasking operating 
system which allows the developer to take full advan- 
tage of the many powerful features and functions of 
the PICMASTER system. 


PICMASTER emulation can operate in one window, 
while a text editor is running in a second window. 
PICMASTER supports the window feature Dynamic 
data Exchange (DDE). DDE allows data and com- 
mands to be dynamically transferred between two or 
more Windows programs. With this feature, data 
collected with PICMASTER canbe automatically trans- 
ferred to a spreadsheet or database program for 
further analysis. 


Under Windows 3.X, two or more PICMASTER emu- 
lators can run simultaneously on the same PC making 
development of multi-microcontroller systems pos- 
sible (e.g., asystem containing a PIC16C5X controller 
and a PIC17CXX controller) or two or more of the 
same controller family. 


This allows data collected by PICMASTER to be auto- 
matically transferred to spreadsheets, data bases, or 
other analytic tools for further evaluation. DDE also 
allows automated control of PICMASTER which in turn 
allows development of automated test suites, life testing 
and production testers. 


PRO MASTER EPROM Programmer: 


The PRO MASTER Programmer system included in the 
PICMASTER Development System provides the prod- 
uct developer with the ability to program (transfer) the 
developer's software into PIC17CXX microcontrollers. 


The programmer unit comes complete with accessories 
for use with a PC host computer. Supplied are interface 
cables and connectors to a standard PC serial port COM 
1-4, power supply cable, and host operating software. 


The PRO MASTER Programmer will work in either 
stand-alone mode, or in PC host connected mode. 
Connected to a PC host, many more features are 
available to the user as explained below. 
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PICMASTER-17 PIC17CXxX In-Circuit Emulator 


STAND-ALONE MODE 


Stand-alone mode is useful in situations where a PC 
may not be available or even required, such as in the 
field or in a lab production environment. In stand-alone 
mode the following programming functions are avail- 
able: 


VERIFY 


VERIFY preforms two functions. For a programmed 
part, the device in the programming socket will be 
compared tothe program data stored ininternalmemory. 
Ifthe data and fuse settings are correct, VERIFIED will 
be displayed. VERIFY will also confirm that erased 
parts are blank. A device in the socket will display 
ERASED if all programmable locations are blank. 


PROGRAM 


In stand-alone mode, devices inserted into the pro- 
grammer socket will be programmed with data cur- 
rently stored in memory. Pressing the PROGRAM key 
will cause the unit to program and verify both the 
program memory and the device fuses. If all program 
successfully, PGM OKAY will be displayed. 


READ 


A pre-programmed device placed in the programmer 
socket can be read into the programmer unit by press- 
ing the READ key. Program and fuse data will be read 
and stored into internal memory. Various options exist 
with the READ function. 


PC HOST CONNECT MODE 


When the PRO MASTER is connected to a host PC 
system, many more options and conveniences are avail- 
able to the user such as serialized code programming. Host 
mode allows full interactive control over the PRO MAS- 
TER unit. A full screen, user-friendly software program is 
provided to assist the user. 


Asinstand-alone mode, parts may be Read, Programmed, 
Blank checked, and Verified. Also, all fuses and ID 
locations may be specified. Other features available in 
host-mode are: 

Editing 

A large screen buffer editing facility allows the user to 
change and program location in hexadecimal mode. 
Complete program and fuse data can be loaded and 
saved to DOS disk files. Files generated by the Assem- 
bler program are directly loadable into programmer 
memory. 


Vop and Vpp Adjust 


The programming environment voltage settings of Vop 
max, VDD min, and VpP can be set and altered only on PC 
host mode. The voltage settings allow the user to program 
the part in the environment that the part will be used. The 
part will be programmed at VDD max and verified at Vop 
min. VPP is the programming voltage. 


SALES AND SUPPORT - To order or to obtain information, e.g., on pricing or delivery, please use the listed 
part numbers, and refer to the factory or the listed sales offices. 


PART NUMBER 
EM177001 
EM177004 


DESCRIPTION 
PICMASTER PIC17CXX In-Circuit Emulator System 
PICMASTER-17 System without PRO MASTER Programmer 
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® 
Microchip 


PRO MASTER” 








CMOS Microcontroller Programmer Unit 








SYSTEM FEATURES 


EPROM Programmer System: 


« PRO MASTER Programmer unit for the PIC16C5X, 
PIC16CXX, and PIC17CXX Microcontroller family. 


¢ Operates as a Stand-alone Unit or in Conjunction 
with a PC Compatible host system. 


« READS, PROGRAMS, and VERIFIES in Stand- 
alone mode. 


« PC Host Software provides file display and editing, 
and transfer to and from Programmer unit 


* Communication Via RS-232 
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SYSTEM DESCRIPTION 


PRO MASTER Programmer: 


The PRO MASTER Programmer system provides the 
product developer with the ability to program user 
software into PIC16C5X, PIC16CXX, and PIC17CXX 
CMOS microcontrollers. 


The programmer unit comes complete with accessories 
to be used with the PC host computer. Supplied are 
interface cables and connectors to a standard PC serial 
port, a universal input power supply unit, and host 
operating software. 


The PRO MASTER Programmer will work in either 
stand-alone mode, or in PC host connected mode. 
Connected to a PC host, many more features are 
available to the user. 
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CMOS Microcontroller Programmer Unit 


STAND-ALONE MODE 


Stand-alone mode is useful in situations where a PC 


may not be available or even required, such as in the: 


field or in a lab production environment. In stand-alone 
mode the following programming functions are avail- 
able: 


VERIFY 


VERIFY performs two functions. For a programmed 
part, the device in the programming socket will be 
compared to the program data stored in internal memory. 
If the data and fuse settings are correct, VERIFIED will 
be displayed. VERIFY will also confirm that erased parts 
are blank. A device in the socket will display ERASED if 
all programmable locations are blank. 


PROGRAM 


In stand-alone mode, devices inserted into the program- 
mer socket will be programmed with data currently 
stored in memory. Pressing the PROGRAM key will 
cause the unit to program and verify both the program 
memory and the device fuses. If all program success- 
fully, PGM OKAY will be displayed. 


READ 


A pre-programmed device placed in the programmer 
socket can be read into the programmer unit by pressing 
the READ key. Program and fuse data will be read and 
stored into internal memory. Various options exist with 
the READ function. 


SALES AND SUPPORT 


~ PC HOST CONNECT MODE 


The PRO MASTER provides a very user friendly user 
interface which allows complete control over the pro- 
gramming session. . 


The PRO MASTER host software is a DOS windowed 
environment with full mouse support to allow the user to 
point and click when entering commands. 


The Host Software communicates with the PRO MAS- 
TER via the serial port of the PC. Any of the four (COM 
1-4) ports may be used. The communication is done at 
19200 baud to insure fast throughput. Communication 
will be established with the PRO MASTER Device 
Programmer prior to any transfers taking place. 


Serialization is done by generating a serialization file, 
and then using that file to serialize locations in the PIC 
microcontroller. Once a serialization file is generated, it 
may be used over different programming sessions. 
Serial numbers are automatically marked as used when 
a PIC is programmed successfully with that serial num- 
ber. 


Complete control over the programming environment is 
also provided. Control over the programming and verify 
voltage of Vdd insures that the Microcontroller will per- 
form in the desired environment. Programming (Vpp) 
voltage is also adjustable to insure complete compatibil- 
ity with future programming algorithms. 


To order or to obtain information, e.g., on pricing or delivery, please use the listed part numbers, and refer to the 
listed sales offices. 


PROGRAMMER PART NUMBER-_ DESCRIPTION 
Programmer Kit as described above 
Programmer Kit without power supply 


PG007001 
PG007002 


SOCKET PART NUMBER 
AC164001 
AC164002 
AC164003 
AC164010 
AC164011 
AC164012 
AC164013 
AC164014 | 
AC174001 . 
AC174002 
AC174003 


DESCRIPTION 
PIC16C54 thru C57 18 & 28 Lead PDIP Socket Module 
PIC16C54 thru C57 18 & 28 Lead SOIC Socket Module 
PIC16C54/56 20 lead SSOP Socket Adapter 
PIC16C71/84 18 Lead PDIP/SOIC Socket Module 

~ PIC16C55/57 28 Lead SSOP Socket Adapter 
PIC16C64 40 PIN DIP Socket Module 
PIC16C64 44 PIN PLCC Socket Module 
PIC16C64 44 PIN PQFP Socket Adapter 
PIC17C42 40 Lead PDIP Socket Module 
PIC17C42 44 Lead PLCC Socket Module 
PIC17C42 44 Lead QFP Socket Module (future release) 





Socket modules are sold separately. 
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; PICSTART™-16B 


Microchip 


PIC16CXX Low-Cost Microcontroller Development System 

















SYSTEM FEATURES * Provides Object files, Listing files, Symbol files, and 
special files required for symbolic debug with the 
EPROM Programmer System: PIC16CXX Emulator System. 
* EPROM Programmer unit for the PIC16C5X and ¢ Output formats: INHX8S, INHX8M and INHX16. 
PIC16CXX Microcontroller family. Supports . : 
PIC16C54, PIC16C55, PIC16C56, PIC16C57, rater 
PIC16C71, PIC16C84. ¢ Instruction-level Simulator of the PIC16CXX 
¢ Operates with a PC-compatible host system. microcontroller product family. 
* READS, PROGRAMS, and VERIFIES EPROM - For PC-compatible systems running the MSDOS 
Memory. operating system. 


¢« PC Host Software provides file display and editing, 


¢ Full screen simulation user interface. 
and transfer to and from Programmer unit. 


* Symbolic debugging capability. 
Macro Assembler: ¢ 1/O stimulus input capability. 


« Provides translation of Assembler source code to "Quick Start" Sample Kit: 
object code for all PIC16C5X and PIC16CXX 
microcontroller product family. 

¢ Macro-Assembly capability. 


¢ Provides the User / Developer with a sample kit of 
PIC16CXX parts for initial prototype use. 
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PIC16CXX PICSTART System 





SYSTEM DESCRIPTION 


The PICSTART-16B Development System provides the 
product development engineer with an alternative low- 
cost introductory microcontroller design tool set for the 
PIC16CXX family where full real-time emulation is not 
required. The equipment in the PICSTART-16B system 
operates on any PC compatible machine running the MSDOS/ 
PCDOS operating system. 


Provided in the System is an MSDOS-based Software 
Simulator program (MPSIM), a microcontroller EPROM 
programmer, and amacro assembler program (MPALC). 


Sample software programs to be run on the simulator 
are provided to help the user to quickly become familiar 
with the development system and the PIC16CXX micro- 
controller line. 


The user need only provide his or her own preferred text 
editor and the system is ready for development of end 
products using the PIC16C54, PIC16C55, PIC16C56, 
PIC16C57, PIC16C71, or PIC16C84 microcontrollers. 


A"Quick Start" PIC16CXX Product Sample Pak contain- 
ing user programmable parts is also included. 


Microchip provides additional customer support to de- 
velopers through an electronic Bulletin Board System 
(BBS). Customers have access to the latest updates in 
software as well as application source code examples. 
Consult your local sales representative for information 
on accessing the BBS. 


PICSTART-16B Development Programmer: 


The Microchip device programmer system included in 
the PICSTART-16B Development System provides the 
product developer with the ability to program user soft- 
ware into PIC16CXX EPROM microcontrollers. It is 
designed to be a development programmer and not 
recommended for use in a production environment. 


The programmer unit connects to a standara PC serial 
port. 


A full screen, user-friendly software program is provided 
for full interactive control over the programmer. Parts 
may be Read, Programmed, Blank checked, and Veri- 
fied. Also, all fuses and ID locations may be specified. 


A large screen buffer editing facility allows the user to 
change and program location in hexadecimal. Com- 
plete program data can be loaded and saved to DOS 
disk files. Files generated by the MPALC Assembler 
program are directly loadable into programmer memory. 


SALES AND SUPPORT 


MPSIM Simulator: 


The MPSIM Simulator program provides the developer 
with an instruction and limited I/O simulator software 
program for debugging PIC16CXX assembler code. 


The simulator is meant for use with smaller projects not 
requiring precise more extensive development equip- 
ment. Since the PIC16CXxX architecture is essentially a 
single tasking microcontroller without interrupts, many 
applications can be developed by using a simulator 
program alone. 


The MPSIM Simulator has the following features to 
assist in the debugging of software/firmware for the 
user. 


Program Load/Save 


Commands exist to load assembled object file programs 
into simulation memory. Conversely, programs may be 
saved from program simulation memory back to the PC 
disk. 


Display & Alter 


Provisions are made to display and alter Program 
Memory, Register Files, and status register bits. Also 
simulator information such as cycle times, elapsed time, 
and step count can be displayed. 


Utility Functions 


Various utility functions exist which assist the user in 
operating the simulator. Memory and registers can be 
cleared by command. Memory can be searched to find 
occurances of instructions, register use, and ASCII data. 


Disassembler 


Program memory can be disassembled showing both 
hexadecimal data and instruction mnemonics for speci- 
fied address ranges. 


Symbolic Debugging 


The simulator provides for symbolic referencing to aid 
and simplify debugging. The symbol table may be 
displayed. New symbols defined and unwanted symbols 
deleted. 


Execution and Trace 


During program execution, address ranges, registers, 
register contents, and others can be traced. 


Breakpoints 


The user may specify up to 512 breakpoints at any one 
time. 


To order or to obtain information, e.g., on pricing or delivery, please use the listed part numbers, and refer to the listed 


sales offices. 


PART NUMBER DESCRIPTION 
DV163001 PICSTART-16B DEVELOPMENT SYSTEM 
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Microchip TOTAL ENDURANCE” 





Total Endurance™ Predictive Software Model 





INTRODUCTION 


Microchip's Total Endurance Disk provides electronic 
systems designers with unprecedented visibility into 
Serial EEPROM-based applications. Now designers 
can describe their system to an advanced mathematical 
model (with a standard Windows™ interface) which will 
then predict the performance and reliability of the Serial 
EEPROM within that environment. Design trade-off 
analysis that formerly consumed hours, days or weeks 
can now be accomplished in minutes - with a level of 
accuracy that delivers a truly robust design. 


Users may control the following parameters: 


* Serial EEPROM device type 

¢ Bytes per cycle 

¢ Cycling mode - byte or block 

¢ Data patterns type - random or worst-case 
¢ Temperature in °C 

* Erase/Write cycles per day 

¢ Application life or target PPM level 


The model will respond with FIT rate, PPM level, appli- 
cation life and a plot of the PPM level versus the number 
of cycles. The model is available in both DOS and 
Windows™ versions and offers the following additional 
features. 
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FEATURES 


¢ IBM® PC compatibility 

¢ Automaiic or manuai recalculation 

¢ Full-screen or windowed graph view 

¢ Hypertext on-screen help 

¢ Key entry or slide-bar entry of parameters 

¢ Support of Microchip's 2- and 3-wire Serial 
EEPROMs 

¢ On-screen editing of parameters 

¢ Single-click copy of plot to clipboard 

¢ Numeric export to delimited text file 

¢ On-disk endurance tutorial 

¢ Real-time update of data 


SYSTEM REQUIREMENTS 


¢ DOS 3.1 or higher 

386 or 486 processor recommended 

¢ Math coprocessor recommended 

¢ Windows 3.1 

1 MB memory 

Eliminate time and guesswork from your next Serial 
EEPROM design. Contact your local Microchip repre- 
sentative today and ask for the Total Endurance Disk. 


a3 4 


‘dey (Mons) 
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Total Endurance™ Predictive Software Model 


NOTES: 
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Serial EEPROM Evaluation Board 





INTRODUCTION 


The Microchip Serial EEPROM Evaluation Board 
(SEEVAL™) provides system design engineers with a 
very efficient and economical way to evaluate and 
program Microchip Serial EEPROMs. The board is 
designed for serial (RS232) connection to most IBM°- 
compatible PCs, and its powerful software interface runs 
under Microsoft® Windows™ 3.1. Graphical representa- 
tion of the EEPROM array provides fast, easy access 
and control of data. 


Application software provided with the Serial EEPROM 
Evaluation Board allows the user to program special 
features of advanced devices such as the 24C65 Smart 
Serial™ and 93LCS66 write-protectable serial. It also 
allows the user to fill the EEPROM array using any of 
several methods: 


1. Download data from a binary file. 
2. Fill with any user-defined repeating pattern. 


3. Fill with “checkerboard” or “inverse checkerboard” 
patterns. 


= 


Read or write any portion of the array down to 1 byte 
in size. 


Test header for scope connections. 
Full Read/Write cycling functions 


inverse 
checkerboard: 5555 checkerboard: AAAA 
AAAA 6555 
5555 AAAA 
AAAA 5555 


EEPROM data can also be saved to a file on disk. 


Software and system debug time and overall time-to- 
market can be reduced by using the Serial EEPROM 
Evaluation Board to write known data into the array in 
advance or to verify data which was stored by the 
application itself. The package lends itself very well to 
quick-turn changes and rapid verification during soft- 
ware development and system integration. 


Instructions for use and a power-supply cable are in- 
cluded in the Microchip Serial EEPROM Evaluation 
Board Kit. 
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Serial EEPROM Evaluation Board 


NOTES: 
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Microchip MICROCHIP BBS 





Microchip Bulletin Board Service 





Get current information and help on Microchip’s Bulletin 
Board Service (BBS)! Microchip wants to provide you 
with the best responsive service possible. To accom- 
plish this, the systems team monitors the BBS, posting 
the latest component data and software tool updates, 
providing technical help and embedded systems in- 
sights, and discussing how Microchip products provide 
project solutions. Extend your technical groups staff 
with microcontroller and memory experts through 
Microchip’s BBS communication channel. 


CONNECTING TO MICROCHIP 


Connect worldwide to the Microchip BBS using the 
Compuserve communications network. In most cases, 
a local call is your only expense. The Microchip BBS 
connection does not use Compuserve membership ser- 
vices, therefore you do not need Compuserve mem- 
bership to join Microchip’s BBS. 


The procedure to connect will vary slightly from country 
to country. Please check with your local Compuserve 
agent for details if you have a problem. Compuserve 
services allows multiple users at buad rates up to 9600. 
To connect: 


1. Set your modem to 8 bit, No parity, and One stop 
(8N1). This is not the normal Compuserve setting 
which is 7E1. 


Dial your local Compuserve phone number. 


Type <RETURNS> and a garbage string will appear 
because Compuserve is expecting a 7E1 setting. 


Type +<RETURN> and Host Name: will appear. 


Type MCHPBBS<RETURN> and you will be con- 
nect to the Microchip BBS. 


To learn Compuserve’s phone number closest to you, 
set your modem to 7E1, and dial (800) 848 8980, and 
follow Compuserve's directions. If you are dialing from 
overseas, you may Call 614-457-1550 for voice informa- 
tion. 


Connect without charge to the bulletin board. However, 
you are responsible for your phone charges. Access is 
available to all, but users are required to register the first 
time they “log in.” No registration fees are required at this 
time. 


USING THE BULLETIN BOARD 


The Microchip Bulletin Board is a multi-faceted tool. 
Topic information includes: 


Special Interest Groups 
¢ Files 

Mail 

Bug lists 

Technical assistance 
Consultant Directory 


Special Interest Groups 


Special Interest Groups, or SIGs, offer you the opportu- 
nity to discuss technical issues and topics with other 
users. Take advantage of the Microchip user community’s 
broad background to glean information not available by 
any other method. 


SIGs exists for most Microchip systems, including: 


¢ PIC-SW ¢ ENDURANCE 

¢ PICMASTER ¢ MEMORY PRODUCTS 
¢ PRO MASTER 

¢ UTILITIES 

¢ BUGS 

¢ APP NOTE 


These groups are moderated by Microchip staff. 
Files 


The Microchip Systems BBS is used regularly to distrib- 
ute bug reports, history files, and interim patches for 
Microchip software products. 


Users can contribute files for distribution on the BBS. 
These files will be monitored, scanned, and approved or 
disapproved by the SIG moderator. No executable files 
are accepted from the user community in general. 


Mail 


The BBS can be used to distribute mail to other users of 
the service. 


This is an excellent way to get questions answered by 
the Microchip staff, as well as to keep in touch with fellow 
Microchip product users worldwide. 


The BBS is an evolving product intended to serve your 
needs. We welcome your ideas and input. Consider 
mailing a message to your SIG moderator, or to the 
SYSOP, if you have ideas or questions about particular 
Microchip products, or BBS operation. 
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Lean and Mean 
PIC Machines 


One of the first things an aspiring marketer learns is to 
choose one’s words carefully. As a junior chip peddler 
(er... sales consultant), I remember being told that 
“cheap” was a word to be avoided. Period. Pick your 
euphemism (“cost sensitive,’ “high volume,” “cost 
over performance’’) but for heaven’s sake, not “cheap”! 


Along the same lines, simply stating your product’s 
features is considered amateurish. You must instead 
relate the “benefits” that will accrue to those customers 
wise enough to choose you over competitors. With 
apologies to Woody Allen, the ultimate sales pitch is 
something like: 


FEATURE: — Super-duper See-Thru Look- 
ahead Pipe-dream 


BENEFIT:. — you a) will be loved and 
b) will never die. 


Gee, where do I sign. 


Maybe I’m burned-out from the ever-escalating hype 
permeating the high-tech biz, but now is time for a new 
era of glasnost marketing. I want to see a data sheet like: 


¢ Faster than a bat out of hell! 
© Easier to use than a politician! 


¢ Cheap! 
* Cheaper! 
¢ Cheapest! 


Here are some chips from Microchip Technology that 
fill the bill. 


PIC AND CHOOSE 


Let me just say up front, continuing with my no-bull 
approach, the PIC 16C5x series has what are probably 
the cheapest micros around. I’m talking as little as $2 
in volume for acomplete OTP (One-Time Program; i.e., 
EPROM in a no-window package) micro with RAM, 
EPROM and I/O. : 


Many times, I have been faced with the need for a little 
piece of logic to perform some fairly mundane task 
many times. Usually, the choices boiled down to either 
wiring up a few 74xx TTLs or using one of the popular 
80xx or 68xx micros. 


The problem is often neither approach is ideal. The 
TTL-gates approach may be best for high-volume 
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applications (or for those who agree with our illustrious 
leader, Steve Ciarcia, when he says, “my favorite 
programming language is solder’), but wire-wrapping 
and debugging more than a_ few boards quickly 
becomes tiresome. Furthermore, you’re faced with 
diving back into the rat’s nest when you change your 
mind (inevitably) about how it should work. 


The classic 8-bit micro may be the easiest approach, but 
it can be expensive. A “single-chip” micro was 
traditionally either ROM based (1.e., minimum feasible 
order size is thousands) or windowed EPROM 
(expensive; e.g., $10 for an 8748). Another alternative 
is using; a “non-single-chip” micro, with low-cost 
external RAM and EPROM, but then I’m back to the 
wire-wrapping blues (or more often than I care to admit, 
just throwing a $100 single-board computer at what 
should be a $5 application). 


Admittedly, recent technologies have closed the gap. 
On the gate side, PALs can easily consolidate 5-10 
74xxs. Meanwhile, the classic 8-bit to EPROM-based 
single-chip micros are beginning to appear in OTP 
versions at lower cost. 


Despite this convergence on the needs of low cost and 
volume applications, these approaches always leave 
me feeling a litthe uncomfortable about the waste 
involved because I like to squeeze every bit of 
functionality out of a given technology. The gates 
approach is often speed overkill (1.e., you don’t need a 
50-MHz PAL to toggle an LED) while the micro 
approach is complexity overkill (e.g., an 8K-byte, 32-I/ 
O-bit micro with 7.5K bytes of NOPs and 24 noconnects). 
Read on to see how the PICs uniquely fill the gap 
between gates and reguiar 8-bit micros. 


CHEAP RISC 


Figure 1 shows the pin-outs for the two basic versions (1 
8-pin and 28-pin) of the PIC. Right away the dual 
personality of the chip becomes apparent; it is an 8-bit 
micro in small gate-like package (especially the 18-pin 
DIP version). Why pay for more if you don’t need to? 


With so few pins, explaining their function becomes 
blessedly easy. Note the only 1/0 difference between the 
18-pin and 28-pin versions is the latter has an additional 
8-bit I/O port (RCO-RC7). In addition to the general- 
purpose 1/0 lines, MCLR* is a reset input while OSC1 
and OSC2 are the CPU clock lines. The oscillator is 
unique because it can accept a simple RC (Resistor/ 
Capacitor) as well as traditional crystal or TTL clock 


PIC isa registered trademark of Microchip Technology Inc. in the U.S.A. 


PIC is a registered trademark of PIC Gesellschaft fiir wissenschaftliche, 
technische und kommerzielle Datenverarbeitung mbH in Germany. 
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PDIP, SOIC | PDIP, SOIC 
CERDIP Window CERDIP Window 
MCLR <— 
OSC1 <— 
OSC2/CLKOUT — 
RC7 <> 
RC6 > 
RC5 <-> 
RC4 <> 
RC3 €> 
RC2 <> 
RC1 
RCO <> 
RB7 <> 
RB6 <> 
RB5 <> 
PLCC PLCC 
19 bal 
we 20 h abo 
Nc C21 ees aos RAS 
- 22 pictecs6 aes ss PIC16C57 i is 
ae cs Aes ol ei Figure 1—PIC processors are 
Le ere available in a number of 
tee ae configurations that fit a range of 
COL r A applications. 
fi 21RC 
source. Save money by using the RC option if you’re Store criteria. Actually, this limitation doesn’t matter 
willing to accept less speed and accuracy as shown in because Load/Store, which addresses the issue of 
Figure 2. RTCC is an input that can clock an on-chip 8- “slow” external memory accesses versus “fast” on-chip 
bit counter (with optional 1:2, 1:4, ..., 1: 128 prescaler). register becomes a rather meaningless concept when all 
Alternatively, the on-chip counter and prescaler can be “memory” is on-chip. 
ele i the ae — divided by four (forexample, ¢ Harvard Architecture: this criterion refers to the use 
5 MHz for a 20-MHz PIC). of separate bus and memories for instructions and data, 
The RISCy nature of the PIC becomes clearer moving which the PIC exploits. Though not really a RISC tenet, 
on-chip (Figure 3). Let me check off some of the Harvard architecture is hyped as such on complex RISC 
traditional RISC criteria against the PIC. chips like the AMD 29000 and Motorola 88k. 
¢ Fixed Length Instructions: Yep. Every PIC instruction Of course, the PIC does not have cache (another 
is 12 bits, and different models offer 512 (16C54/55), meaningless concept when all memory is on-chip), 
IK (16C56), or 2K (16C57) instruction capacity. delay slots, branch prediction, speculative execution, 
Programming is easy because there are only 38 different superscalar, superpipeline, or superanything. These 
instructions, which is about as reduced as possible. omissions are not surprising because the PIC doesn’t 
¢ Pipelined, Single-Cycle Execution: OK, with the even have interrupts and it barely has a stack (two levels 
understanding that a single cycle is four clock periods é 
(as shown in Figure 4). With a two-level pipeline (fetch st OM Bese Coe a 
and execute over-lapped), the PIC’s “5-MIPS” 3.33 MHz +22% 
performance (at 20 MHz) leaves most other 8-bit micros 1.85 MHz t22% 


189 kHz +38% 
1.18 MHz 415% 


eating dust. 


¢ Load/Store: The PIC fulfills this most fundamental 668 kHz +15% 
of RISC precepts, subject to a little handwaving. All 67.8 kHz +259, 
PIC instructions reference “W,” a File Register (FR), or 
both. Inone interpretation, W is atype of “accumulator” 
while FRs (the ’54, 55, and ’56 offer 32 while the ’57 
offers 80 FRs) are “RAM.” In this light, the PIC isn’t 
Load/Store because instructions can operate directly on Figure 2—If lower speeds and less accuracy are 
“memory” (the FRs). However, if you consider W as a acceptable tradeoffs for lower cost, a simple RC circuit 
“temporary register” and FRs as “regular registers,” the may be used in place of a crystal. 

instructions only work on “registers” per the Load/ 
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only). That’s OK, because not only do you get what you 
pay for but you pay solely for what you need. 


You do get some handy features like a power-on-reset 
timer that eliminates the external RC usually required, 
something that should appeal to designers who are 
really cheap... oops!... who are concerned about 
minimizing system cost. You also get a watchdog timer 
with a clever feature: it operates off a clock circuit 
separate from the CPU. This aspect is handy because 
the watchdog remains vigilant even if the CPU clock 
is stopped. Stopping the clock is something you might 
want to do because the PIC is “static” and includes a 
sleep mode. These features make very low speed, 
voltage, and power (i.e., battery) operation possible. 
For example, a PIC consumes a miserly 3 volts at 32 
microamps with 32-kHz clock-wow! 


CHEAP TOOLS 


I tend to take up-front tool cost for granted because I 
have all kinds of assemblers, simulators, emulators, and 
programmers gathering dust. Thus, I haven’t been in 
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the market recently, but I guess the minimum tools setup 
fora PAL or 8-bit micro runs at least $1000, and I know 
it can get much higher. 


Cheap chips need cheap tools, and here Parallax Inc. 
fills the bill. They offer a complete PC-based 
development package, including assembler, “emulator,” 
and device programmer for only $449. Youcan also buy 
small quantities of the PIC at very decent prices (as low 
as $3) directly from Parallax. 


I say “emulator” because it isn’t. the classic emulator 
with expensive features like real-time trace or source- 
level debug. Rather, it more closely corresponds to an 
EPROM emulator you might use with a regular micro. 
The Parallax setup basically implements a downloadable 
RAM version of the PIC with a few extras , like power 
supply, switch-selectable clock source, and so forth. 
These features allow quick code change/debug iterations 
without the cost and time to burn an actual EPROM 
version of the chip. 


The emulator/programmer setup (combined: a tidy 20 
sq- in.) connects to the PC printer port on one side and 
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Figure 4—The PIC operates with a four-clock-period cycle and overlaps instruction execution with the fetch of the next 


instruction. 


to an 18- or 28-pin DIP header on the other using a 6" 
ribbon cable, which plugs into the target PIC socket. 
Each board is powered by a small wall-mount 
transformer, so they can be used together or separately. 


Entering a program on the PC using your favorite editor, 
and then assembling that program using PASM.EXE 
completes the developmental procedure. Next, you can 
use PEP.EXE to download the object code to the 
emulator, run the program, and after everything is 
working, burn a PIC using the device programmer. The 
latter includes LIF (low insertion force) sockets for both 
the 18- and 28-pin PICs. 


A key point is the Parallax PASM redefines the 
instruction syntax, so it differs from the “official” 
definition by Microchip. Normally, such amove would 
be considered taboo, but I’m letting it pass for two 
reasons. First, I don’t have to worry about maintaining 
compatibility with vast libraries of existing official PIC 
code (Ill bet you don’t either). Second, and most 
important, in my opinion the Parallax scheme is superior. 


The Parallax improvements generally fall into two 
classes: more consistent instruction names and formats, 
and macroinstructions in which a single PASM 
instruction generates multiple official PIC instructions. 


These improvements effectively decrease the already 
reduced instruction set. For example, Parallax turns ten 
different official instructions into one generic MOV 
instruction. Furthermore, the Parallax macroinstructions 
can replace up to four official instructions. 


Remember, brain cells start dying when you’re in your 
twenties, and the population of programmers is rapidly 
aging. The Parallax approach postpones the day when 
we'll be forced to watch commercials with elderly 
hackers whimpering, “I’ve fallen—and I can’tremember 
all the darn instructions!” 


CHEAP THRILLS 


The “no-bull” approach calls for less talk and more 
action, so let me discuss an example PIC application. 
Figure 5 shows the schematic for a lean, mean, four- 
channel digital oscilloscope based on the 28-pin 16C55- 
HS PIC, a 64K x 4 DRAM, and a resistor network 
configured as a voltage-dividing DAC. Thanks to the 
low price of the OTP PIC, the total parts cost for the 
gizmo is less than $20—refreshing isn’t it? 


When the Record button is pressed, the PIC captures 
and stores 64K samples from the four input channels in 
the 64K x 4 DRAM. For display, the PIC drives the 
resistor ladder DAC in a manner that causes an attached 
oscilloscope to magically show the four input traces 
plus a “guide” trace reflecting the position of the scope 
screen (64 samples) in the trace buffer (1024 screens). 
The DAC implementation exploits the fact that PIC I/ 
O lines are true CMOS, unlike those of most TTL- 
compatible micros (i.e., high impedance when 
configured as inputs and sink/source rail-to-rail when 
configured as outputs). The Left and Right buttons 
scroll the scope “screen” back and forth either a sample 
at a time (position designated by the small guide) or 16 
screens (i.e., 1024 samples) at a time (position designated 
by the large guide). 


The display loop starts with a sync” pulse generated by 
driving the DAC from 0 to 255 (i.e., 5 volts). Next, the 
PIC runs through a loop 64 times, outputting the guide 
trace voltage and then a voltage for each of the four data 
traces. The latter are determined by adding a voltage 
representing each sample value (0 or 1) and a position 
offset voltage corresponding to the channel number. 


Three sampling modes are provided for Record. If 
Record is pressed by itself, the PIC simply captures 64K 
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Figure 5— 

A simple PIC application 
records up to four channels 
of input with time/trigger 
clocking. The output goes to 
a regular oscilloscope for 
display. A basic resistor 
ladder DAC keeps cost down. 
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samples as fast as possible. If Record is pressed and 
held down, + or - are pressed and released, and then 
Record is released, the PIC waits for the specified edge 
on the Trigger input channel and then records 64K 
samples at full speed. Finally, if Record is pressed and 
held down, + or - are pressed and held down, and then 
Record is released followed by + or - release, the PIC 
records a single sample each time the specified edge is 
detected on the Trigger input. A look at the Record 
portion of the code shows how the PIC determines the 
triggering mode and performs the data capture. Listing 
also serves as a good introduction to PIC programming. 
The Record routine starts by clearing the DRAM address 
and a bit designating full-speed or triggered sample 
mode. Next, the sequence starting at: debounce (the “:” 
makes debounce a local label; the same label name can 
be used elsewhere in the program) is aloop that waits for 
and debounces the Record switch input. This classical 
PIC code uses the SETB-and CLRB instructions to set 
and clear bits and the SB and SNB to skip the next 
instruction depending on the state of a bit. It looks a 
little strange, but you can step through it yourself to see 


how it sets and clears bit (trigger mode/full-speed 
mode) and direction (rising or falling edge if trigger 
mode). 


The PIC option register is written to configure the 
RTCC trigger input as rising or falling edge. Note again 
how the skip instruction makes the common chore of 
loading a register with a bit-dependent value easy. 
Similar code sets up a looping address (which is saved 
in temp) depending on the state of the + or - keys 
(regular_Ioop or trigger_Ioop). 


In trigger mode, the PIC spins on the three instructions 
at trigger_loop waiting for the LSB of the RTCC to 
change from 0 to | (i.e., when the RTCC increments in 
response to the appropriate edge on the trigger input). 
Meanwhile, the second instruction checks whether the 
Record key is pressed providing a way to cancel sampling 
should the trigger input fail to make an appearance. The 
core data capture routine at regular_loop does the DRAM 
boogie by asserting the row address/ RAS and the 
column address/CAS at which point whatever data is 
sitting on the four DRAM inputs is stored. The last steps 
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| Listing 1—The Record portion of the PIC code shows how buttons are 


debounced and how the samples are taken and stored. 


| ; Record pressed - get final record command and read 64K 


; samples into DRAM 


| handle_record 


:debounce 
‘wait 


write_entry 


trigger_loop 
‘wait 


regular_loop 


call 
cirb 


mov 
sb 
clrb 
sb 
setb 
snb 
sb 
setb 
jnb 
djnz 


mov 
snb 

mov 
mov 


mov 
snb 
sb 


clear_address 
bit 


temp,#100 

left 

direction 

right 

direction 

left 

right 

bit 

record, :debounce 
temp, :wait 


w.#101000b 
direction 
w.#111000b 
option, w 


w,#regular_loop 
left 

right 
w.#trigger_loop 


temp.w 
we 
bit,regular_loop 


rtcc 
record,clear_to_end 
rtcc.0,:wait 


rc,address_ low 
ras 
rc,address_high 
cas 

cas 

ras 

w,temp 

address _low 


address_high 
Ww 


we 
make_ra_input 


‘reset address 
clr bit to flag left/right 


3100 cycles of debounce 
if left button. dir=0 


if right button, dir=1 


‘if either button. set bit 


sif record, reload debounce 
‘record not pressed, 100 yet? 


;get + or - edge for option 
; according to direction 


jload option with w 


;if left or right button is 
; Still pressed, then do 
; per-sample triggering 


;save loop address in temp 
:clr we to enable dram write 
sif no button, regular 


sreset rtcc 
sif record button, abort 
;wait for trigger edge 


2 ‘write row address 
1 ‘latch into dram 

2 ‘write column addr 
1 
, 
1 
1 


. 
? 


slatch in dram. write 
;end write cycle 

;return ras high, too 
; ;get loop addr in w 
1 sinc low adress 
1/2s :skip if not 0 
31/2s sinc hi addr 

; skip if 0 
2 ;jmp to loop 

;(14 cylcles/loop) 
;done, return we high 
;compensate for write_entry 





increment the address and exit the 
loop when 64K samples are captured. 
Note how the final jump instruction 
loops back to either trigger_loop (for 
sample-per-trigger mode) or 
regular_loop, depending on the address 
in W (which is saved/ restored from 
variable temp). The core loop takes 
only 2.8 ps to execute (14 cycles x 4 
clocks/cycle x So ns/clock) thanks to 
the fact the PIC is running at 20 MHz, 


| thus, it acquires the data at over 350 


kHz. Not bad at all. In fact, it acquires 
data much faster than any number of 
more expensive micros that — shall 
remain nameless (lucky for them). 


Oh well, the overpriced competitors 
have one big advantage over the PIC— 
at least they aren’t cheap. 


Tom Cantrell holds a B.S. and an 
M.B.A. from UCLA. He owns and 
operates Microfuture Inc., and has 


| been in Silicon Valley for ten years 


working on chip, board, and system 
design and marketing. 
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Enhanced PIC16Cxx gets 
ADC and interrupts 


Eight-bit microcontrollers (uCs) are taking over the 
low-cost, down-in-the-dirt, embedded-system world. 
Low-cost small pinouts, critical peripherals, and easy 
design-in are requirements in this tough design 
environment. Microchip Technology’s upgraded 
versions of its PIC 16Cxx 8-bit uC line, the PIC 16C71, 
now has additional functions that include interrupt 
processing, an A/D converter, and high-current I/O for 
driving LEDs directly. 


PIC uCs combine high processor-throughput rates with 
small pinouts (18 to 28 pins) and simple register-based 
architecture. PIC Cs evolved from an I/O controller 
for GE mainframes and have taken on distinct RISC- 
like features: asmall number of fixed-length instructions 
and a pipelined operation (2-stage). Unlike RISC, PICs 
have an accumulator (working register) and handle 
dynamic data in registers, not RAM. The 16C71 adds 
significant power to the PIC 16Cxx family. The 
instruction word is lengthened from 12 to 14 bits, which 
makes control easier; interrupts have been added (earlier 
chips required continual polling); and a 4-channel A/D 
converter (20 Lsec) has been added, which eliminates 
the need for an off-chip converter. 


The PIC 16C71 runs at 20 MHz and executes most 
instructions in one pipeline cycle-200 nsec. Branches 
take two cycles, or 400 nsec. 


The PIC 16C71 has four interrupt sources and an 8-level 
hardware stack. Interrupts or subroutine calls 
automatically push the 13-bit program counter onto the 
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Microchip PIC 16C71 8-bit uC 
¢ 8-bit wC, 20-MHz clock 
35 14-bit instructions 


200-nsec instruction execution, 2-stage 
pipeline 


36-byte RAM 

1k-word (14 bits) ROM _ 

4-channel, 8-bit A/D converter (20 usec) 
Sleep mode with A/D wake-up 


3 to 5V (2 mA at 3V, 4 MHz) 


$3.25 (10,000) in 18-pin DIP or SOIC 





stack and pop it off on return. (Earlier PICs had a 2- 
level stack that could easily overflow.) 


SLEEP mode cuts power by turning off the oscillator; 
the A/D converter can be turned off, too. The converter 
does conversions while the CPU is in SLEEP mode, 
waking up the CPU with a conversion-complete 
interrupt. 


A more powerful version of the PIC family, the 17C42, 
adds interrupts, a larger instruction set, external-memory 
capability, and a wider, 16-bit instruction word. 


PIC is a registered trademark of Microchip Technology Inc. in the U.S.A. 


PIC is a registered trademark of PIC Gesellschaft fiir wissenschaftliche, 
technische und kommerzielle Datenverarbeitung mbH in Germany. 
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Microchip PIC adds 
EEPROM data memory 


For some embedded applications, RAM and ROM 
don’t cut it. These applications need small chunks of 
writable, nonvolatile memory to hold critical 
information. Microchip’s PIC 16C84 extends the 8-bit 
uC architecture by adding 64 bytes of 10msec write 
EEPROM data memory. 


You can use this EEPROM to store changeable key 
data, such as security codes, data-input values, and 
interim data points. You access the EEPROM as a 
memory-mapped peripheral through the RAM register 
set. Both EEPROM address and data registers are set for 
a write; or, the address registers are set fora read. You 
control operations on the EEPROM via bits set on a 
hardware-control register. 


The EEPROM is perfect to holding slowly changing 
data, and it provides data at the same read rate as the 
register file. EEPROM reads take 10 msec; reads take 
a single CPU cycle (400 nsec at a 10-MHz clock rate). 
The 16C84 uses a 10-MHz internal clock, which is half 
the rate of faster PICs. 


A second-generation extensions of the PIC 16C5x 8-bit 
uC family, the 16C71 and 16C84 uCs have additional 
interrupts and wider ROM instruction word. Earlier 
PICs, with 2-stage execution (200 nsec/cycle, 2 cycles/ 
instruction), lacked interrupt facilities and had a shallow 
hardware stack facility. The new uCs extend the ROM 





Microchip PIC 16C84 
8-bit uC 


10-MHz internal clock (static CPU) 
2-stage execution (2 cycles) 

35 single-word instructions 

36-byte register file 


1k-word (14-bit-wide) ROM 

64-byte EEPROM data memory 

13 I/O pins (to25-mA sink/pin) 

1 ext interrupt (8-level stack) 
Real-time clock; watchdog timer 

2 to 6V (2-mA typ at %V, 4 MHz) 

In 18-pin DIP or SOIC, $3.72 (10,000) 


instruction word from 12 to 14 bits and add Sleep mode; 
one external and three internal (including wakeups) 
interrupt; and a deeper stack (from two to eight levels). 


PICs pCs are popular for low-end embedded 
applications. Engineers use PIC uC’s fast execution 
cycle to compensate for minimal peripheral set. PIC’s 
are available with ROM, EPROM, and OTP (one-time- 
programmable) memory. 


Microchip also sells PlICMaster-16C, a development 
system for PIC chips, and the PIC 16C84 uC. The 
system functions as a real-time ICE (in-circuit emulator), 
monitoring a CPU probe, emulating ROM memory, and 
collecting execution trace data. Users run the 
development tool form an IBM PC under Microsoft 
Windows. PICMaster-16C sells for $3450.—Ray Weiss 
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To hold key data, the PIC 16C84 integrates a 64-byte EEPROM data memory in the low-end 8-bit .C. 
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Using the PIC Micro 


Automotive engine carburetors and points have gone 
the way of vacuum tube radios and starter cranks, they 
have been made obsolete by advances in technology. 
Thanks in large part to recent advances made in cost 
effective single-chip microcontrollers, functions 
traditionally addressed by mechanical and 
electromechanical methods continue to be replaced by 
sophisticated embedded control systems. Increasing 
use of distributed intelligence has resulted in automobiles 
that provide better performance, more convenience 
features, a high degree of safety, better serviceability, 
and better long-term reliability. This article explores 
the advantages offered by Microchip’s PIC 
microcontrollers used in this field. 


KEYLESS ENTRY 


Although the small rf transmitter for an automotive 
Keyless Entry system may appear simple from the 
outside, it actually requires the microcontroller inside to 
meet specific and rather stringent requirements. These 
requirements include very small physical size, extremely 
low current drain (for long multi-year battery life), and 
low system cost. 


One microcontroller device that has proven very 
successful in Keyless Entry systems is Microchip 
Technology’s 8-bit PIC16C54. It is available in the 
industry’s smallest microcontroller package, the 18 


lead ssop package. The operating current drain is less 
than 15yA at low operating frequency, and the standby 
current is less than 3uA. And in high volume, the price 
of the 8-bit PIC16C54 is designed to offer the lowest 
possible system cost. 


An additional capability that further sets the PIC16C54 
apart from competitive devices is called Serialised 
Quick Turn Programming (SQTP). SQTP is a unique 
programming service available from Microchip for the 
PIC16C54, and other members of the product family. 
With SQTP, the eprom program memory is programmed 
by Microchip with the same identical software algorithm 
plus a security code unique to each specific device. 


SQTP programming provides several important benefits 
to Keyless Entry systems and other security applications: 


1) Due tothe unique programmed security code each 
transmitter will work with only the specific 
automobile whose receiver has the identical security 
code. A SQTP programmed PIC16C54 (or larger 
member of the family) is normally used in the 
automobile receiver as well. 


2) System cost is reduced since no external circuitry 
or switches are required to specify the security 
code. 


3) Duetothe excellent software code protection of the 
eprom based microcontroller, potential car thieves 
would find it virtually impossible to read out the 
software algorithm or unique security code. 


A Low Cost ABS System Implemented on a High-End 8-Bit Microcontroller 


Half sensor PIC17C42 


(72 pulses/rev) 


Low Pass 


Use 16 bit Compute A 
capture or Speed cil age Filter 2-4 
counter 32/16 divide Mer Order 


170 us 15 us 300 us 
Every 8 ms 


PWM or | | Compute 
To solenoid pulsed 1/0 sol SLIP 
actuator O/P ) 2nd order 


; | polynomial 


300 Us 
Inputs from 
other wheels 





PIC is a registered trademark of Microchip Technology Inc. in the U.S.A. 


PIC is a registered trademark of PIC Gesellschaft fiir wissenschaftliche, 
technische und kommerzielle Datenverarbeitung mbH in Germany. 








Copyright, reprinted with permission by TAS 
Publishing Ltd, from the May 1993 issue of 
8-9 Components in Electronics. 


© 1993 Microchip Technology Inc. 





Article Re-Prints For PIC16C5X Microcontrollers 





Components in Electronics, May 1993, Jerry Corbin 





In addition to the Keyless Entry systems SQTP would 
be useful in other automotive security and Vehicle 
Identification systems as well. For example, high-end 
auto theft deterrent systems will use SQTP to program 
certain critical information that would be useful to help 
find and identify a stolen vehicle. Other future 
application plans being discussed include an Automatic 
Vehicle Identification system that would allow an 
automobile to transmit its vehicle ID number 
automatically to roadside tool booths and security check 
points. In both applications the automobile would 
transmit information over a radio channel. 


IN-CIRCUIT 
PROGRAMMABILITY 


In some automotive applications it would be very useful 
if microcontrollers could be programmed with the 
software algorithm in the actual application circuit at 
the very last possible moment. The system designers of 
such an application would have maximum flexibility to 
make last minute changes to the software algorithm. 
Fortunately some new microcontrollers are moving in 
this direction. 


Typically these unique microcontroller devices use 
eeprom (Electrically Erasable Programmable Read Only 
Memory) for both the program and data memories. 
Eeprom memories do not require special programming 
voltages, they can be programmed in the actual 
application circuit. A good example of such a device is 
Microchip’s recently announced low cost 8-bit 
PIC16C84 microcontroller. It contains 1k words of 
eeprom program memory and 64 bytes of data memory. 
The program memory can be programmed serially 
whichalso contributes to the ease of in-circuit application 
programming. 


In-circuit programming of eeprom _ based 
microcontrollers offers several potential advantages for 
automotive applications: 


1) As mentioned already, last minute software code 
changes can be made painlessly in-circuit. 


2) Electronic modules can be upgraded by simply 
reprogramming the software algorithm. In many 
cases this would save the time and effort required 
to replace the entire electronic module or sub- 
system. 


3) Over time, equipment parameters may change and 
the new parameters may need to be stored. For 
example, in an active suspension system the shocks 


may begin to wear out. To compensate, new 
parameters may need to be saved, under software 
control to the eeprom to maintain proper ride and 
road handling characteristics. 


4) Inanautomobile local area network (lan) in-circuit 
programming could be useful in establishing 
addresses on the lan. Standard modules could 
placed as lan nodes throughout an automobile. 
Each node’s microcontroller could learn and 
permanently store its individual lan address in- 
circuit. 


ABS 


ABS designs have traditionally used 16-bit 
microprocessors or microcontrollers. However new 
high end 8-bit microcontrollers such as Microchip’s 
PIC17C42 now offers the high execution performance 
necessary while offering a considerable saving in system 
cost. Below is a block diagram of low an ABS brake 
system could be implemented with the PIC17C42. 


And ABS systems must be ultra reliable and thus so 
must the ABS microcontroller. New high-end devices 
go to considerable lengths to ensure ultra reliable 
execution of the software algorithm. In the case of the 
PIC17C42, for example, these steps include: 


1) A very reliable on-chip Watchdog Timer with its 
own independent on-chip RC timebase. The purpose 
ofthe Watchdog Timeris toreset the microcontroller 
should it detect improper execution of the software 
algorithm. The Watchdog Timer can not be disabled 
through software execution. 


2) Due toarather unique Harvard Architecture, there 
are separate busses for Program and Data flow. 
There is no chance that the PIC17C42 could 
somehow execute Data information as if it were 
part of the program. 


In summary a high end 8-bit microcontroller can now 
offer the performance necessary for most ABS 
applications at a considerable saving in system cost. 
Also the newer devices take great pains to ensure ultra 
reliable execution of the software algorithm. 


In this article we have explored several different 
automobile applications. We have pointed out how 
some new developments in microcontroller devices 
have helped make possible better automobiles with low 
design and manufacturing costs. 


Stale reprinted with permission by TAS 
Publishing Ltd, from the May 1993 issue of 
Components in Electronics. 


© 1993 Microchip Technology Inc. 


Article Re-Prints For PIC17CXX Microcontrollers 





PIC17C42 CODCY—A- AY KAI 





CE) 


FRX 


PICI7C427 ORY GUE. PICI7TCA2ZE RTS) ld. BAGWPTU T—YarvicBWSTAbY 
ND A-NYAB EVM: DY FOO RT CHERCML THE T. PICIPCA2ZM/I\—/N— FB. 
RISCS1 2 -P—#FFOF elOKY, t—-M- )D-FeMBRCIO-ACHEG. BPIVUS—Yary-/ 
—Klk. DOE—-2OU—M- DY KO- SEU TOPIC VICA2MDBUFHUZIDUTMNET. KL. PIB! 
POET Mid IGMH2OMS360 USUATHSASOC. MML—AFOUYTIWb- 2-7 AS 2 KHZ RAN 
CHOBCLSRLEF. E5ll. PICIMCIASNU DLSIWVAAMLTISOC. MIBODAhCSES 
WGIUAFLEMMCEET. 


PICI7C42l4. AD Fa AW- LY I—-FOI 4 — RNY DORREED 1 MHOOCH—H- TY bO—S 
DNPOBWEL TRART. MEOH —-R-VAFLOMBTE. PICIPMCAAT HED TERENSRDMAO 
PWMEHTY VW -E—A- ES TINADANELTHOET. COYVRF AT. BK IMHZOLY I-- 
A Da —-ENVSRBEMBCAET. DIUCRIKDIC. COMMY AF ASthld. PICITCA2. 
PLDOA' 1 BBAKOHTY VID EST -FYSCMMENET. 


PICE— 3H 





© 1992 Microchip Technology Inc. 


CDNKDBYAF MIS, TUYR, FPOVREKREYFORIY ar - IY FOS éuUt eb 
TET. PICI7TCA24 BD HEWNIAKCIOY LO—-SFBHCSSOC, COVAFMERF VINE 
—B-YAF AHL THATCH. RE. WL FOKDICS< OFIMABSNET : 


Vm 


LMDJ8201 
Oi 


Command 


Non-Servo 
vO 








8-14 





Article Re-Prints For PIC17CXX Microcontrollers 
PIC17C42CODCH—#F AY KOI 


© RE ORE) Omt 








© PEOOL 
© JB / ADB 
© H2K/ 1 AODRESSIRE 


DRva-—-F74-PRINY7 


LROYVAFLOMORIY ay - 24 —ENV lk, E-A-Y e D MCRU A NRSV I— 
FIZKDTHSUET. UMECAMOMAOBAS. COMEMBOTNT AC Ko THHtENET. 
SUMMIT KSIZ. BRIVI-VOBSS. 16REROPLOFIN1 A TMBSENET, PLOIt. Best 
WAR. ADOYE-PYPEADVh-FPOYO2ZDONVA- AbU—AICBMLET. Wo. DUCK 
FADS. CHSOEMIPICIPCAZORTICCETMR IOATICHESNET. 

PIC1I7C42lk. ABD IGEY LO21VCHSRICCETMRID 2DOBPAHBISOEIKIT. 
E—-AODBHOUMGRLAMLET. POR GVA -ATATCEI COMBA). SPANO 
MEICMASCIECKDTALVY KOHBEHBLET. SH VAMHCSE 16 yY MBSOT. IYI 
—AIHESD BBM YT VO ABBWO32, 67EKVBCKBUDPAY, A-NIO—(CEMAHAD DY 
BSSVKHA. HEAL. H—R- HVA WW SLD 1 MS CHAE, LY I-V OMB RES. 
27BIMH2TSUET 

2DDAVYYSMOEDOBREBINT. NVVEDNSVIPIIY ITD TAMBCSV EAS 
2 DMBORMICEY, CHA BDACMBLET. LEOMIS. 2NTH. DEV IGE Y FRET 
BALM ET. UPL, ABOMELVAADABSICISRALBSVEHA. LKMOT. HY 
Fi BI LCEIIGLY LOBDONEENNT LOVIhLOLP- LDYAZAICMRASCE ADT. N 
NT POUELRETHEES. 


E—-42ORE 

PICI7C42Icld. T<NEPWM (Pulse Width Modulation) FILYAFLOBRDHSVET. CHE 
MEATY FUD-NI-BEMBADULMBS., BRO AUNI-D/ADYN-REMREZET 
PIC17CA2MPWMY FY AF LORMBSEZS5NSTH. CHUd. 15.6KHZDHYAI-L—b TORY 
Bh. REI2OKHzTBOOHO 1 (9-1/2 b) ODMRICBHAL ET. CHICKU. BERS MA A 
MOBRORRULICRSEGNS, TCNCREMMDASART. CMS. RIND) 1TAEBHO 
BREVSEADALA-A-—bX—Y BV RRICMIC BL THEI. 

E—AK. PAMWANFa— F474 - TT OIVERMIT S KOICPWMOWARBICESLET. E-—H 
(IAM KREMYSSOT. (ELALOE—ASO 9 < URISL. PWMYDOFaA—F 4-H DI 
ABUTS kDICPWMOWNBICISSLET. KK. ACACOE—Alis, O.SMSLLLORMEHOY 
EBX 20.0MSELEORISEW TH 2 <URISLET. ISKHZDPWMBAIS. RPV MP-PYS 


© 1992 Microchip Technology Inc. 
8-12 


Article Re-Prints For PIC17CXX Microcontrollers 
PIC17C42 CODCY—A- AY KAI 


OWIANCBSLET. 

VERT VAT ACHAT. HF vy YODirectionA Him FlaPIC 17C42QPWMYY TF IC 
ENTE GT. HAY vy ACSOCHHBEEVMADD a THEFT. COMRTA. PWMESASOXOT 
2—-F4 - YHAOWHDLSE—AASLORIVEDDDY., O4DNSFa—F 4 -HHAIUONLE—VmRIvVE. 
BAKO 100AD TF 2A—F 4 -FLAIDEE+AVMRIVEDDD VET. 








PIDPILAYUAL 


PIDlt, MEB<BONTTONSY—R-E—-F- AY bO-WOPUVAVAATI. CONIAY FA—sHd 
NTOPTIUT—Y BCE CHSCISDSVECAD. BMLOU<K. EL. BBOSBCT. 
BQ2(l, MEOTIMAVPOP VAY ALOKBARLED. U (k) 4RYY ay -LS—-. LK. Y 
SHWATT o 


CER) Z-1 RMR. CYT - PT LOWMED 1 DHSCCARLET. 





2 FYVASNPDOHLHA 


KOPUVAU ADS. HHOMBECREREROLOIC. RENEDHABRCLTO<KSNTTWET : 
Y (kK) =Y (k-1) +COU (k) +CiU (k-1) +C2U (k-2) 

COG, LEDC EPSRICHDU ET : 

CO=P+I+D 

Ci=- (P+2D) 

C2=D 

C1, C26KOUCHE, A-NAY FATHSDEVUMEC TSR, GUA IW- a7 LOMVAAW— 
FYUACTHRENET. 





© 1992 Microchip Technology Inc. 





8-13 


Article Re-Prints For PIC17CXX Microcontrollers 
PIC17C42 CODCV—#F:- AY KOA—IL 


PICE— 2 ORI@ 











- 
meat eal i pe ae 





M3 VFYF-JAYE- Fy TREE tO. HRC Lo THR EnM*APD 


SIC, COBDTBROLS VICMETENCPDEMRLE Fe PICIMCAACL MBS Y-1 D VHUES7 1 
TINOHC. COBR. PlIODRTASMSO.36MSITSU ET. 

BDBOIT YE PvTdd. VDRFLOPTKESGLI—-DREVSBE. KAS. KEGATY 
7 -VARYAPRSGENKC EI KD TPIDIY FO—SITHOTREOSRBCT. BIBS. HEA 
COW RUL TE. CNDLS—-ORBORMALMV EDT. COM. MAME. H—R-VAF AP 
BROTAT 4 R-Y SVICELBARREBRCIL “PYDTY RE’ LED. COMM. HD 
FOL BE ICMAABOMEZ IOS CECMIFSNET. CCICRIPIDOBHITIK, BICY (k—1) # 
RADY 1 AIVCPWM A VCP COWAESNS ES CMNSE CSCLICKIDT. MIO “PY F- 
DIVE PYT” ZITEABCUDANDSVRT. 


Y-K- LAFLORR 


ERODI— FAT. PICITC4I2Z2 Ha TY —R-VAFLEGBICMRCSED. COFOYS LOWE 
SSPE CT. FSS, MBUMST—-LA-W—-FURG—-R- IY bLO-WOHREMDBL., 
ko. DaPTFD9OY F-TeBo Tl IV AIA. YUP Ear YaVBKOT 
NTORSMAE (SSDS. USVb-ALVF., DAVFEYVSA-AIVSLS) BATSOET. Ise P 
BDIIY FW -WNERPF VY 5 —-Y ay: /—bhORBSOC. CO CSRBLEA: 

HVUIAGBG—-EA-W—-FYOMESMRTS. $—-R- DY FO—-WAFSSROSs. FNT—-EBEO 
BSPCORESNKLY—bFTLYI—-SFeRHAAG. PlOMMLHMBL., KO. PWMOWNA RET 
BCODPSCT. CNeEAPSAIREBRSHMS. HUVIASY—-CR--FYE. PICAVCA2D/\— 
FOLPODR1TYODSEOD 1 DIL KD TRMECVS CET. Y—-ROMAYDRMICPWMY FY AF LE 
ARAL TERICAS DNS ESIC. PWM2WAZTMRICTMR2DADEVIC (TMRIZABTIOY 
DREAD 5S BEV FMATYV-E— EC, Ri. TMRZESB CO OV ORNS bnS BEV 
DAIDILS-E— EFC) BMULRT. PREVYAAICNEY FHO—EVSE. HUAI: L— bSNTS 





© 1992 Microchip Technology Inc. 
8-14 


Article Re-Prints For PIC17CXX Microcontrollers 
PIC17C42 CODCY—A#:- Ay KA—IL 


DICPWML—HICSURT, 
DKRld. BURMA —-EZ -U—- FY OP CHSDIVEIIUSSU KAA : 
> 2-7 (RICCETMRI) OMidtiAd 








: BRUTE OSH 

-LD—-OHR U (kk) =SRii—-ALY Ons 

-PIDEROKY k) Ot 

* PWM ORE 

HONDAS —-EYVS - SRIDSEB (SSNS. YU PIUMFOME 


REZHACSCOCSRUBLHAITSAS. CUT STAC, MIC. HY TI AT LOR 
YONOY ACR RSs RROSMUMI MART. HK. MSHA TSRAlS. CY TW-AT 
ATCC, BHEVSMAORBCBINTSRUBLHALET. 

G—R-VAFLOBMMS. EROKDCIPRCMACT 


REEVYAFL 

PIC17C42# oT. FEV REL —YaEVOU—M- YRFLEBMLELK. TOVAF AIS. 
BIGRS-2321VRII—R, AMOAT YF VIBR. HT vyIDE—A-ESTI. A—IN- ALY 
b-FOFSYaY, VRYK-ATYVFANBAKUFIRW/OPBVEG. VAF LEK. 5 X35 
AYFOPFVY FORBRECMEDTOET. COYAFAILKDT. YR PIU SY aC 
SPICI7CAZA MG CEET. | 

FEYA RLY —YaVOU-R-YAFLICBIS ITN TOREROPICIPCA2ZDEMIE,. FObATS 
MHERICV/ODRIRTEART. KHG<, SRICYUOPICIPCAZOY—M-FEYAbL—Yav- 
YARFLEBRBENET « 





Boeoon 


© 1992 Microchip Technology Inc. 


Article Re-Prints For PIC17CXX Microcontrollers 


NOTES: 


© 1992 Microchip Technology Inc. 
8-16 


Article Re-Prints For PIC Microcontrollers 





Electronic Times, May 27, 1993 





TAKE YOUR PIC WITH 
CONTROLLERS 


Microchip’s PICSTART-16B microcontroller 
development tool provides evaluation and development 
support for the company’s 8 bit PIC microcontroller 
family. 

It supports the range of low-end PIC16C5X 
microcontrollers as well as the mid-range PIC16C71 
which includes adc and the forthcoming PIC16C84 
complete with eeprom. 
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The PICSTART-16B package includes Microchip’s 
MPALC Assembler, a pc based symbolic cross- 
assembler; the MPSIM Simulator, a discrete event 
simulator; and a 3 x 5 in development programmer 
board. Also included is a copy of Microchip’s embedded 
controller handbook. PICSTART-16B’s programmer 
board connects to a pe and accepts 18 and 28 lead otp 
pdip PIC16CXX devices. The kit includes software to 
read and program all PIC16CXX microcontroller 
products. 


PIC is a registered trademark of Microchip Technology Inc. in the U.S.A. 


PIC is a registered trademark of PIC Gesellschaft fiir wissenschaftliche, 
technische und kommerzielle Datenverarbeitung mbH in Germany. 
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Microchip Tech rewrites the 
E?PROM 


Chandler, Ariz._Seeing a fundamental shift in the way 
serial E7PROMs are used, Microchip Technology Inc. is 
altering the design of these previously jelly-bean parts, 
moving them into the high-density, smart-memory arena. 


The changes mark anew product direction for Microchip 
and might also signal a new course for serial E7PROMs 
in general, along with a possible reconsideration of the 
role technology will play in systems design. 


“Traditionally, small serial E-squareds have been used 
as areplacement for DIP switches,” observed Microchip 
senior product marketing engineer Peter Sorrells. “But 
that is changing.” 


In many designs, the electrically erasable but non- 
volatile parts just store a few installation parameters or 
pieces of calibration data in a 1- or 2-kbit chip. The 
parts’ serial interface is valued because it requires little 
board space and only a few pins on a microcontroller. 
The data in E7PROM is rarely changed; moreover, such 
chips are never required to store large amounts of 
information. Consequently, customers have seen tiny 
packages and spare-change prices as the greatest virtue 
of the devices. 


But Microchip claims a new generation of systems— 
from cellular phones to data-acquisition systems to 
keyless entry systems—values the non-volatility and 
compactness of the devices, but is much more 
demanding. 


“In the cellular telephone market, for instance, we have 
talked to people who are using 64-kbit parallel E7PROMs 
now and are moving to serial,” Sorrells said. ““They are 
storing hundreds of phone numbers, big configuration 
tables and code to support several different cellular 
protocols, so they need alot of memory. But they don’t 
need parallel speed—a fast serial I/O scheme is sufficient. 


SMART GENERATION 


Microchip is responding to these needs with the first of 
what promises to be a new generation of smart, but not 
application-specific, memory parts. While retaining 
the familiar PC serial interface, the chips differ from 
conventional 1- or 2-kbit serial E-squareds in almost 
every other regard. 


The most obvious change is size. Microchip’s 24C65 is 
the world’s first 64-bit serial E-PROM-—four times the 
capacity of the largest previously announced part. This 
gives the user enough space not only for the DIP- switch 
settings, but also for storage of larger data structures and 
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even code segments that traditionally would have ended 
up in a parallel EPROM or masked ROM. Systems 
designers have found—particularly in space-constrained 
handheld systems-—that the ability to save a package by 
making the tiny serial E-PROM do double duty can 
more than offset the part’s higher cost-per-bit. 


But this means the chip will require both density and 
considerably greater endurance that has been typical of 
small E7PROMs. Microchip has addressed this issue by 
splitting the memory array into two sections. 


One 4-kbit block of the memory uses Microchip’s fully 
redundant cell design to give very high endurance— 
typically 1 million erase/write cycles. The remaining 
60 kbits use a higher density cell rated for at least 10,000 
cycles. By steering information of the memory array, 
customers can maintain both highly volatile data and 
non-volatile code or data tables in the same device. 


To act as a multipurpose memory, the chip will need 
high bus bandwidth as well as high capacity and 
endurance. Consequently, Microchip has augmented 
the PC bus to run at a minimum of 400 kHz. Sorrells 
claimed the interface had run considerably faster in the 
lab, but that 400 kHz would be the initial spec. The 
address format has been expanded to permit up to a512- 
kbyte address range, allowing multiple chips to inhabit 
the buds in a single address bank. 


In addition, the chip has been furnished with a 64-byte 
input write cache to keep the bus free during the rather 
long self-timed write operations. This permits a 
microcontroller to burst anything from an individual 
byte to several pages of data over the bus, and then go 
on with its business, addressing other chips. 


In an unusual feature specifically for the instrumentation 
market, the write cache can be configured as a capture 
buffer. In this mode, the cache shifts incoming data 
until a signal tells to freeze and perform a write operation. 


In keeping with the industry’s power fetish, the new 
architecture also has integral power management. Since 
the memory array is inherently non-volatile, Microchip 
has developed circuitry to completely power the array 
down between operations. On completion of a write or 
read operation, the chip goes to standby, a state in which 
the current is under 5 microamps. Power-up is fast 
enough to be transparent to the bus. 


Finally, the chip is protected against incidental erasure 
or write operations during power hits, according to 
Microchips’s memory director Mitch Little. 


With the architectural and circuit changes Microchip 
has made, Little seems confident that the part can take 
on and expanded role in systems designs. 
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SERIAL EEPROM FOR 
EMBEDDED 
APPLICATIONS 


The optimum non-volatile memory technology for a 
system that requires small board area, byte level 
flexibility, low power demand and favourable costing? 
Consider serial EEPROMs, says Richard Fisher 


Serial EEPROM technology has recently emerged as a 
leading non-memory solution for embedded control 
applications. The technology offers anumber of benefits, 
which make it well-suited for a wide variety of 
applications. 


For example, the small footprint, the ability to operate 
at low voltages and the lower power dissipation of serial 
EEPROM devices compared to parallel types makes 
them a good solution in portable systems such as cellular 
telephones, cameras and keyless entry systems; byte- 
level erase, write and read is of particular use in TV 
tuners; and the availability of multiple non-volatile 
functions in the same application offers many advantages 
in VCRs. 


SIMPLIFIED DESIGN 


A serial EEPROM requires only 10 percent of the board 
space required by a parallel device, significantly fewer 
1/0 lines from the microcontroller, and draws much less 
current (see Fig. 1). The only significant limitation of 


TABLE 1 


Mi 16K Parallel EE 
BH 16K Serial EE 


Board Space MCU & NVM 
(sq. in.) Cost 


/Os Req IDD (mA) 





Figure 1- 
16k serial, vs 16k parallel memory across a number of 
parameters 


a serial EEPROM is a lower read speed but, in many 
applications, this parameter is restricted more by the 
protocol than the hardware. For example, in two-wire 
P’C (Inter-Integrated Circuit) systems, large internal 
delays are needed to slow the part to meet the 100 kHz 
protocol requirements. Characterization of three-wire 
bus serial EEPROM has indicated that clock frequencies 
of over 6 MHz can be supported. 


PROTOCOL OPTIONS 


Once a designer has decided to use a serial EEPROM 
solution, the next key step is to choose either a two- or 
three-wire protocol. Often, this decision is taken for 
reasons of familiarity, rather than based ona full appraisal 
of benefits. 


Level triggered clocks and signals and inputs glitch 
PC standard 100kHz and 400kHz protocols with a 1MHz 
option 


Page WRITE capability to 16 bytes 
Software and hardware compatible from 2k to 16k densities 


© 1993 Microchip Technology Inc. Reprinted with permission by Morgan Grampian 
(Technical Press) Limited, from the January 
8-19 1993 issue of Electronic Product Design. 


3-Wire Bus Serial EEPROMs 

Single VDD supply of <2V to 5.5V 

Very low current consumption 

Reduced overall component cost 

Four pins (other than Vcc & GND are required for operation 
X16 bit and X8 bit data widths 

Software WRITE Protection 


Edge triggered clocks and signals 
filters for high noise immunity 


2MHz-+ operation 


Ready/Busy data polling 
Security options available 


Less complex protocol 
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FIGURE 3A-2-wire bus example; a) byte write cycle timing 


SCL 


21 @2 93 24 @5 @6 27 28 #9 210911912013 014 915916 017 218 919 B20 B21 B22 923 B24 B25 B26 G27 B28 B29 B30 231 


soa JLT LI LAX X\ 2 XXXXXKXXA DOXX KKM KA J 


1 0 1 0 A10 A9 A8 0 ACK A7 A6 AS A4 AB A2 Al AO ACK D7 D6 D5 D4 D3 D2 D1 DO ACK 


Slave Block 
Address Select 


Start Bit 


A two-wire product is usually used in applications that 
require an I2C bus, noise immunity, or a write buffer for 
multiple bytes to be stored in one instruction, and where 
there is limited microcontroller I/O pin availability. A 
three-wire protocol is the preferred solution in 
applications that have limited protocol requirements, an 
SPI protocol, higher clock frequency requirements, ora 
x16 data width. (See Table 1). 


Many serial EEPROM data sheets are written in a 
conventional memory data sheet format that emphasises 
the features of the part more than the basic operating 
principles. Serial EEPROMs are not conventional 
memories, due to the serial communications protocols 
involved. 


Three-wire bus operation Microchip’s devices for three- 
wire bus operation are contained in the 93X XX family, 
ranging in density from 256bits to 4kbits. These devices 
require four pins in addition to Vcc and Gnd: CS {chip 
select), CLK (clock), DI (data in) and DO (data out). 
All 93XXX parts are hardware compatible for these 
four pins, although there may be compatibility issues for 
other pins. Software compatibility is a key issue, since 
there may be subtle differences in each manufacture’s 
protocol. Software compatibility for density migration 


FIGURE 3B-—2-wire bus example; b) read cycle timing 


SCL 


Word Address 





Stop: 
Data to be Written 


Execute the 
Instruction 


should also be reviewed by designers on a case-by-case 
basis. There is no software industry compatibility from 
a 256bit to 4kbit part. 


Data can be organised as either x8 or x16. This 
selection is determined either by the ORG pin or by 
purchasing a standard x16 organisation. Units always 
power-up inan EWDS (Erase/Write Disable State). All 
Erase and Write functions are disabled until the EWEN 
(Erase/Write Enable) instruction is performed. This 
feature prevents accidental data corruption. An Auto- 
Erase cycle is performed during each Write cycle. 


Each instruction set requires the following: a start bit, 
whichis the first Data-in high signal clocked in after CS 
is high; two bits of opcode to identify the instruction; a 
number of address bits depending on device type; and 
data. All members of the 93XXX family have separate 
Data-in and Data-out pins. However, these pins may be 
tied together for true three-wire operation. 


TWO-WIRE BUS OPERATION 


The 24XXX and 85XXX families of devices operate in 
two-wire bus systems. Only the SCL (serial clock) and 
SDA (serial data) pins are essential for bus operation. 


@1 62 23 24 @5 26 27 88 09 910901191201301490159016917018919920921 92292302492592692792860299309031 9328330349359369037938939 


soa JU LE LOA 2OOCOOOXA TU LI LADO OO COOOON  ~ 


1 0 1 0 A10 AQ A8 0 ACK A7 AG AS A4 AS A2 Al AO 


Slave Block Word Address 


Address ~ Select 


Start Bit Write 


ACK1 0 1 O A110 A9 A8 1 ACK D7 D6 D5 D4 D3 D2 Di DO 


Stop Bit: 
Slave Block 


Address Select Data from the serial device 


Start Bit Read 


Reprinted with permission by Morgan Grampian 
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The other pins on the devices, WP (active high Write 
protection) and AO/A1/A2 (chip or clock select), are 
supplementary. Data is organised as x8, and signals are 
level triggered, not edge triggered. Also, filters on the 
inputs will filter noise glitches less than 100nsec wide. 
As with the three-wire devices, an Auto-Erase cycle is 
performed during each Write cycle. 


PC BUS 


One of the most popular two-wire protocols is PC, 
which uses master/slave bi-directional communication. 
A device that sends data onto the bus is defined as a 
transmitter and a device that is receiving data is the 
receiver. Both the master and the slave can act as either 
transmitter or receiver. The bus must be controlled by 
a master device (usually a microcontroller) which 
generates the serial clock, controls the bus direction and 
generates the Start and Stop conditions. 


The serial EEPROM is the slave. It will be the bus 
transmitter during Read operations and at times when it 
must acknowledge data transmitted by the master. 


Bus activity is controlled by Start and Stop bits from the 
master. After a Start bit, each command must begin 
with an 8bit control byte. This byte must identify the 
serial EEPROM as the slave addressed on the bus; select 
the specific serial EEPROM or the internal memory 
block on the bus (there may be up to eight serial 
EEPROMSs on the bus); and to select the Read or Write 
function for the next command transmitted by the 
master. With this selection scheme, devices from 2kbit 
to 16kbit are software compatible. For example, four 
2kbit devices or one 8kbit device could be connected to 
the bus with the same software. 


CONCLUSION 


As the architecture of serial EEPROMs has evolved, 
and density has increased, these devices have become a 
realistic alternative in many applications that were 
previously restricted to using parallel non-volatile 
memory . Once the advantages and disadvantages of the 
two protocols reviewed above are understood by the 
designer, the serial EEPROM has much to offer. 
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A TOOL FOR 
CALCULATING 
EEPROM ENDURANCE 


Despite the widespread use of serial EEPROMs, 
EEPROM endurance is still not very well defined or 
understood concept in the industry. We are all used to 
blanket claims such as ‘1 million erase/write cycles 
typical’, but such figures are not terribly useful - e2 
endurance is dependent not only on the design of the 
device but also on the application environment in which 
it sits. Voltage, number of writes per day and the 
number of bytes written all have an effect. 


Up until now there has been no tool available for 
predicting the endurance of particular EEPROM device 
within a set of application parameters. Trade offanalysis 
can be painfully time consuming and only marginally 
accurate without specific knowledge of the behaviour 
of the device under different conditions of use. 


To address this problem Microchip has announced the 
Total Endurance Disk - a software emulator of the serial 
EEPROM hardware environment that allows the 
designer to place specific serial EEPROM devices into 
a theoretical application during the design and trade off 
stages of system development. 


The Microchip Total Endurance disk allows you to 
trade off voltage, temperature, write cycles, number of 
bytes written, number of writes per day, ppm and FIT 
rates, as well as years of use in order to optimise the 
system accurately predict product lifetimes and 
reliability. 


APPLICATION EXAMPLE 


Here is an example using the Endurance Disk to help 
design an electronic phone book/auto dialer. 


The auto-dialer may have new numbers added or changed 
several times per day, but how can manufacturers specify 
the life of the unit, and at what rate of update of the 
phone numbers? First the designer must make some 
assumptions. If we assume that the average user will 
change or add 50 phone numbers per day, and the 
manufacture is willing to live with a 0.1 percent failure 
rate (1,000 ppm) after 10 years of use, then we have 
almost enough information to verify whether we are in 
the ball park given the physics of the EEPROM device 
which will store the numbers. 


© 1993 Microchip Technology Inc. 


We need to know the operating voltage and temperature 
of the applications; we will say that a 3.3V lithium 
button battery is powering the unit and the temperature 
range 1s limited to that for which the Icd display will 
function: O to 70degC. End of life voltage for the 
battery is approximately 2.0V; assuming that asic or 
microcontroller in the applications will operate down to 
2.5V, the EPROM also has 2.5V requirement. The 
designer would like to be able to store 100 phone 
numbers of 16 bytes each, which results in a 1.6kbyte 
requirement for the serial EEPROM. Because 1.6kbytes 
is equal to 12.8kbits, a 16kbit 2-wire serial EEPROM 
will more than suffice. Specifically, Microchip’s 
24LC16B will operate down to 2.5V and even includes 
a write-protect feature which can be used to block 
inadvertent writes in a noisy environment. 


Here is a summary of the application: 


Device 24LC16B 

Voltage 2.5V -3.3V 

Temperature 0 to 70degC 
(SSdegC typ) 

Cycles per day 50 

Bytes per cycle 16 

Application life 10 years 


Once these values are entered into the Total Endurance 
program, it outputs the following: 


Device Data Input Parameter 


Device 24LC16B 
Voltage 3.3V 
Temperature 55 
Bytes/Cycles per day 16 

E/W 50 
Application life (Years) 10 years 
Cycling Mode byte 
Pulse Widths (Ms) N/A 
Data Pattern Random 


Device Data Input Parameter 


FIT 21.0 
PPM 1,842 
Time 10.00 
Write Cycles 182,500 


Unfortunately for our designer, the desired 0.1 percent 
failure rate has almost doubled to 0.18 percent 
(1842ppm). But fortunately for the designer, the 
Endurance disk makes tradeoff analysis very simple 
and fast. At this point there are at least three options: 1) 
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live with almost 2000ppm 2) look at the endurance plot 
and check whether there is a reasonable number of 
erase/write cycles which will provide a 1000ppm failure 
rate or 3) specify a ppm rate to the Endurance program 
and let it crank out the number of cycles it will take. 


You can see by reducing the number of cycles from the 
182500 which resulted from our first trial to about 
100,000, we can achieve a ppm rate of about 1000 (0.1 
percent). But how does 100,000 cycles translate into 
applications life or cycles per day? 


Given a 1000ppm failure rate, you can ask for the 
application life of the product. Here are the results: 


Device Data Input Parameter 


Device 24LC16B 
Voltage 3.3V 
Temperature op. 
Bytes/Cycles per day 16 

E/W 50 

PPM Level (Years) 1000 
Cycling Mode byte 
Pulse Widths (Ms) N/A 
Data Pattern Random 


Device Data Input Parameter 


PPM 1000 
Time 5.97 
Write Cycles 109,000 


Now we have some more options: 1) specify the 
product life at five years or 2) trade off other parameters 
of the application or 3) device which is more important 
-a 10 years product lifetimes or the ability to change 50 
numbers every single day. Realistically a user may 
enter or change quite a few numbers the first week or 
two of the application, and after that the unit will be used 
mostly for reading and dialing numbers. 


Changing the number of erase/write cycles to 20 a day 
gives us the following results: 


Device Data Input Parameter 


Device 24LC16B 
Voltage 3.3V 
Temperature 55 
Bytes/Cycles per day 16 

E/W 20 

PPM Level (Years) 1000 
Cycling Mode byte 
Pulse Widths (Ms) N/A 
Data Pattern Random 


Device Data Input Parameter 


PPM 1000 
Time 14.93 


Write Cycles 109,000 


So reducing the number of cycles per day not only 
brought us back to a 10 year life, it gave some margin on 
that too. Keeping all the other parameters the same and 
forcing a 10 year lifetime gives us the following final 
results: 


Device Data Input Parameter 


FIT 7.1 
PPM 625 
Time 10.00 
Write Cycles 73,000 


The new ppm rate of 625 gives our designer more than 
30 percent margin on his ppm target of 1000. 


This example shows the significant reduction in time 
for design tradeoff analysis and time to market which 
can be achieved with the Endurance Disk. In addition, 
it demonstrates the increase in robustness of the system 
design by proving known quantities and readily 
accessible handles to modify these quantities in the 
tradeoff analysis. This tool can literally reduce weeks 
of effort into a few minutes of point and clock. 


The Total Endurance disk runs under Windows and 
costs $29. Users can copy plots and past them into other 
windows programs or print them. Microchip plans to 
update the disk twice a year, adding data for new serial 
EEPROMsSs as they are introduced. 


Bee with permission by TAS — 
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ASIA 


Hong Kong 


Memec (Asia Pacific) Ltd. 
Unit No. 2520-2525 

Tower 1, Metroplaza 

Hing Fong Road, Kwai Fong 
N.T., Hong Kong 

Tel: 852 410 2760 

Fax: 852 418 1600 


Korea 


Memec (Asia Pacific) Ltd. 
JE Woong Bldg. Third Floor 
176-11 Nonhyum-Dong 
Kangnam-ku 

Seoul, Korea 

Tel: 82 2 518 8181 

Fax: 82 2 518 9419 


Singapore 


Memec (Asia Pacific) Ltd. 
Singapore Representative Office 
10 Anson Road #14-02 
International Plaza 

Singapore 0207 

Tel: 65 222 4962 

Fax: 65 222 4939 


Taiwan 


Memec (Asia Pacific) Ltd. 
14F-1, No. 171, Sec. 5, 
Min Sheng East Road 
Hai Hwa Bldg. 

Taipei, Taiwan 

Tel: 886 2 7602028 

Fax: 886 2 7651488 


CANADA 
Alberta 


Enerlec Sales, Ltd. 

37 Evergreen Terrace 
Calgary, Alb. T2Y 2V9 
Tel: 403 256 3627 
Fax: 403 254 9121 


British Columbia 


Enerlec Sales, Ltd. 

3671 Viking Way #7 
Richmond, B.C. V6V 1W1 
Tel: 604 273 0882 

Fax: 604 273 0884 


Ontario 


Dynasty Components, Inc. 
1140 Morrison Drive - Unit 110 
Ottawa, Ontario K2H 859 

Tel: 613 596 9800 

Fax: 613 596 9886 


Dynasty Components, Inc. 
357 Hillsdale Avenue, E. 
Toronto, Ontario M4S 1T9 
Tel: 416 587 2278 

Fax: 416 489 3527 


Quebec 


Dynasty Components, Inc. 

1870 Blvd. des Sources, # 304 
Pointe Claire, P.Q. H9OR5N4 _ 
Tel: 514 984 5342 

Fax: 514 694 6826 


EUROPE 


lreland 


Eltech Agencies Ltd. 
27 Maccurtain Street 
Cork 

Tel: 353 21 509366 
Fax: 353 21 509344 


SOUTH AMERICA 


Brazil 





Aplicacoes Eletronicas Artimar Ltda. 
Rua Marques De Itu, 70-10 And. 
Caixa Postal 5881 e 9498 

CEP 01223 - Sao Paulo, Brazil 
Tel: 231 0277 

Fax: 255 0511 


USA 


Alabama 


Electramark, Inc. 

500 Wynn Drive, Suite 521 
Huntsville, AL 35816 

Tel: 205 830 4400 

Fax: 205 830 4406 


Arizona 


Western High Tech Marketing, Inc. 
9414 E. San Salvador, Suite 206 
Scottsdale, AZ 85258 

Tel: 602 860 2702 

Fax: 602 860 2712 


Arkansas 


Comptech Sales, Inc. 

9810 E. 42nd Street, Suite 219 
Tulsa, OK 74146 

Tel: 918 622 7744 

Fax: 918 660 0340 


California 


Trinity Technologies 
1261 Oakmead Parkway 
Sunnyvale, CA 94086 
Tel: 408 733 9000 

Fax: 408 733 9970 


Competitive Technology, Inc. 
200 Baha Street, Suite 101 
Costa Mesa, CA 92626 

Tel: 714 540 5501 

Fax: 714 540 5171 


Eagle Technical Sales 
1900 Sunset Drive, Suite A 
Escondido, CA 92025 

Tel: 619 743 6550 

Fax: 619 743 6585 


Colorado 


Western Region Marketing, Inc. 
9176 Marshall Place 
Westminster, CO 80030 

Tel: 303 428 8088 

Fax: 303 426 8585 


Connecticut 


S. J. Associates Inc. 

10 Copper Ridge Circle 
Guilford, CT 06437 
Tel: 203 458 7558 
Fax: 203 458 1181 


S.J. Associates Inc. 
15 Coventry Lane | 
Naugatuck, CT 06770 
Tel: 203 723 4707 
Fax: 203 723 1629 


Delaware 


S-J Mid-Atlantic, Inc. 
131-D Gaither Drive 
Mt. Laurel, NJ 08054 
Tel: 609 866 1234 
Fax: 609 866 8627 
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Florida 


Electramark Florida, Inc. 
14021-B North Dale Mabry 
Tampa, FL 33618 

Tel: 813 962 1882 

Fax: 813 961 0664 


Electramark Florida, Inc. 

401 Whooping Loop, Suite 1565 
Altamonte Springs, FL 32701 
Tel: 407 830 0844 

Fax: 407 830 0847 


Electramark Florida, Inc. 
10360 NW 18 Manor 
Plantation, FL 33322 
Tel: 305 424 2872 

Fax: 305 452 1974 


Georgia 


Electramark, Inc. 
6030H Unity Drive 
Norcross, GA 30071 
Tel: 404 446 7915 
Fax: 404 263 6389 


Illinois 


Janus Incorporated 
650 E. Devon Ave. 
Itasca, IL 60143 

Tel: 708 250 9650 
Fax: 708 250 8761 


Indiana 


Electro Reps, Inc. 

407 Airport North Office Park 
Fort Wayne, IN 46825 

Tel: 219 489 8205 

Fax: 219 489 8408 


Electro Reps, Inc. 

7240 Shadeland Station #275 
Indianapolis, IN 46256 

Tel: 317 842 7202 

Fax: 317 841 0230 


lowa 


Spectrum Sales 

1364 Elmhurst Dr. NE 
Cedar Rapids, IA 52402 
Tel: 319 366 0576 

Fax: 319 366 0635 


Factory Representatives 


‘Kansas 


Spectrum Sales 

5382 W. 95th Street 
Prairie Village, KS 66207 
Tel: 913 648 6811 

Fax: 913 648 6823 


Kentucky 


Electro Reps, Inc. — 

7240 Shadeland Station #275 
Indianapolis, IN 46256 

Tel: 317 842 7202 

Fax: 317 841 0230 


TMC Electronics 
7838 Laurel Avenue 
Cincinnati, OH 45243 
Tel: 513 271 3860 
Fax: 513 271 6321 


Louisiana 


CompTech Sales, Inc. 
15415 Katy Fwy., Suite 209 
Houston, TX 77094 

Tel: 713 492 0005 

Fax: 713 492 6116 


CompTech Sales, Inc. 

2401 Gateway Dr., Suite 114 
Irving, TX 75063 

Tel: 214 751 1181 

Fax: 214 550 8113 


Maryland 


Microchip Technology Inc. 
Hauppauge, New York 
Tel: 516 273 5305 

Fax: 516 273 5335 


Massachusetts 


S. J. Associates Inc. 
44 Mall Road 
Burlington, MA 01803 
Tel: 617 272 5552 
Fax: 617 272 5515 


Michigan 

J.L.Montgomery Associates, Inc. 
34405 W. 12 Mile Rd., Suite 149 
Farmington Hills, Ml 48331-5617 
Tel: 313 489 0099 

Fax: 313 489 0189 


Minnesota 


Comprehensive Technical Sales, Inc. 
6525 City West Parkway 

Eden Prairie, MN 55344 

Tel: 612 941 7181 

Fax: 612 941 4322 


Electramark, Inc. 

4910 Corporate Dr., Suite J 
Huntsville, AL 35805 

Tel: 205 830 4400 

Fax: 205 830 4406 


Missouri 


Spectrum Sales 

100 St. Francois Street, Suite 114 
Florissant, MO 63031 

Tel: 314 921 1313 

Fax: 314 921 0701 


Spectrum Sales 

5382 W. 95th Street 
Prairie Village, KS 66207 
Tel: 913 648 6811 

Fax: 913 648 6823 


Nebraska 


Spectrum Sales 

5382 W. 95th Street 
Prairie Village, KS 66207 
Tel: 913 648 6811 

Fax: 913 648 6823 


Nevada 


Western High Tech Marketing, Inc. 
(Clark County Only) | 
9414 E San Salvador, Suite 206 
Scottsdale, AZ 85258 

Tel: 602 8602702 _ 

Fax: 602 860 2712 


New Jersey 


Parallax 

734 Walt Whitman Rd. 
Melville, NY 11747 
Tel: 516 351 1000 
Fax: 516 351 1606 


S-J Mid-Atlantic, Inc. 
131-D Gaither Drive 
Mt. Laurel, NJ 08054 | 
Tel: 609 866 1234 
Fax: 609 866 8627 
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New Mexico 


Western High Tech Marketing, Inc. 
9414 E San Salvador, Suite 206 
Scottsdale, AZ 85258 

Tel: 505 884 2256 

Fax: 505 884 2258 


New York 


Apex Associates, Inc. 
1210 Jefferson Rd. 
Rochester, NY 14623 
Tel: 716 272 7040 
Fax: 716 272 7756 


Parallax 

734 Walt Whitman Road 
Melville, NY 11747 

Tel: 516 351 1000 

Fax: 516 351 1606 


North Carolina 


Zucker Associates 
4070 Barrett Drive 
Raleigh, NC 27609 
Tel: 919 782 8433 
Fax: 919 782 8476 


North Dakota 


Comp. Technical Sales, Inc. 
6525 City West Parkway 
Eden Prairie, MN 55344 
Tel: 612 941 7181 

Fax: 612 941 4322 


Ohio 


TMC Electronics 
7838 Laurel Avenue 
Cincinnati, OH 45243 
Tel: 513 271 3860 
Fax: 513 271 6321 


TMC Electronics 

7017 Pearl Rd. 

Middleburg Heights, OH 44130 
Tel: 216 885 5544 

Fax: 216 885 5011 


Oklaoma 


Comptech Sales, Inc. 
18700 Woodbriar Lane 
Catoosa, OK 74015 
Tel: 918 622 7744 
Fax: 918 660 0340 


Oregon 


Micro Sales . 
1865 NW 169th Place, Suite 21 
Beaverton, OR 97006 

Tel: 503 645 2841 

Fax: 503 645 3754 


Pennsylvania 


S-J Mid-Atlantic, Inc. 
131-D Gaither Drive 
Mt. Laurel, NU 08054 
Tel: 609 866 1234 
Fax: 609 866 8627 


TMC Electronics 
(Western Pennsylvania) 
7838 Laurel Avenue 
Cincinnati, OH 45243 
Tel: 513 271 3860 
Fax: 513 271 6321 


Rhode Island 


Microchip Technology Inc. 
Five The Mountain Road 
Suite 120 

Framingham, MA 01701 
Tel: 508 820 3334 

Fax: 508 820 4326 


South Carolina 


Zucker Associates 
4070 Barrett Drive 
Raleigh, NC 27609 
Tel: 919 782 8433 
Fax: 919 782 8476 


South Dakota 


Comp. Technical Sales, Inc. 
6525 City West Parkway 
Eden Prairie, MN 55344 
Tel: 612 941 7181 

Fax: 612 941 4322 


Tennessee 


Electramark, Inc. 

(Western Tennessee) 

4910 Corporate Dr., Suite J 
Huntsville, AL 35805 

Tel: 205 830 4400 

Fax: 205 830 4406 


Zucker Associates 
(Eastern Tennessee) 
4070 Barrett Drive 
Raleigh, NC 27609 
Tel: 919 782 8433 
Fax: 919 782 8476 


Texas 


CompTech Sales, Inc. 

11130 Jollyville Rd., Suite 200 
Austin, TX 78759 

Tel: 512 343 0300 

Fax: 512 345 2530 


CompTech Sales, Inc. 
1721 Villa Santos 

El Paso, TX 79935 
Tel: 915 590-4590 
Fax: 915 590-4577 


CompTech Sales, Inc. 
15415 Katy Fwy., Suite 209 
Houston, TX 77094 

Tel: 713 492 0005 

Fax: 713 492 6116 


CompTech Sales, Inc. 

2401 Gateway Dr., Suite 114 
Irving, TX 75063 

Tel: 214 751 1181 

Fax: 214 550 8113 


CompTech Sales, Inc. 

85 NE Loop 410, Suite 202 
San Antonio, TX 78216 
Tel: 210 525 9913 

Fax: 210 979 0311 


CompTech Sales, Inc. 
505 E. Jackson, Suite 300 
Harlingen, TX 78550 
Tel: 512 421 4501 

Fax: 512 421 3265 
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Utah Washington 

Western Region Marketing, Inc. Micro Sales 

3539 S Main - Suite 210 2122-112th Avenue, NE 
Salt Lake City, UT 84115 Bellevue, WA 98004-1493 
Tel: 801 268 9768 Tel: 206 451 0568 
Fax: 801 268 9796 Fax: 206 453 0092 
Virginia : West Virginia 

Delta II Associates Inc. TMC Electronics 

12605 Wilde Lake Court 7838 Laurel Avenue 
Richmond, VA 23233 Cincinnati, OH 45243 
Tel: 804 360 7507 Tel: 513 271 3860 

Fax: 804 360 5258 Fax: 513 271 6321 





Wisconsin 


Janus, Inc. 

375 Williamstowne 
Delafield, WI 53018 
Tel: 414 646 5420 
Fax: 414 646 5421 


Wyoming 


Western Region Marketing, Inc. 
9176 Marshall Place 
Westminster, CO 80030 

Tel: 303 428 8088 

Fax: 303 426 8585 
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AFRICA 
South Africa 


Pace Electronic Components Pty 
Cnr. Van Acht & Gewel Streets 
P.O. Box 701 

Isando 1600, Transvaal 

Tel: 11 974 1211 

Fax: 11974 1271 


ASIA 
Hong Kong 


Maxisum Limited 

Unit 2520-2525 Tower 1 
Metroplaza, Hing Fong Road 
Kwai Fong, N.T., Hong Kong 
Tel: 852 4180909 

Fax: 852 4181600 


Japan 


Dainichi Contronics Inc. 
Dainichi Bldg. 1-7 Karaku 
1-Chome, Bunkyo-Ku 
Tokyo 112, Japan 

Tel: 3 3818 8081 

Fax: 3 3818 8088 


Marubeni Hytech Co., Ltd. 
Marubeni Hytech Building 
4-20-22, Koishikawa 
Bunkyo-Ku 

Tokyo 112, Japan 

Tel: 3 817 4921 

Fax: 3 817 4880 


Nippon Precision Device Corp. 
Nichibei Time 24 Bldg. 

35 Tansu-Cho, Shinjuku-Ku 
Tokyo 162, Japan 

Tel: 3 3260 1411 

Fax: 3 3260 7100 


Korea 


ProChips Inc. 

779-12, Daelim 3-Dong 
Youngdeungpo-Ku 
Seoul, Korea 

Tel: 02 849 8567 

Fax: 02 849 8659 


Taiwan, R.O.C. 


Pinnacle Technologies Co. Ltd. 
3F, 5 Lane 768, Sec. 4 

Pa-Teh Road 

Taipei, Taiwan 

Tel: 02 788 4800 

Fax: 02 788 5969 





Solomon Technology Corp. 
5th Floor, No. 293, Sec. 5 
Chung Hsiao E. Rd. 
Taipei, Taiwan 

Tel: 886 2 760 5858 

Fax: 886 2 756 9959 


AUSTRALIA 

NSD Australia 

205 Middleborough Road 
Box Hill, Victoria 3128 
Tel: 61 03 890 0970 
Fax: 61 03 899 5191 


CANADA 
Alberta 


Future Electronics 

3833 - 29th Street N.E. 
Calgary, Alberta, TIY 6B5 
Tel: 403 250 5550 

Fax: 403 291 7054 


ITT Multicomponents 
3015 - 5th Ave. 

Suite 210 

Calgary, Alberta, T2A 6T8 
Tel: 403 273 2780 

Fax: 403 273 7458 


Future Electronics 

4606 - 97th Street 
Edmonton, Alberta, T6E 5N9 
Tel: 403 438 2858 

Fax: 403 434 0812 


British Columbia 


Future Electronics 

1695 Boundary Road 
Vancouver, B.C., V5K 4X7 
Tel: 604 294 1166 

Fax: 604 294 1206 


Hamilton Hallmark 
Burnaby, B.C., V5A 4N6 
Tel: 800 332 8638 


ITT Multicomponents 


8525 Baxter Place, Unit 101. 


Production Court 
Burnaby, B.C., V5A 4V7 
Tel: 604 421 6222 

Fax: 604 421 0582 


Semad Electronics 
3700 Gilmore Way 
Burnaby, B.C., V5G 4M1 
Tel: 604 451 3444 
Fax: 604 451 3445 


Manitoba 


Future Electronics 

106 King Edward 

Winnipeg, Manitoba, R3H ON8 
Tel: 204 786 7711 

Fax: 204 783 8133 


ITT Multicomponents 

1313 Border Street 

Unit 35 

Winnipeg, Manitoba, R3H OX4 
Tel: 204 697 2300 

Fax: 204 697 2293 


Ontario 


Future Electronics 

1050 Baxter Road 
Ottawa, Ontario, K2C 3P2 
Tel: 613 820 8313 

Fax: 613 820 3271 


Hamilton Hallmark 
Nepean, Ontario, K2E 7J5 
Tel: 800 332 8638 


ITT Multicomponents 

39 Robertson Road 

Suite 506, Bell Mews 
Nepean, Ontario, K2H 8R2 
Tel: 613 596 6980 

Fax: 613 596 6987 


Semad Electronics 

2781 Lancaster Road, Suite 302 
Ottawa, Ontario, K1B 1A7 

Tel: 613 526 4866 

Fax: 613 523 4372 


Future Electronics 

5935 Airport Road, Suite 200 
Mississauga, Ontario, L4V IW5 
Tel: 416 612 9200 

Fax: 416 6129185 


Hamilton Hallmark 
Mississauga, Ontario, L5T 2L1 
Tel: 800 332 8638 


ITT Multicomponents 

300 N. Rivermede Road 
Concord, Ontario, L4K 224 
Tel: 416 798 4884 

Fax: 416 798 4889 


Semad Electronics 

85 Spy Court 

Markham, Ontario, L3R 424 
Tel: 416 475 3922 

Fax: 416 475 4158 
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Quebec 


Hamilton Hallmark 
Ville St. Laurent 
Quebec H4T 1V6 
Tel: 800 332 8638 


ITT 

5713 Shemin Street Francois 
Ville St. Laurent 

Quebec H4S 1W9 

Tel: 514 335 7697 

Fax: 514 335 9330 


Semad Electronics 

243 Place Frontenac 

Pointe Clare, Quebec, H9R 427 
Tel: 514 694 0860 

Fax: 514 694 0965 


Future Electronics 

1000 Ave. St. Jean Baptiste 
Suite 100 

Quebec City, Quebec, G2E 5G5 
Tel: 418 877 6666 

Fax: 418 877 6671 


Future Electronics 

237 Hymas Blvd. 

Point Claire P.Q. H9R 5C7 
Tel: 514 694 7710 

Fax: 514 695 3707 


EUROPE 


Austria 


Elbatex Electronics GmbH 
Rotermuehlgasse 26 
A-1120 Wien 

Tel: 43 222 8135646 

Fax: 43 222 834276 


Elbatex Gruppe 
Eitnergasse 6 

A1233 Wien 

Tel: 43 1 81602 0 
Fax: 43 1 863211 201 


Belgium 


Sonetech N.V. 

De Limburg Stirumlaan 243 
Bus 3 

B-1780 Wemmel 

Tel: 32 2 460 0707 

Fax: 32 2 460 1200 


Denmark 


Exatec A/S 
Mileparken 20E 
2740 Skoviund 

Tel: 45 44 92 7000 
Fax: 45 44 92 6020 


England 


Farnell Electronics 
Canal Road 

Leeds, LS12 2TU 
Tel: 44 532 636311 
Fax: 44 532 633411 


Future Electronics Ltd. 
Future House Poyle Road 
Colnbrook, Berks, SL3 0EZ 
Tel: 44 753 687000 

Fax: 44 753 689100 


H.B. Electronics Ltd. 

Lever Street 

Bolton, Lancashire, BL3 6BJ 
Tel: 44 204 2 5544 

Fax: 44 204 384911 


Hawke Components Ltd. 

26 Campbell Court 

Bramley 

NR Basingstoke, Hants, RG26 5EG 
Tel: 44 256 880800 

Fax: 44 256 880325 


ITT Multicomponents 
346 Edinburgh Ave. 
Slough, Berks, SL1 4TU 
Tel: 44 753 824131 
Fax: 44 753 824160 


Polar Electronics PLC 
Cherrycourt Way 
Leighton Buzzard 
Bedfordshire LU7 8YY 
Tel: 44 525 377093 
Fax: 44 525 378367 


France 


ITT MULTIcomposants 

16 Avenue des Andes 

ZA de Courtaboeuf - BP 16 
91941 LES ULIS Cedex A 
Tel: 33 1 64 460200 

Fax: 33 1 64 463898 


Mecodis 

Parc d’Activites 

3 Allee des Erables 
94042 CRETEIL Cedex 
Tel: 33 1 43 994400 
Fax: 33 1 43 999828 


Germany 


Avnet E2000 GmbH 
Postfach 820127 
D-81801 Muenchen 82 
Tel: 089 45110 01 
Fax: 089 45110 210 


Future Electronics Deutschland 
GmbH 

Munchner Strasse 18 

85774 Unterfohing 

Munich, Germany 

Tel: 49 89 957 1950 


Metronik GmbH 
Postfach 1328 
D82003 Unterhaching 
Tel: 89 611080 

Fax: 89 6112246 


Semitron W. Roeck & Co. 
Im Gut 1 

D79790 Kuessaberg 

Tel: 49 7742 80010 
Fax: 49 7742 6901 


Greece 


P. Caritato & Associates S.A. 
llia lliou 31 

Athens 11743 

Tel: 30 1 9020115 

Fax: 30 1 9017024 


israel 


Elina Electronics Ltd. 

14 Raoul Wallenberg St. 
P.O. Box 13190 

Tel Aviv 61131 

Tel: 9723 498543 
Fax: 9723 498745 


Italy 


Eurelettronica Srl 
Viale E. Fermi 8 
20090 Assago Milano 
Tel: 392457 841 
Fax: 39 2 488 0275 


Intesi 

Viale Milanofiori E/5 
20090 Assago Milano, 
Tel: 39 2 8247 0215 
Fax: 39 2 8247 0278 


Kevin 
Via del Gradenigo, 3 
20148 Milano 

Tel: 39 2 4870 6300 
Fax: 39 2 4870 6500 
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Netherlands 


Semicon B.V. 
Gulberg 33 

P.O. Box 258 
NL-5670 AG Nuenen 
Tel: 31 40 837075 
Fax: 31 40 832300 


Norway 


Odin Elektronik AB 

P.O. Box 9376 Gronlund 
N0135 Oslo 

Tel: 47 22 677 290 
Fax: 47 677 380 


Spain 

Sagitron 

Corazon de Maria 80/82 
28002 Madrid 

Tel: 34 1416 9261 

Fax: 34 1415 8652 


Sweden 


MEMEC Scandinavia AB 
Kvarnholmsvagen 52 
131 31 Nacka 

Tel: 46 8 6434190 

Fax: 46 8 6431195 


Switzerland 


Elbatex Gruppe AG 
Hardstr. 72 

CH-5430 Wettingen 
Tel: 411 56275111 
Fax: 411 56 275454 


Turkey 


Inter Muehendislik Danismanlik 
Ve Ticaret A.S.1 

Hasircibasi Caddesi No. 55 
81310 Kadikoy 

Istanbul 

Tel: 90 1349 94 00 

Fax: 90 1349 94 30 


SOUTH AFRICA 


isando 


Pace Electronic Components Ltd. 


Cnr. Vanacht & Gewel Streets 
P.O. Box 701 

Isando 1600, Transvaal 

Tel: 27 11 974 1211/6 

Fax: 27 11974 1271 


SOUTH AMERICA 


Brazil 


Aplicacoes Electronicas Artimar 
Rue Marques de Itu,70-1- AND. 
Caixa Postal 5881*9498 

Cep 01223 

Sao Paulo, Brazil 

Tel: 55112310277 

Fax: 55112550511 


USA 


Alabama 


Future Electronics 

4835 University Square, Suite 16 
Huntsville, AL 35816 

Tel: 205 830 2322 

Fax: 205 830 6664 


Hamilton Hallmark 
Huntsville, AL 35816 
Tel: 800 332 8638 


Pioneer Technologies 
4835 University Square #5 
Huntsville, AL 35816 

Tel: 205 837 9300 

Fax: 205 837 9358 


Reptron Electronics 
4835 University Square 
Suite 12 

Huntsville, AL 35816 
Tel: 205 722 9500 

Fax: 205 722 9565 


Arizona 


Bell Industries 

140 S. Linden Lane #102 
Tempe, AZ 85281 

Tel: 602 966 7800 

Fax: 602 967 6584 


Future Electronics 
4636 E. University Dr. 
Suite 245 

Phoenix, AZ 85034 
Tel: 602 968 7140 
Fax: 602 968 0334 


Hamilton Hallmark 
Phoenix, AZ 85040 
Tel: 800 332 8638 


Distributors 


California 


Bell Industries 

1161 N. Fairoaks Ave. 
Sunnyvale, CA 94089 
Tel: 408 734 8570 
Fax: 408 734 8875 


Hamilton Hallmark 
Sunnyvale, CA 94089 
Tel: 800 332 8638 


Future Electronics 
2220 O'Toole Avenue 
San Jose, CA 95131 
Tel: 408 434 1122 
Fax: 408 433 0822 


Hamilton Hallmark 
San Jose, CA 95131 
Tel: 800 332 8638 


Pioneer Technical Products 
134 Rio Robles 

San Jose, CA 95134 

Tel: 408 954 9100 

Fax: 408 954 9113 


Bell Industries 

4311 Anthony Court, Suite 100 
Rocklin, CA 95677 

Tel: 916 652 0414 

Fax: 916 652 0403 


Hamilton Hallmark 
Rocklin, CA 95677 
Tel: 800 332 8638 


Bell Industries 

11095 Knott Ave., Suite E 
Cypress, CA 90630 

Tel: 714 895 7801 

Fax: 714 891 4570 


Bell Industries 

30101 Agoura Court, Suite 118 
Agoura Hills, CA 91301 

Tel: 818 879 9494 

Fax: 818 991 7695 


Pioneer Standard 

5126 Clareton Drive 
Agoura Hills, CA 91301 
Tel: 818 865 5800 
Fax: 818 865 5814 


Future Electronics 
9301 Oakdale Ave. 
Suite 210 

Chatsworth, CA 91311 
Tel: 818 772 6240 
Fax: 818 772 6247 
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Distributors 


California (cont.) 


Hamilton Hallmark 
Wooland Hills, CA 91327 
Tel: 800 332 8638 


Future Electronics 
1692 Browning Ave. 
Irvine, CA 92714 | 
Tel: 714 250 4141 
Fax: 714 250 4185 


Pioneer Standard 

217 Technology Drive #110 
Irvine, CA 92718 

Tel: 800 535 1430 

Fax: 714 753 5074 


Aegis Electronic Group, Inc. 
1015 Chestnut Ave. 

Suite G2 

Carlsbad, CA 92008 

Tel: 619 729 2026 

Fax: 619 729 9295 


Bell Industries 

7827 Convoy Court, Suite 403 
San Diego, CA 92111 

Tel: 619 268 1277 

Fax: 619 268 3733 


Future Electronics 
5151 Shoreham Place 
Suite 220 

San Diego, CA 92122 
Tel: 619 625 2800 
Fax: 619 625 2810 


Hamilton Hallmark 
san Diego, CA 92123 
Tel: 800 332 8638 


Colorado 


Bell Industries 

1873 S. Bellaire St. 
Denver, CO 80222 . 
Tel: 303 691 9010. - 
Fax: 303 691 9036 


Future Electronics 
12600 W. Colfax Avenue 
Suite B110 

Lakewood, CO 80215 
Tel: 303 232 2008 

Fax: 303 232 2009 


Colorado (cont. 


Hamilton Hallmark 
Englewood, CO 80111 
Tel: 800 332 8638 


Hamilton Hallmark 
Colorado Springs, CO 80915 
Tel: 800 332 8638 


Connecticut 


Future Electronics 
24 Stony Hill Road 
Bethel, CT 06801 
Tel: 203 743 9594 
Fax: 203 798 9745 


Hamilton Hallmark 
Cheshire, CT 06410 
Tel: 800 332 8638 


Hamilton Hallmark 
Meriden, CT 06450 
Tel: 800 332 8638 


Phase 1 Technology Corporation 
36A Padanarm Road 

Danbury, CT 06811 

Tel: 203 791 9042 

Fax: 201 790 6128 


Pioneer Standard 
Two Trap Falls #101 
Shelton, CT 06484 
Tel: 203 929 5600 
Fax: 203 929 9791 


Florida 


Bell Industries 

650 S. Northlake Bivd, Suite 400 
Altamonte Springs, FL 32701 
Tel: 407 339 0078 

Fax: 407 339 0139 


Future Electronics 

650 S. Northlake Blvd. 

Suite 520 

Altamonte Springs, FL 32701 
Tel: 407 767 8414 

Fax: 407 834 9318 


Pioneer Technologies 

337 South-North Lake #1000 
Altamonte Springs, FL 32701 
Tel: 407 834 9090 

Fax: 407 834 0865 


Hamilton Hallmark 
Winter Park, FL 32792 
Tel: 800 332 8638 


Florida (cont.) 


Future Electronics 
2200 Tall Pines Drive 
Suite 108 

Largo, FL 34641 
Tel: 813 530 1222 
Fax: 813 538 9598 


Hamilton Hallmark 
Largo, FL 34641 
Tel: 800 332 8638 


Reptron Electronics 
14401 McCormick Drive 
Tampa, FL 33626 

Tel: 813 854 2351 

Fax: 813 855 0942 


Pioneer Standard 

674 S. Military Trail 
Deerfield Beach, FL 33442 
Tel: 305 428 8877 

Fax: 305 481 2950 


Hamilton Hallmark 
Ft. Lauderdale, FL 33309 
Tel: 800 332 8638 


Reptron Electronics 
3320 N.W. 53rd Street 
Suite 206 

Ft. Lauderdale, FL 33309 
Tel: 305 735 1112 

Fax: 305 735 1121 


Georgia 


Hamilton Hallmark 
Duluth, GA 30136 
Tel: 800 332 8638 


Pioneer Technologies | 
4250 C Rivergreen Parkway 
Duluth, GA 30136 

Tel: 404 623 1003 

Fax: 404 623 0665 


Future Electronics 

4960 Peachtree Industrial Blvd. 
Suite 230 

Norcross, GA 30071 

Tel: 404 446 1300 

Fax: 404 446 2991 


Reptron Electronics 

3040 Business Park Drive 
Suite H 

Norcross, GA 30071 

Tel: 404 446 1300 

Fax: 404 446 2991 
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illinois 


Bell Industries 

870 Cambridge Drive 

Elk Grove Village, IL 60007 
Tel: 708 640 1910 

Fax: 708 640 0474 


Future Electronics - 

3150 W. Higgins Rd. 
Hoffman Estates, IL 60195 
Tel: 708 882 1255 

Fax: 708 490 9290 


Hamilton Hallmark 
Bensonville, IL 60106 
Tel: 800 332 8638 


Hamilton Hallmark 
Wood Dale, IL 60191 
Tel: 800 332 8638 


Pioneer Standard 

2171 Executive Drive #200 
Addison, IL 60101 

Tel: 708 495 9680 

Fax: 708 495 9831 


Indiana 


Bell Industries 

3433 E. Washington Blvd. 
Fort Wayne, IN 46803 
Tel: 219 422 4300 

Fax: 219 423 3420 


Bell Industries 

5230 W. 79th St. 
Indianapolis, IN 46268 
Tel: 317 875 8200 
Fax: 317 875 8219 


Hamilton Hallmark 
Indianapolis, IN 46268 
Tel: 800 332 8638 


Pioneer Standard 


9350 N. Priority Way W. Dr. 


Indianapolis, IN 46240 
Tel: 317 573 0880 
Fax: 317 573 0979 


Kansas 


Hamilton Hallmark 
Lenexa, KS 66219 
Tel: 800 332 8638 


Kentucky 


Hamilton Hallmark 
Lexington, KY 40511 
Tel: 800 332 8638 


Maryland 


Bell Industries 

8945 Guilford Rd., Suite 130 
Columbia, MD 21046 

Tel: 410 290 5100 

Fax: 410 290 8006 


Future Electronics 

6716 Alexander Bell Drive #101 
Columbia, MD 21046 

Tel: 410 290-0600 

Fax: 410 290 0328 


Hamilton Hallmark 
Columbia, MD 21046 
Tel: 800 332 8638 


Pioneer Technologies 
9100 Gaither Road 
Gaithersburg, MD 20877 
Tel: 301 921 0660 

Fax: 301 921 4255 


Vantage Components, Inc. 
6925 R. Oakland Mills Road 
Columbia, MD 21045 

Tel: 401 720 5100 

Fax: 401 381 2172 


Massachusetts 


Bell Industries 

100 Burtt Road Suite 106 
Andover, MA 01810 

Tel: 508 474 8880 

Fax: 508 474 8902 


Future Electronics 
41 Main Street 
Bolton, MA 01740 
Tel: 508 779 3000 
Fax: 508 779 5143 


Hamilton Hallmark 
Peabody, MA 01960 
Tel: 800 332 8638 


Pioneer Standard 

44 Hartwell Ave. 
Lexington, MA 02173 
Tel: 617 861 9200 
Fax: 617 863 1547 


Distributors 


Michigan 

Future Electronics 
35200 Schoolcraft Road 
Suite 106 

Livonia, Mi 48150 

Tel: 313 261 5270 

Fax: 313 261 8125 


Hamilton Hallmark 
Novi, MI 49418 
Tel: 800 332 8638 


Pioneer Standard 
13485 Stamford 
Livonia, MI 48150 
Tel: 313 525 1800 
Fax: 313 427 3720 


Minnesota 


Digi-Key Corporation 

701 Brooks Ave. So. 

P.O. Box 677 

Thief River Falls, MN 55344 
Tel: 218 681 6674 

Fax: 218 681 3380 


Future Electronics 

10025 Valley View Road, Suite 196 
Eden Prairie, MN 55344 

Tel: 612 994 2200 

Fax: 612 994 2520 


Hamilton Hallmark 
Bloomington, MN 55431 
Tel: 800 332 8638 


Pioneer Standard 

7625 Golden Triangle 
Eden Prairie, MN 55344 
Tel: 612 944 3355 

Fax: 612 944 3794 


Missouri 


Future Electronics 

12125 Woodcrest Executive Dr. 
Suite 220 

St. Louis, MO 63141 

Tel: 314 469 6805 

Fax: 314 469 7226 


Hamilton Hallmark 
Earth City, MO 63045 
Tel: 800 332 8638 
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New Jersey 


Bell Industries 

271 Route 46 West 
Suites F202-203 
Fairfield, NJ 07004 
Tel: 201 227 6060 
Fax: 201 227 2626 


Future Electronics 
12 East Stow Road 
Suite 200 

Marlton, NJ 08053 
Tel: 609 596 4080 
Fax: 609 596 4266 


Future Electronics 
1259 Route 46 East 
Parsippany, NJ 07054 
Tel: 201 299 0400 
Fax: 201 299 1377 


Hamilton Hallmark 
Parsippany, NJ 07054 
Tel: 800 332 8638 


Hamilton Hallmark 
Cherry Hill, NJ 08003 
Tel: 800 332 8638 


Phase 1 Technology Corporation 
295 Molnar Drive 

Elmwood Park, NJ 07407 

Tel: 201 791 2990 

Fax: 201 791 2552 


Pioneer Standard 

14A Madison Road 
Fairfield, NJ 07006 
Tel: 201 575 3510 
Fax: 201 575 3454 


Vantage Components, Inc. 
23 Sebago Street 

Clifton, NJ 07013 

Tel: 201 777 4100 

Fax: 201 777 6194 


New Mexico 


Bell Industries 

11728 Linn N.E. 
Albuquerque, NM 87123 
Tel: 505 292 2700 

Fax: 505 275 2819 


Hamilton Hallmark 
Albuquerque, NM 87109 
Tel: 800 332 8638 


New York 


Future Electronics | 

200 Salina Meadows, Suite 130 
Syracuse, NY 13212 

Tel: 315 451 2371 

Fax: 315 451 7258 


Future Electronics 
333 Metro Park 
Rochester, NY 14623 
Tel: 716 272 1120 
Fax: 716 272 7182 


Hamilton Hallmark 
Rochester, NY 14623 
Tel: 800 332 8638 


Hamilton Hallmark 
Ronkonkoma, NY 11779 
Tel: 800 332 8638 


Future Electronics 

200 Salina Meadows Parkway 
Suite 130 

Syracuse, NY 13212 

Tel: 315 451 2371 

Fax: 315 451 7258 


Pioneer Standard 
840 Fairport Park 
Fairport, NY 14450 
Tel: 716 381 7070 
Fax: 716 381 5955 


Pioneer Standard 

1249 Front Street, Suite 201 
Binghampton, NY 13904 
Tel: 607 722 9300 

Fax: 607 722 9562 


New York (cont. 


Phase 1 Technology Corporation 
46 Jefryne Bivd. a 
Deer Park, NY 11729 

Tel: 516 254 2600 

Fax: 516 254 2693 


Future Electronics 

801 Motor Parkway 
Hauppauge, NY 11788 | 
Tel: 516 234 4000 

Fax: 516 234 6183 


Pioneer Standard 

60 Crossways Park West 
Woodbury, NY 11797 
Tel: 516 677 1726 

Fax: 516 921 2143 


Vantage Components, Inc. 
1056 West Jericho Turnpike 
Smithtown, NY 11787 

Tel: 516 543 2000 

Fax: 516 543 2030 


North Carolina 


Future Electronics 

5225 Capital Blvd. 

1 North Commerce Center 
Raleigh, NC 27604 

Tel: 919 790 7111 

Fax: 919 790 9022 


Hamilton Hallmark 
Raleigh, NC 27604 
Tel: 800 332 8638 


Hamilton Hallmark 
Charlotte, NC 28217 
Tel: 800 332 8638 


Pioneer Technologies 

2200 Gateway Centre Blvd. 
Suite 215 

Morrisville, NC 27560 

Tel: 919 460 1530 

Fax: 919 460 1540 
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Ohio 


Future Electronics 

6001-F Landerhaven Dr. 
Mayfield Heights, OH 44124 
Tel: 216 449 6996 

Fax: 216 449 8987 





Hamilton Hallmark 
Solon, OH 44139 
Tel: 800 332 8638 


Pioneer Standard 
4800 East 131st St. 
Cleveland, OH 44105 
Tel: 216 587 3600 
Fax: 216 587 3906 


Bell Industries 

444 Windsor Park Drive 
Dayton, OH 45459 

Tel: 513 435 8660 

Fax: 513 435 6765 


Pioneer Standard 
4433 Interpoint Blvd. 
Dayton, OH 45424 
Tel: 513 236 9900 
Fax: 513 236 8133 


Hamilton Hallmark 
Worthington, OH 43085 
Tel: 800 332 8638 


Pioneer Standard 

6421 East Main #201 
Reynoldsburg, OH 43068 
Tel: 614 221 0043 

Fax: 614 759 1955 


Oklahoma 


Hamilton Hallmark 
Tulsa, OK 74146 
Tel: 800 332 8638 


Pioneer Standard 
9717 E. 42nd St. 
Tulsa, OK 74146 
Tel: 918 664 7840 
Fax: 918 665 1891 


Oregon 


Bell Industries 

9275 S.W. Nimbus 
Beaverton, OR 97005 
Tel: 503 644 1500 
Fax: 503 520 1948 


Future Electronics 

15236 N.W. Greenbrier Pkwy. 
Beaverton, OR 97006 

Tel: 503 645 9454 

Fax: 503 645 1559 


Pennsylvania 


Bell Industries 

2550 Metropolitan Drive 
Trevose, PA 19053 
Tel: 215 953 2800 

Fax: 215 364 4928 


Pioneer Technologies 

500 Enterprise Road 

Keith Valley Business Center 
Horsham, PA 21567 

Tel: 215 674 4000 

Fax: 215 674 3107 


Pioneer Standard 
259 Kappa Drive 
Pittsburgh, PA 15238 
Tel: 412 782 2300 
Fax: 412 963 8255 


Texas 


Bell Industries 

1701 Greenville Ave., Suite 306 
Richardson, TX 75081 

Tel: 214 690 0468 

Fax: 214 690 0467 


Future Electronics 
1850 N. Greenville Ave. 
Suite 146 

Richardson, TX 75081 
Tel: 214 437 2437 
Fax: 214 669 2347 


Hamilton Hallmark 
Dallas, TX 75243 
Tel: 800 332 8638 


Distributors 


Texas (cont.) 


Pioneer Standard 
13765 Beta Road 
Dallas, TX 75244 
Tel: 214 386 7300 
Fax: 214 490 6419 


Hamilton Hallmark 
Austin, TX 78727 
Tel: 800 332 8638 


Pioneer Standard 
1826-D Kramer Lane 
Austin, TX 78758 
Tel: 512 835 4000 
Fax: 512 835 9829 


Pioneer Standard 

8200 Interstate 10 W. #705 
San Antonio, TX 78230 
Tel: 512 377 3440 

Fax: 512 377 3626 


Future Electronics 

11271 Richmond Ave., Suite 106 
Houston, TX 77082 

Tel: 713 556 8696 

Fax: 713 589 7069 


Hamilton Hallmark 
Houston, TX 77063 
Tel: 800 332 8638 


Pioneer Standard 
10530 Rockley Road 
Houston, TX 77099 
Tel: 713 495 4700 
Fax: 713 495 5642 
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Distributors 


Utah 


Bell Industries 
6912 S. 185 West, Suite B 
Midvale, UT 84047 
Tel: 801 561 9691 
Fax: 801 255 2477 





Future Electronics 

3450 S. Highland Drive, Suite 301 
Salt Lake City, UT 84106 

Tel: 801 467 4448 

Fax: 801 467 3604 


Hamilton Hallmark 
Salt Lake City, UT 84121 
Tel: 800 332 8638 


Washington 


Bell Industries 

8553,- 154th Ave. N.E. 
Redmond, WA 98052 
Tel: 206 867 5410 
Fax: 206 867 5159 


Future Electronics 


19102 N. Creek Parkway South 
Suite 118 

Bothell, WA 98011 

Tel: 206 489 3400 

Fax: 206 489 3411 


Hamilton Hallmark 
Redmond, WA 98052 
Tel: 800 332 8638 


Wisconsin 


Bell Industries 

W. 226 N. 900 Eastmound Dr. 
Waukesha, WI 53186 

Tel: 414 547 8879 

Fax: 414 547 6547 


Future Electronics . 
20875 Crossroads Circle 
Suite 200 

Waukesha, WI 53186 
Tel: 414 786 1884 

Fax: 414 786 0744 


Hamilton Hallmark 
New Berlin, WI 53146 
Tel: 800 332 8638 


Pioneer Standard 

120 Bishops Way #163 
Brookfield, WI 53005 
Tel: 414 784 3480 
Fax: 414 784 8207 
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Factory Sales 


JAPAN 


Microchip Technology International Inc. 


Shinyokohama Gotoh Bldg. 8F, 3-22-4 
Shinyokohama, Kohoku-Ku, 
Yokohama-Shi 

Kanagawa 222 Japan 

Tel: 81 45/471 6166 

Fax: 81 45/471 6122 


ASIA/PACIFIC 


Microchip Technology Inc. 
Unit No. 2520-2525 

Tower 1, Metroplaza 

Hing Fong Road, Kwai Fong 
N.T., Hong Kong 

Tel: 852 410 2716 

Fax: 852 410 2518 


EUROPE 


United Kingdom 

Arizona Microchip Technology LTD. 
Unit 3, Meadow Bank, Furlong Road 
Bourne End, Bucks SL8 5AJ 

Tel: 44 062 885 1077 

Fax: 44 062 885 0178 


Germany 

Arizona Microchip Technology GMBH 
Alte Landstrasse 12-14 

D-8012 Ottobrunn, Germany 

Tel: 49 089 609 6072 

Fax: 49 089 609 1997 


France 

Arizona Microchip Technology SARL 
2, Rue Du Buisson aux Fraises 
F-91300 Massy, France 

Tel: 33 01 6930 9090 

Fax: 33 01 6930 9079 
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UNITED STATES 


Corporate Office 
Microchip Technology Inc. 
2355 West Chandler Blvd. 
Chandler, AZ 85224-6199 
Tel: 602 786 7200 

Fax: 602 899 9210 


Northeast Region 
Microchip Technology Inc. 
Five The Mountain Road 
Suite 120 

Framingham, MA 01701 
Tel: 508 820 3334 

Fax: 508 820 4326 


Mid-Atlantic Region 
Microchip Technology Inc. 
150 Motor Parkway 

Suite 416 

Hauppauge, NY 11788 
Tel: 516 273 5305 

Fax: 516 273 5335 


Southeast Region 
Microchip Technology Inc. 
1521 Johnson Ferry Road NE 
Suite 170 

Marietta, GA 30062 

Tel: 404 509 8800 

Fax: 404 509 8600 
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North Central Region 
Microchip Technology Inc. 
665 Tollgate Road, Unit C 
Elgin, IL 60123-9312 
Tel: 708 741 0171 

Fax: 708 741 0638 


South Central Region 
Microchip Technology Inc. 
17480 N Dallas Parkway 
Suite 114 

Dallas, TX 75287 

Tel: 214 733 0391 

Fax: 214 250 4631 


Northwest Region 
Microchip Technology Inc. 
2107 N First Street 

Suite 410 

San Jose, CA 95131 

Tel: 408 436 7950 

Fax: 408 436 7955 


Southwest Region 
Microchip Technology Inc. 
18201 Von Karman 

Suite 455 

Irvine, CA 92715 

Tel: 714 263 1888 

Fax: 714 263 1338 
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Microchip Worldwide Sales and Distribution 


Microchip Technology Inc. 
2355 West Chandler Bivd. 
® Chandler, AZ 85224-6199 
Tel: 602 786-7200, Fax: 602 899-9210 


DS00092B Printed in U.S.A. 


